From: tfheen <tfheen@8da78d58-1cd3-0310-bee5-d77bd1b3e8bf>
Date: Mon, 31 Mar 2008 08:31:39 +0000 (+0000)
Subject: luxevop wants to handle spam too
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b80d1fd0c02cb965aecb47590c41b20fb90db6e3;p=dotfiles

luxevop wants to handle spam too

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

diff --git a/gnus b/gnus
index 0555ed9..67d2952 100644
--- a/gnus
+++ b/gnus
@@ -639,13 +639,17 @@ on multiple mail-followup-to headers"
 
 (setq mm-text-html-renderer 'lynx)
 
+(setq tfheen-spam-folder (format-time-string "spam.%Y-%m"))
+(cw/for-host "luxevop"
+  (setq tfheen-spam-folder (format-time-string "INBOX/spam.%Y")))
+
 (defun tfheen-mark-as-spam ()
   (interactive)
 ;  (let ((buf (get-buffer-create "*Spam mark*"))
 ;	(cacheid (tfheen-fetch-cacheid)))
 ;    (and cacheid
 ;	 (start-process "spammark" buf "ssh" "vuizook" "spam" cacheid)))
-  (gnus-summary-move-article nil (format-time-string "spam.%Y-%m") nil 'move)
+  (gnus-summary-move-article nil tfheen-spam-folder nil 'move)
   (gnus-summary-next-subject 1))
 
 (defun tfheen-mark-as-ham ()
@@ -663,7 +667,7 @@ on multiple mail-followup-to headers"
     (kill-new (tfheen-fetch-cacheid))
     (widen))
 
-(cw/for-host "yiwaz\\|thosu\\|golem\\|xoog\\|vuizook"
+(cw/for-host "yiwaz\\|thosu\\|golem\\|xoog\\|luxevop\\|vuizook"
   (define-key gnus-summary-backend-map "s" 'tfheen-mark-as-spam)
   (define-key gnus-summary-mode-map "z" 'tfheen-mark-as-spam)
   (define-key gnus-summary-mode-map "v" 'tfheen-kill-ring-cacheid)