Fix backtrace, add demon mode

git-svn-id: file:///svn/tfheen/trunk/dotfiles@939 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf

diff --git a/gnus b/gnus
index ac1aba07755d428c9c4f0869eb9cca0588f3785b..d1bc05f09bfb7473ebeb7801a1628edd217f29f0 100644 (file)
--- a/gnus
+++ b/gnus
@@ -272,6 +272,14 @@ inserts \" characters."
       message-dont-reply-to-names rmail-dont-reply-to-names
 )
 
+(cw/for-host "thosu"
+  (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)
+)
+
+
 (defun tfheen-escape-url () "Puts <URL:> around URLs."
 (interactive)
 (save-excursion 
@@ -350,7 +358,8 @@ inserts \" characters."
     ; Default-verdier
     (".*" 
      (address "tfheen@err.no")
-     (Organization "Private"))
+;     (Organization "Private")
+     (Bcc (concat "tfheen+outgoing" (char-to-string 64) "err.no")))
 
     ;; Du vil sikkert ha mer her enn det følgende:
     ("drift.news.nag.submissions" ;; Antar at man får moderator-mail hit
@@ -390,7 +399,8 @@ inserts \" characters."
 Send bidrag til no-alt-gullkorn@moderators.usenet.no
 OBS: <URL:http://www.stud.ifi.uio.no/~jani/OBS/no-alt-gullkorn.shtml>")))
     ((and (message-mail-p) (stringp gnus-newsgroup-name))
-     ("Mail-Followup-To" (or (gnus-mailing-list-followup-to)
+     ("Mail-Followup-To" (or (and (get-buffer gnus-original-article-buffer)
+                                  (gnus-mailing-list-followup-to))
                              (gnus-group-get-parameter gnus-newsgroup-name 'to-address))))
 ;     ("Mail-Followup-To" (or (gnus-group-get-parameter gnus-newsgroup-name 'to-address)
 ;                             (if (tfheen-debian-group-p)