From 5c58cfba7c66ae0033326de5174322ce45070a44 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 25 Aug 2000 05:00:12 +0000 Subject: [PATCH] Sync with Gnus. --- lisp/ChangeLog | 4 ++++ lisp/message.el | 7 +++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4682643..d3d6551 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-08-24 23:49:23 ShengHuo ZHU + + * message.el (message-send-mail): Narrow-to-headers. + 2000-08-24 Dave Love * gnus-art.el (gnus-insert-mime-button): Fix help-echo for Emacs diff --git a/lisp/message.el b/lisp/message.el index 0c5b683..2a35e45 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2910,12 +2910,15 @@ This sub function is for exclusive use of `message-send-mail'." ;; require one newline at the end. (or (= (preceding-char) ?\n) (insert ?\n)) - (when (and news + (when + (save-restriction + (message-narrow-to-headers) + (and news (or (message-fetch-field "cc") (message-fetch-field "to")) (let ((ct (mime-read-Content-Type))) (and (eq 'text (cdr (assq 'type ct))) - (eq 'plain (cdr (assq 'subtype ct)))))) + (eq 'plain (cdr (assq 'subtype ct))))))) (message-insert-courtesy-copy)) (setq failure (message-maybe-split-and-send-mail))) (kill-buffer tembuf)) -- 1.7.10.4