From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 6 Jul 2001 10:04:07 +0000 (+0000)
Subject: (rmail-reply): Don't forget to narrow header in
X-Git-Tag: emacs-pretest-21.0.104~60
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2cc5c4f187427ef58e1471761bd33fcf74c1deb;p=emacs.git

(rmail-reply): Don't forget to narrow header in
MIME-mode.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2b90b71625..b3b86864de3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,18 @@
 	(ps-right-header, ps-right-footer): Initialization and doc fix.
 	(ps-time-stamp-locale-default): New fun.
 
+2001-07-06  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+	* mail/rmailout.el (rmail-output): Fix duplicate MIME-Version:
+	field problem with MIME-mode.
+
+	* mail/rmailout.el (rmail-output): Fix bug in MIME-mode.
+
+2001-07-06  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+	* mail/rmail.el (rmail-reply): Don't forget to narrow header in
+	MIME-mode.
+
 2001-07-06  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* bindings.el (mode-line-mule-info): Don't show the tip with
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 7fd90ff965b..0f03866045e 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3057,7 +3057,12 @@ use \\[mail-yank-original] to yank the original message into it."
 	;; rmail-view-buffer which doesn't contain any lines specific
 	;; to BABYL format (e.g. "*** EOOH ***").  Thus, there's no
 	;; need of narrowing in such a case.
-	(unless rmail-enable-mime
+	(if rmail-enable-mime
+	    (narrow-to-region
+	     (goto-char (point-min))
+	     (if (search-forward "\n\n" nil 'move)
+		 (1+ (match-beginning 0))
+	       (point)))
 	  (widen)
 	  (goto-char (rmail-msgbeg rmail-current-message))
 	  (forward-line 1)