From: tfheen <tfheen@8da78d58-1cd3-0310-bee5-d77bd1b3e8bf>
Date: Sat, 13 Dec 2003 20:51:09 +0000 (+0000)
Subject: update tfheen-mark-as-spam to work a little bit better
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=28088c4fad8569a0f31323c7579c3d2bb6411f1e;p=dotfiles

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 2a5ac7e..2082972 100644
--- 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)