only make B s mark as spam on yiwaz

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

diff --git a/gnus b/gnus
index 88b65de4a4b34ffb918b28b54bbce580c641a3d5..f465f81603c8c0df24877e91d198582018daec88 100644 (file)
--- a/gnus
+++ b/gnus
@@ -22,7 +22,8 @@
 
 
 (cw/for-host "yiwaz\\|arabella"
-  (setq gnus-select-method '(nntp "localhost")
+  (setq gnus-select-method '(nntp "news")
+;gnus-select-method '(nntp "localhost")
         gnus-secondary-select-methods '((nnml "")))
   (add-to-list 'gnus-secondary-select-methods '(nntp "news.hardware.no"))
   )
@@ -69,6 +70,7 @@ inserts \" characters."
 (setq nnmail-split-methods 
       (list '("junk.2003" "^From:.*Cron")
            '("spam" "^From:.*lifeminders.com")
+            '("spam" "^From:.*ibd@inbox-deal.com")
            '("spam" "^From:.*@link2buy.com")
            '("spam" "^Subject: =\\?ks_c_5601-1987")
            '("spam" "^Subject:.*Boost Your Windows Reliability!")
@@ -78,6 +80,7 @@ inserts \" characters."
             '("spam" "^Content-Type:.*charset=.*BIG5")
             '("spam" "^Content-Type:.*charset=.*GB2312")
            '("spam" "^Subject:.*±¤°í")
+            '("spam" "^Subject:.*±¤°í")
             ; Hand-moderated lists over automatic spam detection
            '("bugtraq.2003" "^Delivered-To:.*bugtraq@securityfocus.com")
             '("maybe-spam" "^X-Spam-Status: Yes")
@@ -191,6 +194,7 @@ inserts \" characters."
             '("linux.progeny.pgi-workers" "^List-Id.*pgi-workers.lists.progeny.com")
             '("linux.progeny.discover-workers" "^List-Id.*discover-workers.lists.progeny.com")
             
+           '("linux.debian.apache-cvs.2003" "^To.*debian-apache@lists.raw.no")
            '("linux.debian.hurd-testdrive" "List-Id.*hurd-testdrive.moneybags.cs.uml.edu")
            '("linux.debian.dwn.2003" "^Delivered-To.*dwn@debian.org")
            '("linux.debian.cd.2003" "^X-Mailing-List.*debian-cd")
@@ -658,3 +662,11 @@ on multiple mail-followup-to headers"
 (setq gnus-treat-display-smileys nil)
 
 (cw/requiring-package (deuglify))
+
+(defun tfheen-mark-as-spam ()
+  (interactive)
+    (gnus-summary-pipe-message "sa-learn --spam --single")
+    (gnus-summary-move-article nil "nnml:spam"))
+
+(cw/for-host "yiwaz"
+  (define-key gnus-summary-backend-map "s" 'tfheen-mark-as-spam))