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

[gnus] / lisp / message.el

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)