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

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 48d79107ea826e992cb58aa9d8cdb91da34414d4..9e0f2b461e3317839247029adca44e00d34b3e4c 100644 (file)
--- 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.