Mercurial > emacs
changeset 38305:3c5911d68b33
(rmail-reply): Don't forget to narrow header in
MIME-mode.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 06 Jul 2001 10:03:45 +0000 |
| parents | f818b591ff17 |
| children | 6104fdee196b |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)