@lisp
(defun my-gnus-raze-spam ()
- "Invoke SpamAssassin reporting , then mark it as expirable."
+ "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))
(put 'gnus-summary-save-in-pipe :decode nil)
(put 'gnus-summary-save-in-pipe :headers nil)
(unwind-protect
- (gnus-summary-save-in-pipe "spamassassin -r")
+ (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-mark-as-expirable 1))