emacs: Fix notmuch-mua-user-agent defcustom

The :options keyword is not meaningful for function type. Also, it was not
possible to enter nil value, contrary to the notmuch-mua-user-agent
defcustom documentation. Specify the alternatives using choice type, taking
nil into account.

Signed-off-by: Jani Nikula <jani@nikula.org>
This commit is contained in:
Jani Nikula 2011-12-20 21:53:14 +02:00 committed by David Bremner
parent 2f7f259d62
commit d4c598dc9e

View file

@ -35,10 +35,12 @@
"Function used to generate a `User-Agent:' string. If this is "Function used to generate a `User-Agent:' string. If this is
`nil' then no `User-Agent:' will be generated." `nil' then no `User-Agent:' will be generated."
:group 'notmuch :group 'notmuch
:type 'function :type '(choice (const :tag "No user agent string" nil)
:options '(notmuch-mua-user-agent-full (const :tag "Full" notmuch-mua-user-agent-full)
notmuch-mua-user-agent-notmuch (const :tag "Notmuch" notmuch-mua-user-agent-notmuch)
notmuch-mua-user-agent-emacs)) (const :tag "Emacs" notmuch-mua-user-agent-emacs)
(function :tag "Custom user agent function"
:value notmuch-mua-user-agent-full)))
(defcustom notmuch-mua-hidden-headers '("^User-Agent:") (defcustom notmuch-mua-hidden-headers '("^User-Agent:")
"Headers that are added to the `message-mode' hidden headers "Headers that are added to the `message-mode' hidden headers