From f3821b76cabfdc7510d0ef46dd441ebe1e2030cd Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 22 Jul 2008 11:34:54 +0000 Subject: [PATCH] (SpamAssassin): Fix gnus-summary-save-in-pipe usage. --- texi/ChangeLog | 4 ++++ texi/gnus.texi | 11 +++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) 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 + + * gnus.texi (SpamAssassin): Fix gnus-summary-save-in-pipe usage. + 2008-07-02 Katsumi Yamaoka * 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 -- 2.34.1