emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 1646e44: Change default value of message-make-forwa


From: Lars Ingebrigtsen
Subject: [Emacs-diffs] master 1646e44: Change default value of message-make-forward-subject-function
Date: Fri, 20 Sep 2019 13:28:10 -0400 (EDT)

branch: master
commit 1646e448d02195726cd44b0a8fb34c595b193a43
Author: Damien Cassou <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 48d7910..9e0f2b4 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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]