diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-27 21:05:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-27 21:05:02 +0000 |
| commit | 903e09b79c08641ff7c51c5b76e2c218f8eea20a (patch) | |
| tree | d6e8c582a8f41d3d7b47b78d21e64d13d5d38282 /lisp/mail | |
| parent | 32eb9671dd52b3950ca2377603194d059d40007b (diff) | |
| download | emacs-903e09b79c08641ff7c51c5b76e2c218f8eea20a.tar.gz | |
(rmail-msg-is-pruned): Delete junk from definition.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmail.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 5b9c0f62651..dde5e975989 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1769,13 +1769,10 @@ Otherwise, delete all header fields whose names match `rmail-ignored-headers'." (defun rmail-msg-is-pruned () (rmail-maybe-set-message-counters) (save-restriction + (narrow-to-region (rmail-msgbeg rmail-current-message) (point-max)) (save-excursion - (narrow-to-region (rmail-msgbeg rmail-current-message) (point-max)) - (if (not (or (= ?\n (char-after (point))) - (= ?\n (char-before (1- (point)))))) - (insert "\n")) - (goto-char (point-min)) - (forward-line 1) + (goto-char (point-min)) + (forward-line 1) (= (following-char) ?1)))) (defun rmail-toggle-header (&optional arg) |