mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-reformat-message): Run mail-message-filter

Browse source 
before calling rmail-clear-headers.
This commit is contained in:
Richard M. Stallman 1994-09-24 04:20:22 +00:00
parent e7070c01b1
commit 423c0dfa27
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/rmail.el
View file

@ -1162,8 +1162,8 @@ This function runs `rmail-get-new-mail-hook' before saving the updated file."
(insert str "*** EOOH ***\n")
(narrow-to-region (point) (- (buffer-size) delta)))
(goto-char (point-min))
(if rmail-ignored-headers (rmail-clear-headers))
(if rmail-message-filter (funcall rmail-message-filter))))
(if rmail-message-filter (funcall rmail-message-filter))
(if rmail-ignored-headers (rmail-clear-headers))))
(defun rmail-clear-headers (&optional ignored-headers)
(or ignored-headers (setq ignored-headers rmail-ignored-headers))