# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 994413825 0
# Node ID 3c5911d68b339646eb64471e77636b2b2a80faff
# Parent  f818b591ff177169181cb0a6ec4ff03c09f23dd2
(rmail-reply): Don't forget to narrow header in
MIME-mode.

diff -r f818b591ff17 -r 3c5911d68b33 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Jul 06 10:03:25 2001 +0000
+++ b/lisp/mail/rmail.el	Fri Jul 06 10:03:45 2001 +0000
@@ -3057,7 +3057,12 @@
 	;; 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)