From b80d1fd0c02cb965aecb47590c41b20fb90db6e3 Mon Sep 17 00:00:00 2001 From: tfheen Date: Mon, 31 Mar 2008 08:31:39 +0000 Subject: [PATCH] luxevop wants to handle spam too git-svn-id: file:///svn/tfheen/trunk/dotfiles@1192 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- gnus | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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) -- 2.39.5