# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 780380422 0
# Node ID 1f55bc3c629e1b6928c2a4a6371d2cbb2f9d49e6
# Parent  10b791eec6dc48758edbeb8b3e17cd95db457bfe
(rmail-reformat-message): Run mail-message-filter
before calling rmail-clear-headers.

diff -r 10b791eec6dc -r 1f55bc3c629e lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sat Sep 24 04:15:03 1994 +0000
+++ b/lisp/mail/rmail.el	Sat Sep 24 04:20:22 1994 +0000
@@ -1162,8 +1162,8 @@
       (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))