diff options
| author | Mauro Aranda <maurooaranda@gmail.com> | 2023-10-23 18:04:25 -0300 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2023-10-23 23:16:13 +0200 |
| commit | 297fe945c57c33b51b890ea105d5f7c15a520bd0 (patch) | |
| tree | 19a3eab64d23f89f9458b33b2edf2900f910feb6 /lisp/gnus/message.el | |
| parent | 3beb5f5e2403571085b99d05e4ee781281a1fd9c (diff) | |
| download | emacs-297fe945c57c33b51b890ea105d5f7c15a520bd0.tar.gz emacs-297fe945c57c33b51b890ea105d5f7c15a520bd0.tar.bz2 emacs-297fe945c57c33b51b890ea105d5f7c15a520bd0.zip | |
Fix minor defcustom issues in Gnus (Bug#66715)
* lisp/gnus/gnus-art.el (gnus-button-prefer-mid-or-mail): Allow
function and add :tag to const values.
* lisp/gnus/gnus-bookmark.el (gnus-bookmark-bookmark-inline-details):
Fix docstring.
* lisp/gnus/gnus-sum.el (gnus-simplify-subject-fuzzy-regexp): Allow a
single regexp as value.
* lisp/gnus/message.el (message-indent-citation-function): Allow a
single function as value.
(message-mail-alias-type): Allow for a list of options as value.
(message-dont-reply-to-names): Allow a function as value.
* lisp/gnus/spam-report.el (spam-report-url-ping-function): Fix
default value for the function widget.
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index b0407cc12eb..ff33133a9a1 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -1147,7 +1147,8 @@ Note that these functions use `mail-citation-hook' if that is non-nil." This can also be a list of functions. Each function can find the citation between (point) and (mark t). And each function should leave point and mark around the citation text as modified." - :type 'function + :type '(choice function + (repeat function)) :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) @@ -1408,8 +1409,9 @@ This can also be a list of values." :group 'message :link '(custom-manual "(message)Mail Aliases") :type '(choice (const :tag "Use Mailabbrev" abbrev) - (const :tag "Use ecomplete" ecomplete) - (const :tag "No expansion" nil))) + (const :tag "Use ecomplete" ecomplete) + (set (const :tag "Use Mailabbrev" abbrev) + (const :tag "Use ecomplete" ecomplete)))) (defcustom message-self-insert-commands '(self-insert-command) "List of `self-insert-command's used to trigger ecomplete. @@ -1453,8 +1455,9 @@ If a function email is passed as the argument." :group 'message :link '(custom-manual "(message)Wide Reply") :type '(choice (const :tag "Yourself" nil) - regexp - (repeat :tag "Regexp List" regexp))) + regexp + (repeat :tag "Regexp List" regexp) + function)) (defsubst message-dont-reply-to-names () (if (functionp message-dont-reply-to-names) |