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 73a4ed18c52d8add35bf8822ceed9a8a790c2362..77eddb9ea4b67af503eb91c8b909a2241383b6b4 100644 (file)
--- 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))