use lynx as html renderer; add some lists, fix up mail-followup-to

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

diff --git a/gnus b/gnus
index a4f8b02d4bbbb3da840e5f669c5527ff27212392..46445720696040d02da5d5e9d386fd14d9927720 100644 (file)
--- a/gnus
+++ b/gnus
@@ -191,13 +191,16 @@ inserts \" characters."
            '("div.samfundet.diskusjon" "^\\(To\\|Cc\\):.*diskusjon@samfundet.no")
            '("div.samfundet.info" "^\\(To\\|Cc\\):.*info@samfundet.no")
            '("div.samfundet.gjenger" "^\\(To\\|Cc\\):.*gjenger@samfundet.no")
-            '("div.ntnu.klatring" "^\\(To\\|Cc\\):.*tindegruppa@stud.ntnu.no")
+            '("div.ntnu.klatring" "^\\(To\\|Cc\\):.*tindegruppa.list.stud.ntnu.no")
             '("div.ntnu.speider" "^List-Id.*tssg.list.stud.ntnu.no")
             '("div.ntnu.fritt-forum" "^List-Id:.*fritt-forum.list.pvv.org")
             '("div.ntnu.programvarekvalitet" "^List-Id:.*kvalitet.raw.no")
             '("div.ntnu.kpro.kpro" "^List-Id:.*kpro.raw.no")
             '("div.ntnu.kpro.kpro-alle" "^List-Id:.*kpro-alle.raw.no")
             '("div.ntnu.eit.iktkunst" "^List-Id:.*iktkunst\\(.lists\\)?.raw.no")
+            '("div.ntnu.progark.devel" "^List-Id:.*progark10-devel.list.stud.ntnu.no")
+            '("div.ntnu.progark.commits" "^List-Id:.*progark10-commits.list.stud.ntnu.no")
+            '("div.ntnu.plandrift.drift" "^List-Id:.*iisdrift.lists.raw.no")
            '("programmering.banal" "^\\(To\\|Cc\\):.*banal@starnix.com")
            '("programmering.together" "^To:.*@lists.oi.com")
            '("programmering.qt.snapshot" "^\\(To\\|Cc:\\).*snapshot-users@troll")
@@ -222,6 +225,10 @@ inserts \" characters."
             '("linux.progeny.pgi-workers" "^List-Id.*pgi-workers.lists.progeny.com")
             '("linux.progeny.discover-workers" "^List-Id.*discover-workers.lists.progeny.com")
             
+           '("linux.debian.packages.mailman.hackers" "^List-Id:.*pkg-mailman-hackers.lists.alioth.debian.org")
+           '("linux.debian.packages.dpkg.debian-dpkg" "^List-Id:.*debian-dpkg.lists.debian.org")
+           '("linux.debian.packages.dpkg.dpkg-rebels" "^List-Id:.*dpkg-rebels.raw.no")
+           '("linux.debian.packages.dpkg.dpkg-commits" "^List-Id:.*dpkg-commits.raw.no")
            '("linux.debian.debconf3.debcamp-participants" "^List-Id:.*debcamp.skolelinux.no")
            '("linux.debian.debconf3.debconf3" "^List-Id:.*debconf.skolelinux.no")
            '("linux.debian.amd64.2004" "^List-Id:.*debian-amd64.lists.debian.org")
@@ -566,13 +573,14 @@ 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-group-get-parameter gnus-newsgroup-name 'to-address)
-                             (if (tfheen-debian-group-p)
-                                 (mapconcat '(lambda(x) 
-                                               (if (string-match ".*@lists.debian.org" (car x))
-                                                   (car x) nil))
-                                (tfheen-get-recipients-parsed)
-                                nil)))))
+     ("Mail-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)
+;                                 (mapconcat '(lambda(x) 
+;                                               (if (string-match ".*@lists.debian.org" (car x))
+;                                                   (car x) nil))
+;                                (tfheen-get-recipients-parsed)
+;                                nil)))))
                               
 ;    ((and (message-mail-p) (stringp gnus-newsgroup-name) (tfheen-debian-group-p))
 ;     (to (tfheen-debian-find-recipients))
@@ -777,6 +785,8 @@ on multiple mail-followup-to headers"
 
 (cw/requiring-package (deuglify))
 
+(setq mm-text-html-renderer 'lynx)
+
 (defun tfheen-mark-as-spam ()
   (interactive)
   (let ((gnus-inhibit-treatment t)