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

MIME-mode.

2 files changed, 18 insertions, 1 deletions

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)