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

Modified: ChangeLog gnus-art.el

(gnus-summary-save-in-pipe): Add optional argument `raw'.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1890 gnus/lisp/ChangeLog:7.1891
--- ChangeLog:7.1890	Wed Jul 23 01:10:51 2008
+++ ChangeLog	Fri Jul 25 01:56:56 2008
@@ -1,3 +1,7 @@
+2008-07-24  Katsumi Yamaoka  <[email protected]>
+
+	* gnus-art.el (gnus-summary-save-in-pipe): Add optional argument `raw'.
+
 2008-07-22  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-art.el (gnus-summary-save-in-pipe): Consider
Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.277 gnus/lisp/gnus-art.el:7.278
--- gnus-art.el:7.277	Wed Jul 23 01:10:51 2008
+++ gnus-art.el	Fri Jul 25 01:56:56 2008
@@ -3942,8 +3942,19 @@
 
 (put 'gnus-summary-save-in-pipe :decode t)
 (put 'gnus-summary-save-in-pipe :headers 'gnus-saved-headers)
-(defun gnus-summary-save-in-pipe (&optional command)
-  "Pipe this article to subprocess."
+(defun gnus-summary-save-in-pipe (&optional command raw)
+  "Pipe this article to subprocess COMMAND.
+Valid values for COMMAND include:
+  a string
+    The executable command name and possibly arguments.
+  nil
+    You will be prompted for the command in the minibuffer.
+  the symbol `default'
+    It will be replaced with the command which the variable
+    `gnus-summary-pipe-output-default-command' holds or the command
+    last used for saving.
+Non-nil value for RAW overrides `:decode' and `:headers' properties
+and the raw article including all headers will be piped."
   (let ((save-buffer gnus-save-article-buffer)
 	(default (or gnus-summary-pipe-output-default-command
 		     gnus-last-shell-command)))
@@ -3953,7 +3964,8 @@
     ;; means this function is called independently.
     (unless (gnus-buffer-live-p save-buffer)
       (let ((article (gnus-summary-article-number))
-	    (decode (get 'gnus-summary-save-in-pipe :decode)))
+	    (decode (unless raw
+		      (get 'gnus-summary-save-in-pipe :decode))))
 	(if article
 	    (if (vectorp (gnus-summary-article-header article))
 		(save-window-excursion
@@ -3973,8 +3985,9 @@
 		     (setq save-buffer
 			   (nnheader-set-temp-buffer " *Gnus Save*"))))
 		  ;; Remove unwanted headers.
-		  (when (or (get 'gnus-summary-save-in-pipe :headers)
-			    (not gnus-save-all-headers))
+		  (when (and (not raw)
+			     (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))