From 5b2a555d6bd1da551270cf3c47a84a37b61af0b1 Mon Sep 17 00:00:00 2001 From: tfheen Date: Tue, 17 Apr 2007 06:32:39 +0000 Subject: [PATCH] Add mark-as-ham, give correct name for the process and twiddle gnus-demon stuff git-svn-id: file:///svn/tfheen/trunk/dotfiles@1008 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- gnus | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/gnus b/gnus index 73a4ed1..77eddb9 100644 --- a/gnus +++ b/gnus @@ -273,12 +273,12 @@ inserts \" characters." message-dont-reply-to-names rmail-dont-reply-to-names ) -(cw/for-host "thosu" - (require 'gnus-demon) +;(cw/for-host "thosu\\|xoog\\|golem" +; (require 'gnus-demon) ; (gnus-demon-add-handler 'gnus-group-get-new-news 10 2) - (gnus-demon-add-handler 'gnus-demon-close-connections 5 t) - (gnus-demon-init) -) +; (gnus-demon-add-handler 'gnus-demon-close-connections 10 t) +; (gnus-demon-init) +;) (defun tfheen-escape-url () "Puts around URLs." @@ -632,7 +632,7 @@ on multiple mail-followup-to headers" (defun tfheen-mark-as-ham () (interactive) (let ((buf (get-buffer-create "*Ham mark*"))) - (start-process "spammark" buf "ssh" "vawad" "ham" (tfheen-fetch-cacheid)))) + (start-process "hammark" buf "ssh" "vawad" "ham" (tfheen-fetch-cacheid)))) (defun tfheen-fetch-cacheid () (save-excursion @@ -648,6 +648,7 @@ on multiple mail-followup-to headers" (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) + (define-key gnus-summary-mode-map "\C-i" 'tfheen-mark-as-ham) (setq pgg-default-user-id "tfheen@raw.no") (setq gnus-subscribe-newsgroup-method 'gnus-subscribe-topics gnus-agent-synchronize-flags t)) -- 2.39.5