debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 12:28:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: fully add the notmuch-address customize group

Browse source 
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.
This commit is contained in:
Mark Walters 2017-01-28 10:38:27 +00:00 committed by David Bremner
parent 884dccf293
commit 3e21b22c32
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
emacs/notmuch-address.el
View file

@ -66,6 +66,7 @@ disabled."
(const :tag "Disable address completion" nil) (const :tag "Disable address completion" nil)
(string :tag "Use external completion command")) (string :tag "Use external completion command"))
:group 'notmuch-send :group 'notmuch-send
:group 'notmuch-address
:group 'notmuch-external) :group 'notmuch-external)
(defcustom notmuch-address-internal-completion '(sent nil) (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-completions (clrhash notmuch-address-completions))
(setq notmuch-address-full-harvest-finished nil)) (setq notmuch-address-full-harvest-finished nil))
:group 'notmuch-send :group 'notmuch-send
:group 'notmuch-address
:group 'notmuch-external) :group 'notmuch-external)
(defcustom notmuch-address-save-filename nil (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) :type '(choice (const :tag "Off" nil)
(file :tag "Filename")) (file :tag "Filename"))
:group 'notmuch-send :group 'notmuch-send
:group 'notmuch-address
:group 'notmuch-external) :group 'notmuch-external)
(defcustom notmuch-address-selection-function 'notmuch-address-selection-function (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." to know how address selection is made by default."
:type 'function :type 'function
:group 'notmuch-send :group 'notmuch-send
:group 'notmuch-address
:group 'notmuch-external) :group 'notmuch-external)
(defcustom notmuch-address-post-completion-functions nil (defcustom notmuch-address-post-completion-functions nil
@ -145,7 +149,8 @@ matching `notmuch-address-completion-headers-regexp'.
(defcustom notmuch-address-use-company t (defcustom notmuch-address-use-company t
"If available, use company mode for address completion" "If available, use company mode for address completion"
:type 'boolean :type 'boolean
:group 'notmuch-send) :group 'notmuch-send
:group 'notmuch-address)
(defun notmuch-address-setup () (defun notmuch-address-setup ()
(let* ((setup-company (and notmuch-address-use-company (let* ((setup-company (and notmuch-address-use-company

4
emacs/notmuch-lib.el
View file

@ -74,6 +74,10 @@
"Running external commands from within Notmuch." "Running external commands from within Notmuch."
:group 'notmuch) :group 'notmuch)
(defgroup notmuch-address nil
"Address completion."
:group 'notmuch)
(defgroup notmuch-faces nil (defgroup notmuch-faces nil
"Graphical attributes for displaying text" "Graphical attributes for displaying text"
:group 'notmuch) :group 'notmuch)