"SPAM \e$B$N=hM}$r\e(B Vipul \e$B$N\e(B Razor \e$B$K0Q$M$F$+$i!"\e(B
 \e$B$=$l$K4|8B@Z$l>C5n2DG=$N0u$rIU$1$^$9!#\e(B"
   (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