From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Tue, 22 Jul 2008 11:34:54 +0000 (+0000)
Subject: (SpamAssassin): Fix gnus-summary-save-in-pipe usage.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=f3821b76cabfdc7510d0ef46dd441ebe1e2030cd;p=gnus

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

diff --git a/texi/ChangeLog b/texi/ChangeLog
index c89853106..f00787d7f 100644
--- 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 7e41f97b2..3af1724c9 100644
--- 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