From: tfheen <tfheen@8da78d58-1cd3-0310-bee5-d77bd1b3e8bf>
Date: Tue, 17 Apr 2007 06:32:39 +0000 (+0000)
Subject: Add mark-as-ham, give correct name for the process and twiddle gnus-demon stuff
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5b2a555d6bd1da551270cf3c47a84a37b61af0b1;p=dotfiles

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
---

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 <URL:> 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))