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).

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.