mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(rmail-msg-is-pruned): Delete junk from definition.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-05-27 21:05:02 +00:00
parent 32eb9671dd
commit 903e09b79c
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/mail/rmail.el
View File

@ -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)