Re: Mail-Followup-To interaction with gnus-summary-followup

[prj@po.cwru.edu (Paul Jarc)]

[-- Attachment #1: Type: text/plain, Size: 265 bytes --]

Paul J Collins <sneakums@sto-kerrig.org> writes:
> I'm still seeing this problem, where the Mail-Followup-To header's
> value is being used on `f', even when message-use-followup-to is nil.

Ok, here's the fix (against current CVS).  For real, this time. :)


paul

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: message.patch --]
[-- Type: text/x-patch, Size: 1143 bytes --]

--- message.el~	Sun Feb 18 18:09:07 2001
+++ message.el	Sun Feb 18 18:08:39 2001
@@ -3921,7 +3921,8 @@
 	  mct (message-fetch-field "mail-copies-to")
 	  reply-to (message-fetch-field "reply-to")
 	  mrt (message-fetch-field "mail-reply-to")
-	  mft (message-fetch-field "mail-followup-to"))
+	  mft (and message-use-followup-to
+                   (message-fetch-field "mail-followup-to")))
 
     ;; Handle special values of Mail-Copies-To.
     (when mct
@@ -3933,15 +3934,14 @@
 		 (equal (downcase mct) "poster"))
 	     (setq mct (or mrt reply-to from)))))
 
-    (if (and (or (not message-use-followup-to)
-                 (not mft))
+    (if (and (not mft)
              (or (not wide)
                  to-address))
 	(progn
 	  (setq follow-to (list (cons 'To (or to-address mrt reply-to from))))
-	  (when (and (and wide (or mft mct))
-		     (not (member (cons 'To (or mft mct)) follow-to)))
-	    (push (cons 'Cc (or mft mct)) follow-to)))
+	  (when (and (and wide mct)
+		     (not (member (cons 'To mct) follow-to)))
+	    (push (cons 'Cc mct) follow-to)))
       (let (ccalist)
 	(save-excursion
 	  (message-set-work-buffer)