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

(SpamAssassin): Use it.

diff --git a/texi/ChangeLog b/texi/ChangeLog
index f00787d..7e6b646 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,9 @@
+2008-07-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus.texi (Saving Articles): Describe the 2nd argument of
+       gnus-summary-save-in-pipe.
+       (SpamAssassin): Use it.
+
 2008-07-22  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus.texi (SpamAssassin): Fix gnus-summary-save-in-pipe usage.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index a490a15..ce5913e 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -8619,14 +8619,23 @@ reader to use this setting.
 
 @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 @@ spam.  And here is the nifty function:
 (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