(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 a039dea4cdbecbc9b6f57a77ea6f186fcc5ce2e3..114a79171320207578832131e3c7f71b4c07087a 100644 (file)
--- 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))