message-use-mail-followup-to

message-use-mail-followup-to

[Paul Jarc]

This patch against current CVS adds a variable
message-use-mail-followup-to akin to -use-followup-to, and restores
the old default of m-u-f-t.  (IIRC, the default for m-u-f-t was
changed for the sake of Mail-Followup-To, but what we really want is
different behavior for mail vs. news.)

diff -u -r6.93 message.el
--- lisp/message.el     2001/06/25 17:49:51     6.93
+++ lisp/message.el     2001/07/07 04:26:00
@@ -401,7 +401,7 @@
   :group 'message-interface
   :type '(choice function (const nil)))
 
-(defcustom message-use-followup-to t
+(defcustom message-use-followup-to 'ask
   "*Specifies what to do with Followup-To header.
 If nil, always ignore the header.  If it is t, use its value, but
 query before using the \"poster\" value.  If it is the symbol `ask',
@@ -413,6 +413,16 @@
                 (const use)
                 (const ask)))
 
+(defcustom message-use-mail-followup-to t
+  "*Specifies what to do with Mail-Followup-To header.
+If nil, always ignore the header.  If it is the symbol `ask', always
+query the user whether to use the value.  If it is the symbol `use',
+always use the value."
+  :group 'message-interface
+  :type '(choice (const :tag "ignore" nil)
+                (const use)
+                (const ask)))
+
 (defcustom message-sendmail-f-is-evil nil
   "*Non-nil means don't add \"-f username\" to the sendmail command
   line.
 Doing so would be even more evil than leaving it out."
@@ -4019,7 +4029,7 @@
          mct (message-fetch-field "mail-copies-to")
          reply-to (message-fetch-field "reply-to")
          mrt (message-fetch-field "mail-reply-to")
-         mft (and message-use-followup-to
+         mft (and message-use-mail-followup-to
                    (message-fetch-field "mail-followup-to")))
 
     ;; Handle special values of Mail-Copies-To.
@@ -4044,9 +4054,8 @@
        (save-excursion
          (message-set-work-buffer)
           (if (and mft
-                   message-use-followup-to
                    wide
-                   (or (not (eq message-use-followup-to 'ask))
+                   (or (not (eq message-use-mail-followup-to 'ask))
                        (message-y-or-n-p
                        (concat "Obey Mail-Followup-To? ") t "\
 You should normally obey the Mail-Followup-To: header.  In this
@@ -4057,9 +4066,13 @@
 which directs your response to " (if (string-match "," mft)
                               "the specified addresses"
                             "that address only") ".
+
+Most commonly, Mail-Followup-To is used by a mailing list poster to
+express that responses should be sent to just the list, and not the
+poster as well.
 
-If a message is posted to several mailing lists, Mail-Followup-To is
-often used to direct the following discussion to one list only,
+If a message is posted to several mailing lists, Mail-Followup-To may
+also be used to direct the following discussion to one list only,
 because discussions that are spread over several lists tend to be
 fragmented and very difficult to follow.
 

Re: message-use-mail-followup-to

[ShengHuo ZHU]

prj@po.cwru.edu (Paul Jarc) writes:

> This patch against current CVS adds a variable
> message-use-mail-followup-to akin to -use-followup-to, and restores
> the old default of m-u-f-t.  (IIRC, the default for m-u-f-t was
> changed for the sake of Mail-Followup-To, but what we really want is
> different behavior for mail vs. news.)

Thanks. I've installed the patch.

ShengHuo