From 423c0dfa27e08de36fa68331130943166823a2ef Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 24 Sep 1994 04:20:22 +0000 Subject: [PATCH] (rmail-reformat-message): Run mail-message-filter before calling rmail-clear-headers. --- lisp/mail/rmail.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index a039dea4cdb..114a7917132 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -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)) -- 2.39.5