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 0555ed9d9da5d17bb0d9e7f2f156abc4da4d0720..67d2952c87afbb2779aedc864d74e0e0d0bd89f1 100644 (file)
--- 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)