diff options
| author | Mark Walters <markwalters1009@gmail.com> | 2017-01-28 10:38:27 +0000 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2017-02-23 08:54:55 -0400 |
| commit | 3e21b22c325dde47b4712436316e43e99ef2aa8d (patch) | |
| tree | 3135af2f1241e9162b3651accd94e3e74bf1faa6 | |
| parent | 884dccf2939ea0aa6a23dab064676dc650c28c65 (diff) | |
emacs: fully add the notmuch-address customize group
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
group.
| -rw-r--r-- | emacs/notmuch-address.el | 7 | ||||
| -rw-r--r-- | emacs/notmuch-lib.el | 4 |
2 files changed, 10 insertions, 1 deletions
diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el index 15c709da..d504ff2d 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 5dc67970..337b20ac 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) |