From 22e4616e14a8ed846c4d7be9b0d9b26e6ac6bba6 Mon Sep 17 00:00:00 2001 From: tfheen Date: Fri, 27 Feb 2004 12:39:44 +0000 Subject: [PATCH] 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 --- gnus | 26 ++++++++++++++++++-------- 1 file changed, 18 insertions(+), 8 deletions(-) diff --git a/gnus b/gnus index a4f8b02..4644572 100644 --- 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: "))) ((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) -- 2.39.5