Changes committed gnus/lisp (ChangeLog gnus-art.el)

Modified: ChangeLog gnus-art.el

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


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1889 gnus/lisp/ChangeLog:7.1890
--- ChangeLog:7.1889	Fri Jul 18 04:28:55 2008
+++ ChangeLog	Wed Jul 23 01:10:51 2008
@@ -1,3 +1,8 @@
+2008-07-22  Katsumi Yamaoka  <[email protected]>
+
+	* gnus-art.el (gnus-summary-save-in-pipe): Consider
+	gnus-save-all-headers.
+
 2008-07-18  Katsumi Yamaoka  <[email protected]>
 
 	* lpath.el: Fbind ns-focus-frame for Emacs 21, 22, XEmacs 21.4, and
Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.276 gnus/lisp/gnus-art.el:7.277
--- gnus-art.el:7.276	Fri Jul 11 01:58:14 2008
+++ gnus-art.el	Wed Jul 23 01:10:51 2008
@@ -3973,12 +3973,14 @@
 		     (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)