From f50141be18a15233d45069484b004492b2956cf9 Mon Sep 17 00:00:00 2001 From: Damien Cassou Date: Fri, 20 Sep 2019 11:04:26 +0200 Subject: [PATCH] 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. --- lisp/gnus/message.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 48d79107ea..3d0d7bc631 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -532,7 +532,7 @@ 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,11 @@ message-make-forward-subject-function 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))) + :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. -- 2.21.0