From ea3778f4eb38e19022a9cffc27d161792619224c Mon Sep 17 00:00:00 2001 From: keiichi Date: Tue, 18 Jul 2000 07:13:34 +0000 Subject: [PATCH] (message-get-reply-headers): Use `message-mail-follow-up-address-checker'. (same as Nana-gnus 6.x) --- lisp/message.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 1.7.10.4