From 8da3f63b6a45d2320bd045f0d4ae5f66a1b50fc0 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 15 Jan 2001 08:14:58 +0000 Subject: [PATCH] * message.el (message-followup): Handle "Mail-Copies-To:" correctly. (message-get-reply-headers): Ditto. --- ChangeLog | 6 +++++ lisp/message.el | 75 +++++++++++++++++++++++++------------------------------ 2 files changed, 40 insertions(+), 41 deletions(-) diff --git a/ChangeLog b/ChangeLog index 55a2ada..615f111 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2001-01-15 Katsumi Yamaoka + + * lisp/message.el (message-followup): Handle "Mail-Copies-To:" + correctly. + (message-get-reply-headers): Ditto. + 2001-01-15 Keiichi Suzuki * lisp/gnus-bbdb.el (gnus-bbdb/update-record): Save excursion diff --git a/lisp/message.el b/lisp/message.el index e8048a6..e46c768 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4684,30 +4684,30 @@ OTHER-HEADERS is an alist of header/value pairs." (when mct (cond ((and (or (equal (downcase mct) "never") - (equal (downcase mct) "nobody")) - (or (not (eq message-use-mail-copies-to 'ask)) - (message-y-or-n-p - (concat "Obey Mail-Copies-To: never? ") t "\ + (equal (downcase mct) "nobody"))) + (when (or (not (eq message-use-mail-copies-to 'ask)) + (message-y-or-n-p + (concat "Obey Mail-Copies-To: never? ") t "\ You should normally obey the Mail-Copies-To: header. - `Mail-Copies-To: never' -directs you not to send your response to the author."))) - (setq never-mct t) + `Mail-Copies-To: " mct "' +directs you not to send your response to the author.")) + (setq never-mct t)) (setq mct nil)) ((and (or (equal (downcase mct) "always") - (equal (downcase mct) "poster")) - (or (not (eq message-use-mail-copies-to 'ask)) - (message-y-or-n-p - (concat "Obey Mail-Copies-To: always? ") t "\ + (equal (downcase mct) "poster"))) + (if (or (not (eq message-use-mail-copies-to 'ask)) + (message-y-or-n-p + (concat "Obey Mail-Copies-To: always? ") t "\ You should normally obey the Mail-Copies-To: header. - `Mail-Copies-To: always' -sends a copy of your response to the author."))) - (setq mct (or mrt reply-to from))) + `Mail-Copies-To: " mct "' +sends a copy of your response to the author.")) + (setq mct (or mrt reply-to from)) + (setq mct nil))) ((and (eq message-use-mail-copies-to 'ask) - (not - (message-y-or-n-p - (concat "Obey Mail-Copies-To: " mct " ? ") t "\ + (not (message-y-or-n-p + (concat "Obey Mail-Copies-To: " mct " ? ") t "\ You should normally obey the Mail-Copies-To: header. `Mail-Copies-To: " mct "' @@ -4745,18 +4745,18 @@ that further discussion should take place only in " (let (ccalist) (save-excursion (message-set-work-buffer) - (if (and mft - message-use-followup-to - (or (not (eq message-use-followup-to 'ask)) - (message-y-or-n-p "Obey Mail-Followup-To? " t "\ + (if (and mft + message-use-followup-to + (or (not (eq message-use-followup-to 'ask)) + (message-y-or-n-p "Obey Mail-Followup-To? " t "\ You should normally obey the Mail-Followup-To: header. In this article, it has the value of " mft " which directs your response to " (if (string-match "," mft) - "the specified addresses" - "that address only") ". + "the specified addresses" + "that address only") ". If a message is posted to several mailing lists, Mail-Followup-To is often used to direct the following discussion to one list only, @@ -4768,7 +4768,7 @@ responses here are directed to other addresses."))) (insert mft) (unless never-mct (insert (or mrt reply-to from ""))) - (insert (if to (concat (if (bolp) "" ", ") to "") "")) + (insert (if to (concat (if (bolp) "" ", ") to) "")) (insert (if mct (concat (if (bolp) "" ", ") mct) "")) (insert (if cc (concat (if (bolp) "" ", ") cc) ""))) (goto-char (point-min)) @@ -4922,25 +4922,19 @@ If TO-NEWSGROUPS, use that as the new Newsgroups line." (when mct (cond ((and (or (equal (downcase mct) "never") - (equal (downcase mct) "nobody")) - (or (not (eq message-use-mail-copies-to 'ask)) - (message-y-or-n-p - (concat "Obey Mail-Copies-To: never? ") t "\ -You should normally obey the Mail-Copies-To: header. - - `Mail-Copies-To: never' -directs you not to send your response to the author."))) + (equal (downcase mct) "nobody"))) (setq mct nil)) ((and (or (equal (downcase mct) "always") - (equal (downcase mct) "poster")) - (or (not (eq message-use-mail-copies-to 'ask)) - (message-y-or-n-p - (concat "Obey Mail-Copies-To: always? ") t "\ + (equal (downcase mct) "poster"))) + (if (or (not (eq message-use-mail-copies-to 'ask)) + (message-y-or-n-p + (concat "Obey Mail-Copies-To: always? ") t "\ You should normally obey the Mail-Copies-To: header. - `Mail-Copies-To: always' -sends a copy of your response to the author."))) - (setq mct (or mrt reply-to from))) + `Mail-Copies-To: " mct "' +sends a copy of your response to the author.")) + (setq mct (or mrt reply-to from)) + (setq mct nil))) ((and (eq message-use-mail-copies-to 'ask) (not (message-y-or-n-p @@ -4951,8 +4945,7 @@ You should normally obey the Mail-Copies-To: header. sends a copy of your response to " (if (string-match "," mct) "the specified addresses" "that address") "."))) - (setq mct nil)) - )) + (setq mct nil)))) (unless follow-to (cond -- 1.7.10.4