Mercurial > emacs
comparison lisp/mail/rmail.el @ 38311:b91b2fa6911d
(rmail-reply): Remove misleading comment.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 06 Jul 2001 11:41:47 +0000 |
parents | 3c5911d68b33 |
children | 37bce1f38f0a |
comparison
equal
deleted
inserted
replaced
38310:926054175878 | 38311:b91b2fa6911d |
---|---|
3051 (let (from reply-to cc subject date to message-id references | 3051 (let (from reply-to cc subject date to message-id references |
3052 resent-to resent-cc resent-reply-to | 3052 resent-to resent-cc resent-reply-to |
3053 (msgnum rmail-current-message)) | 3053 (msgnum rmail-current-message)) |
3054 (save-excursion | 3054 (save-excursion |
3055 (save-restriction | 3055 (save-restriction |
3056 ;; If rmail-enable-mime is non-nil, we are in a | |
3057 ;; rmail-view-buffer which doesn't contain any lines specific | |
3058 ;; to BABYL format (e.g. "*** EOOH ***"). Thus, there's no | |
3059 ;; need of narrowing in such a case. | |
3060 (if rmail-enable-mime | 3056 (if rmail-enable-mime |
3061 (narrow-to-region | 3057 (narrow-to-region |
3062 (goto-char (point-min)) | 3058 (goto-char (point-min)) |
3063 (if (search-forward "\n\n" nil 'move) | 3059 (if (search-forward "\n\n" nil 'move) |
3064 (1+ (match-beginning 0)) | 3060 (1+ (match-beginning 0)) |