(gnus-summary-save-in-pipe): Consider gnus-save-all-headers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e65c4b3..9b14bf0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-22  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-summary-save-in-pipe): Consider
+       gnus-save-all-headers.
+
 2008-07-18  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lpath.el: Fbind ns-focus-frame for Emacs 21, 22, XEmacs 21.4, and

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 89dee7f..d91cbbe 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3973,12 +3973,14 @@ The directory to save in defaults to `gnus-article-save-directory'."
                     (setq save-buffer
                           (nnheader-set-temp-buffer " *Gnus Save*"))))
                  ;; Remove unwanted headers.
-                 (let ((gnus-visible-headers
-                        (or (symbol-value (get gnus-default-article-saver
-                                               :headers))
-                            gnus-saved-headers gnus-visible-headers))
-                       (gnus-summary-buffer nil))
-                   (article-hide-headers 1 t)))
+                 (when (or (get 'gnus-summary-save-in-pipe :headers)
+                           (not gnus-save-all-headers))
+                   (let ((gnus-visible-headers
+                          (or (symbol-value (get 'gnus-summary-save-in-pipe
+                                                 :headers))
+                              gnus-saved-headers gnus-visible-headers))
+                         (gnus-summary-buffer nil))
+                     (article-hide-headers 1 t))))
              (error "%d is not a real article" article))
          (error "No article to pipe"))))
     (unless (stringp command)