update tfheen-mark-as-spam to work a little bit better

git-svn-id: file:///svn/tfheen/trunk/dotfiles@225 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf

diff --git a/gnus b/gnus
index 2a5ac7e4fdb21646df3117d9acffb38d35e3695a..2082972a13e8534b3dd210eb6a99cd67d4a5b24b 100644 (file)
--- a/gnus
+++ b/gnus
@@ -718,9 +718,12 @@ on multiple mail-followup-to headers"
 
 (defun tfheen-mark-as-spam ()
   (interactive)
-;    (gnus-summary-pipe-message "sa-learn --spam --single")
-  (gnus-summary-pipe-message (expand-file-name "~/bin/sa-learnd"))
-  (gnus-summary-move-article nil "nnml:spam"))
+  (let ((gnus-inhibit-treatment t)
+        (mm-text-html-renderer 'lynx))
+    (gnus-summary-pipe-message "sa-learn --spam --single")
+    (gnus-summary-pipe-message (expand-file-name "~/bin/sa-learnd"))
+    (gnus-summary-move-article nil "nnml:spam")
+    (gnus-summary-next-subject 1)))
 
 (cw/for-host "yiwaz"
   (define-key gnus-summary-backend-map "s" 'tfheen-mark-as-spam)