Changes committed gnus/texi (ChangeLog gnus.texi)

Modified: ChangeLog gnus.texi

(Saving Articles): Describe the 2nd argument of gnus-summary-save-in-pipe.
(SpamAssassin): Use it.


Index: ChangeLog
diff -u gnus/texi/ChangeLog:7.416 gnus/texi/ChangeLog:7.417
--- ChangeLog:7.416	Tue Jul 22 13:34:54 2008
+++ ChangeLog	Fri Jul 25 01:57:04 2008
@@ -1,3 +1,9 @@
+2008-07-24  Katsumi Yamaoka  <[email protected]>
+
+	* gnus.texi (Saving Articles): Describe the 2nd argument of
+	gnus-summary-save-in-pipe.
+	(SpamAssassin): Use it.
+
 2008-07-22  Katsumi Yamaoka  <[email protected]>
 
 	* gnus.texi (SpamAssassin): Fix gnus-summary-save-in-pipe usage.
Index: gnus.texi
diff -u gnus/texi/gnus.texi:7.301 gnus/texi/gnus.texi:7.302
--- gnus.texi:7.301	Wed Jul 23 02:35:33 2008
+++ gnus.texi	Fri Jul 25 01:57:04 2008
@@ -8619,14 +8619,23 @@
 
 @item gnus-summary-save-in-pipe
 @findex gnus-summary-save-in-pipe
-Pipe the article to a shell command.  This function takes optional one
-argument; if it is a string, it is used as the command; if it is
-@code{nil} or omitted, you will be prompted for the command; if it is
-the symbol @code{default}, the command which the
-@code{gnus-summary-pipe-output-default-command} variable holds or the
-command last used for saving will be used if it is non-@code{nil}.  The
-command should be a string that the shell can interpret (e.g. the
-executable command name and the arguments).
+Pipe the article to a shell command.  This function takes optional two
+arguments COMMAND and RAW.  Valid values for COMMAND include:
+
+@itemize @bullet
+@item a string@*
+The executable command name and possibly arguments.
+@item @code{nil}@*
+You will be prompted for the command in the minibuffer.
+@item the symbol @code{default}@*
+It will be replaced with the command which the variable
+@code{gnus-summary-pipe-output-default-command} holds or the command
+last used for saving.
+@end itemize
+
+Non-@code{nil} value for RAW overrides @code{:decode} and
+@code{:headers} properties (see below) and the raw article including all
+headers will be piped.
 @end table
 
 The symbol of each function may have the following properties:
@@ -24681,15 +24690,7 @@
 (defun my-gnus-raze-spam ()
   "Submit SPAM to Vipul's Razor, then mark it as expirable."
   (interactive)
-  (let ((decode (get 'gnus-summary-save-in-pipe :decode))
-        (headers (get 'gnus-summary-save-in-pipe :headers))
-        (gnus-save-all-headers t))
-    (put 'gnus-summary-save-in-pipe :decode nil)
-    (put 'gnus-summary-save-in-pipe :headers nil)
-    (unwind-protect
-        (gnus-summary-save-in-pipe "razor-report -f -d")
-      (put 'gnus-summary-save-in-pipe :decode decode)
-      (put 'gnus-summary-save-in-pipe :headers headers)))
+  (gnus-summary-save-in-pipe "razor-report -f -d" t)
   (gnus-summary-mark-as-expirable 1))
 @end lisp