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

MIME-mode.
aquamacs-emacs · Jul 6, 2001 · 9be15e3 · 9be15e3
1 parent 640aa97
commit 9be15e3
Showing 1 changed file with 6 additions and 1 deletion.
diff --git 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)