diff options
| -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'." | |||
| 1769 | (defun rmail-msg-is-pruned () | 1769 | (defun rmail-msg-is-pruned () |
| 1770 | (rmail-maybe-set-message-counters) | 1770 | (rmail-maybe-set-message-counters) |
| 1771 | (save-restriction | 1771 | (save-restriction |
| 1772 | (narrow-to-region (rmail-msgbeg rmail-current-message) (point-max)) | ||
| 1772 | (save-excursion | 1773 | (save-excursion |
| 1773 | (narrow-to-region (rmail-msgbeg rmail-current-message) (point-max)) | 1774 | (goto-char (point-min)) |
| 1774 | (if (not (or (= ?\n (char-after (point))) | 1775 | (forward-line 1) |
| 1775 | (= ?\n (char-before (1- (point)))))) | ||
| 1776 | (insert "\n")) | ||
| 1777 | (goto-char (point-min)) | ||
| 1778 | (forward-line 1) | ||
| 1779 | (= (following-char) ?1)))) | 1776 | (= (following-char) ?1)))) |
| 1780 | 1777 | ||
| 1781 | (defun rmail-toggle-header (&optional arg) | 1778 | (defun rmail-toggle-header (&optional arg) |