[PATCH] emacs: fully add the notmuch-address customize group

Mark Walters markwalters1009 at gmail.com
Sat Jan 28 02:38:27 PST 2017

We now have several customizable options for address completion. There
is a customize group notmuch-address but it only contains one of these
options. Add all the others, and make it part of the notmuch customize

Bremner pointed out that many of these were not in the notmuch-addres
customize group, so we add them all.

Best wishes


 emacs/notmuch-address.el | 7 ++++++-
 emacs/notmuch-lib.el     | 4 ++++
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el
index 15c709d..d504ff2 100644
--- a/emacs/notmuch-address.el
+++ b/emacs/notmuch-address.el
@@ -66,6 +66,7 @@ disabled."
 	  (const :tag "Disable address completion" nil)
 	  (string :tag "Use external completion command"))
   :group 'notmuch-send
+  :group 'notmuch-address
   :group 'notmuch-external)
 (defcustom notmuch-address-internal-completion '(sent nil)
@@ -93,6 +94,7 @@ This should be a list of the form '(DIRECTION FILTER), where
 	 (setq notmuch-address-completions (clrhash notmuch-address-completions))
 	 (setq notmuch-address-full-harvest-finished nil))
   :group 'notmuch-send
+  :group 'notmuch-address
   :group 'notmuch-external)
 (defcustom notmuch-address-save-filename nil
@@ -104,6 +106,7 @@ should make sure it is not somewhere publicly readable."
   :type '(choice (const :tag "Off" nil)
 		 (file :tag "Filename"))
   :group 'notmuch-send
+  :group 'notmuch-address
   :group 'notmuch-external)
 (defcustom notmuch-address-selection-function 'notmuch-address-selection-function
@@ -115,6 +118,7 @@ See documentation of function `notmuch-address-selection-function'
 to know how address selection is made by default."
   :type 'function
   :group 'notmuch-send
+  :group 'notmuch-address
   :group 'notmuch-external)
 (defcustom notmuch-address-post-completion-functions nil
@@ -145,7 +149,8 @@ matching `notmuch-address-completion-headers-regexp'.
 (defcustom notmuch-address-use-company t
   "If available, use company mode for address completion"
   :type 'boolean
-  :group 'notmuch-send)
+  :group 'notmuch-send
+  :group 'notmuch-address)
 (defun notmuch-address-setup ()
   (let* ((setup-company (and notmuch-address-use-company
diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el
index 5dc6797..337b20a 100644
--- a/emacs/notmuch-lib.el
+++ b/emacs/notmuch-lib.el
@@ -74,6 +74,10 @@
   "Running external commands from within Notmuch."
   :group 'notmuch)
+(defgroup notmuch-address nil
+  "Address completion."
+  :group 'notmuch)
 (defgroup notmuch-faces nil
   "Graphical attributes for displaying text"
   :group 'notmuch)

More information about the notmuch mailing list