From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 24 Sep 1994 04:20:22 +0000 (+0000)
Subject: (rmail-reformat-message): Run mail-message-filter
X-Git-Tag: emacs-19.34~6792
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=423c0dfa27e08de36fa68331130943166823a2ef;p=emacs.git

(rmail-reformat-message): Run mail-message-filter
before calling rmail-clear-headers.
---

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