From: keiichi <keiichi>
Date: Tue, 18 Jul 2000 07:13:34 +0000 (+0000)
Subject: (message-get-reply-headers): Use
X-Git-Tag: nana-gnus-7_1_0_23~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ea3778f4eb38e19022a9cffc27d161792619224c;p=elisp%2Fgnus.git-

(message-get-reply-headers): Use
`message-mail-follow-up-address-checker'. (same as Nana-gnus 6.x)
---

diff --git a/lisp/message.el b/lisp/message.el
index c6e698b..244aef0 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3925,7 +3925,10 @@ OTHER-HEADERS is an alist of header/value pairs."
 		 (message-tokenize-header (buffer-string))))
 	  (let ((s ccalist))
 	    (while s
-	      (setq ccalist (delq (assoc (car (pop s)) s) ccalist)))))
+	      (setq ccalist (delq (assoc (car (pop s)) s) ccalist))))
+	  (when (functionp message-mail-follow-up-address-checker)
+	    (setq ccalist (funcall message-mail-follow-up-address-checker
+				   ccalist))))
 	(setq follow-to (list (cons 'To (cdr (pop ccalist)))))
 	(when ccalist
 	  (let ((ccs (cons 'Cc (mapconcat