(SpamAssassin): Fix gnus-summary-save-in-pipe usage.

diff --git a/texi/ChangeLog b/texi/ChangeLog
index c898531..f00787d 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+2008-07-22  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus.texi (SpamAssassin): Fix gnus-summary-save-in-pipe usage.
+
 2008-07-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus.texi (Saving Articles): Mention

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 7e41f97..3af1724 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -24678,11 +24678,14 @@ might want to have a nifty function to call when you happen to read
 spam.  And here is the nifty function:
 
 @lisp
- (defun my-gnus-raze-spam ()
-  "Submit SPAM to Vipul's Razor, then mark it as expirable."
+(defun my-gnus-raze-spam ()
+  "Invoke SpamAssassin reporting , then mark it as expirable."
   (interactive)
-  (gnus-summary-show-raw-article)
-  (gnus-summary-save-in-pipe "razor-report -f -d")
+  (let ((decode (get 'gnus-summary-save-in-pipe :decode)))
+    (put 'gnus-summary-save-in-pipe :decode nil)
+    (unwind-protect
+        (gnus-summary-save-in-pipe "spamassassin -r")
+      (put 'gnus-summary-save-in-pipe :decode decode)))
   (gnus-summary-mark-as-expirable 1))
 @end lisp