(message-forward-make-body-mml): Remove headers according to

 message-forward-ignored-headers if a message is decoded.
(message-forward-make-body-plain): Always remove headers according to
 message-forward-ignored-headers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c2bfccc..c5f17bf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2004-12-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * message.el (message-forward-make-body-mml): Remove headers
+       according to message-forward-ignored-headers if a message is
+       decoded.
+
+2004-12-02  Romain Francoise  <romain@orebokech.com>
+
+       * message.el (message-forward-make-body-plain): Always remove
+       headers according to message-forward-ignored-headers.
+
 2004-12-01  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * spam.el (spam-summary-prepare-exit): remove the

diff --git a/lisp/message.el b/lisp/message.el
index 3ee9a3e..16d5f84 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6258,8 +6258,7 @@ Optional DIGEST will use digest to forward."
     (setq e (point))
     (insert
      "\n-------------------- End of forwarded message --------------------\n")
-    (when (and (not current-prefix-arg)
-              message-forward-ignored-headers)
+    (when message-forward-ignored-headers
       (save-restriction
        (narrow-to-region b e)
        (goto-char b)
@@ -6305,7 +6304,7 @@ Optional DIGEST will use digest to forward."
        (goto-char (point-max))))
     (setq e (point))
     (insert "<#/mml>\n")
-    (when (and (not current-prefix-arg)
+    (when (and (not message-forward-decoded-p)
               message-forward-ignored-headers)
       (save-restriction
        (narrow-to-region b e)