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

MIME-mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2b90b716253f7fd633940fbe3869dce1298acd0..b3b86864de34fb5ea41f79d194ed13ec30d107eb 100644 (file)
--- 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 7fd90ff965ba7106a5323d568badd0f68d105090..0f03866045e0e897679188c7d4e01c075e1dcc49 100644 (file)
--- 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)