From 1646e448d02195726cd44b0a8fb34c595b193a43 Mon Sep 17 00:00:00 2001 From: Damien Cassou Date: Fri, 20 Sep 2019 19:28:00 +0200 Subject: 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). --- lisp/gnus/message.el | 12 +++++++----- 1 file 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. -- cgit v1.2.1