summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDamien Cassou <damien@cassou.me>2019-09-20 19:28:00 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2019-09-20 19:28:05 +0200
commit1646e448d02195726cd44b0a8fb34c595b193a43 (patch)
treed96fbbb12e181612f1f77761e94301414312d0bb
parentf1f2de7cdfa5e20577bbc2e2bf29de4cce525002 (diff)
downloademacs-1646e448d02195726cd44b0a8fb34c595b193a43.tar.gz
Change default value of message-make-forward-subject-function
* lisp/gnus/message.el (message-make-forward-subject-function): Change default value to be a list so it's easier for users to add functions. Change the type so the customize interface allows selecting multiple provided functions instead of just one (bug#37470).
-rw-r--r--lisp/gnus/message.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 48d79107ea8..9e0f2b461e3 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -532,7 +532,7 @@ If t, use `message-user-organization-file'."
:group 'message-headers)
(defcustom message-make-forward-subject-function
- #'message-forward-subject-name-subject
+ (list #'message-forward-subject-name-subject)
"List of functions called to generate subject headers for forwarded messages.
The subject generated by the previous function is passed into each
successive function.
@@ -547,10 +547,12 @@ The provided functions are:
to it."
:group 'message-forwarding
:link '(custom-manual "(message)Forwarding")
- :type '(radio (function-item message-forward-subject-author-subject)
- (function-item message-forward-subject-fwd)
- (function-item message-forward-subject-name-subject)
- (repeat :tag "List of functions" function)))
+ :version "27.1"
+ :type '(repeat :tag "List of functions"
+ (radio (function-item message-forward-subject-author-subject)
+ (function-item message-forward-subject-fwd)
+ (function-item message-forward-subject-name-subject)
+ (function))))
(defcustom message-forward-as-mime nil
"Non-nil means forward messages as an inline/rfc822 MIME section.