From 0cf55f00e37afd134b0c44ae43a1ef2067e454d8 Mon Sep 17 00:00:00 2001 From: tfheen Date: Wed, 24 Aug 2005 10:08:12 +0000 Subject: [PATCH] various updates git-svn-id: file:///svn/tfheen/trunk/dotfiles@819 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- gnus | 222 ++--------------------------------------------------------- 1 file changed, 4 insertions(+), 218 deletions(-) diff --git a/gnus b/gnus index ab6e2ed..c5bd0fb 100644 --- a/gnus +++ b/gnus @@ -96,216 +96,6 @@ inserts \" characters." (t mail-close-quote))))) - -(setq nnmail-split-methods - (list '("junk.2004" "^From:.*Cron") - '("spam" "^From:.*lifeminders.com") - '("spam" "^From:.*qualityemail.com") - '("spam" "^From:.*ibd@inbox-deal.com") - '("spam" "^From:.*@link2buy.com") - '("spam" "^Subject: =\\?ks_c_5601-1987") - '("spam" "^Subject:.*Boost Your Windows Reliability!") - '("spam" "^Subject:.*Xsamplesampledesktopdesktopsamplesampledesktopsamplesamplesamplesamplesampledesktopsamplesamplesamplesampledesktopsamplesampledesktopdesktopsamplesamplesampledesktopsampledesktopdesktopdesktopdesktopdesktopsamplesampledesktopdesktopsampledesktopsampledesktadd.nodesktop") - '("spam" "^From: spam_filter@linuxfreemail.com") - '("spam" "^Content-Type:.*charset=.*KS_C_5601-1987") - '("spam" "^Content-Type:.*charset=.*BIG5") - '("spam" "^Content-Type:.*charset=.*GB2312") - '("spam" "^Subject:.*±¤°í") - '("spam" "^Subject:.*±¤°í") - ; Hand-moderated lists over automatic spam detection - '("bugtraq.2004" "^Delivered-To:.*bugtraq@securityfocus.com") - '("maybe-spam" "^X-Spam-Status: Yes") - '("infobeat" "^From:.*InfoBeat") - '("in-2004-news" "^Delivered-To:.*tollef-news") - '("www.zope.div" "^\\(To\\|Cc\\):.*zope@\\(zope\\|egroups.com\\)") - '("drift.fagerborg" "^\\(To\\|Cc\\):.*drift@.*fagerborg") - '("drift.fagerborg" "^\\(To\\|Cc\\):.*fa-drift") - '("drift.pvv" "^\\(Delivered-To\\|\\):.*drift@pvv") - '("drift.pvv.aktive" "^\\(Delivered-To\\|\\):.*aktive@pvv") - '("drift.pvv.styret" "^\\(Delivered-To\\|\\):.*pvv@pvv") - '("drift.pvv.styret" "^\\(Delivered-To\\|\\):.*styret?@pvv") - '("drift.pvv.tk" "^\\(Delivered-To\\|\\):.*tk@pvv") - '("drift.pvv.cert" "^\\(Delivered-To\\|\\):.*cert@pvv") - '("drift.pvv.root" "^\\(Delivered-To\\|\\):.*root@pvv") - '("drift.pvv.sherlock" "^\\(Delivered-To\\|\\):.*sherlock@pvv") - '("drift.pvv.nerds" "^\\(Delivered-To\\|\\):.*nerds@pvv") - '("drift.pvv.abuse" "^\\(Delivered-To\\|\\):.*abuse@pvv") - '("drift.pvv.nuccc-2004" "^List-Id:.*nuccc.list.pvv.org") - - '("drift.opera.diverse" "^\\(X-BeenThere\\|To\\|Cc\\):.*server@opera") - '("drift.opera.www.opera.com" "^From:.*root@opera.com") - '("drift.opera.security" "^\\(To\\|Cc\\):.*\\(security\\|security-issues\\)@opera") - '("jobb.opera.elektra" "^List-Id:.*elektra.opera") - '("drift.uio" "^\\(To\\|Cc\\):.*linux-drift@uio") - '("drift.egroups" "^\\(To\\|Cc\\):.*egroups-managers") - '("drift.opera.news" "^To:.*\\(usenet@\\|news@\\).*opera") - '("drift.opera.news" "^To:.*\\(usenet@\\|news@\\).*pvv") - '("drift.raw.news" "^To:.*\\(usenet@\\|news@\\).*raw") - '("drift.opera.epost" "^To:.*\\(postmaster\\|root\\)@opera") - '("drift.opera.backup" "^To:.*tollef-opera-backup") - '("drift.opera.staff" "^\\(To\\|Cc\\):.*staff@.*opera") - '("drift.opera.oslo" "^\\(To\\|Cc\\):.*oslo@.*opera") - '("drift.opera.linux" "^\\(To\\|Cc\\):.*opera-linux@opera") - '("drift.opera.panic" "^\\(To\\|Cc\\):.*panic@opera") - '("drift.opera.mac-developer" "^List-Id:.*mac-developer.opera.no") - '("drift.opera.epostlister" "^\\(To\\|Cc\\):.*admin@opera") - '("drift.opera.epostlister" "^\\(To\\|Cc\\):.*owner@opera") - '("drift.opera.emergency" "^\\(To\\|Cc\\):.*tfheen-netsaint@opera") - '("drift.hardware.sherlock" "^\\(To\\|Delivered-To\\|Envelope-to\\):.*sherlock@hardware") - '("drift.hardware.emergency" "^From:.*netsaint@.*hardware") - '("drift.hardware.news" "^\\(To\\|Cc\\|Delivered-To\\):.*usenet@.*hardware.no") - '("drift.hardware.drift" "^\\(To\\|Cc\\|Delivered-To\\):.*drift@hardware.no") - '("drift.hardware.driftint" "^Envelope-To:.*driftint.hardware") - '("drift.hardware.firewall" "^\\(To\\|Cc\\|Delivered-To\\):.*firewall@webdeal.no") - '("drift.hardware.rt" "^To:.*AdminCc of hw.no") - - '("drift.samfundet.gsf" "^\\(To\\|Cc\\):.*gsf@.*\\(samfundet\\|stud\\)") - '("drift.samfundet.gsk" "^\\(To\\|Cc\\):.*gsk@.*\\(samfundet\\|stud\\)") - '("drift.isfit.it-admin" "Delivered-To:.*it-admin@isfit.org") - '("drift.isfit.mail" "Subject: bayer.isfit.org Daily Mail Report") - '("drift.isfit.logwatch" "Subject: LogWatch for bayer.isfit.org") - '("drift.lis.drift" "^\\(To\\|Cc\\|Delivered-To\\):.*drift@sk[ou]lelinux.no") - '("drift.itk.rt" "^X-RT-Loop-Prevention: \\(samfundet\\|itk\\)") - '("drift.itk.arpwatch" "From:.*arpwatch@samfundet.no") - '("drift.itk.kort" "^\\(To\\|Cc\\):.*kort@.*\\(samfundet\\|stud\\)") - '("drift.itk.itk" "^\\(To\\|Cc\\):.*itk@.*\\(samfundet\\|stud\\)") - '("drift.itk.ethernity" "^\\(To\\|Cc\\):.*ethernity@.*\\(samfundet\\|stud\\)") - '("drift.itk.sosialt" "^\\(To\\|Cc\\):.*itk-sosialt@.*\\(samfundet\\|stud\\)") - '("drift.itk.intern" "^List-Id:.*itk-intern.samfundet") - '("drift.itk.intern-intern" "^\\(To\\|Cc\\):.*itk-intern-intern@.*\\(samfundet\\|stud\\)") - '("drift.itk.uka" "^\\(To\\|Cc\\):.*itk@.*uka") - '("drift.itk.uka-itavd" "^\\(To\\|Cc\\):.*itavd@.*uka") - '("drift.itk.unix" "^\\(To\\|Cc\\):.*unix@.*samfundet") - '("drift.itk.sherlock" "^\\(To\\|Cc\\):.*sherlock@.*samfundet") - '("drift.itk.leder" "^\\(To\\|Cc\\):.*itk-leder@.*samfundet") - '("drift.itk.lister" "^From: mailman-owner@lists.samfundet.no") - '("drift.itk.news" "\\(To\\|From\\):.*\\(usenet@\\|news@\\).*samfundet.no") - '("drift.itk.uka-gjengsjefer" "^\\(To\\|Cc\\):.*gjengsjefer@.*uka") - - '("drift.news.nag.intern" "^\\(To\\|Cc\\):.*gullkorn@usenet.no") - '("drift.news.nag.submissions" "^\\(To\\|Cc\\):.*no-alt-gullkorn@moderators") - '("drift.news.localhost" "^\\(To\\|Cc\\):.*usenet@manon") - '("drift.snort.localhost" "^Subject:.*snort daily report") - '("anchordesk" "^From:.*AnchorDesk") - '("postgres" "^\\(To\\|Cc\\):.*announce@postgresql.org") -; '("firma.netscape" "^From:.*@netscape.com") - '("firma.java" "^To:.*JDC.*@Sun.com") - '("firma.java" "^To:.*devflash@eng.sun.com") - '("firma.borland" "To:.*INPR04@BORLAND.COM") - '("firma.div_tilbud" "^From:.*clubpdalist@list.pacbus.com") - '("firma.div_tilbud" "list.cc-inc.com") - '("firma.div_tilbud" "^To:.*Announce@linuxmall.com") - '("firma.div_tilbud" "^From:.*salg@infolink.no") - '("firma.java" "JDCTechTips@sun.com") - '("div.moshez.discuss" "Delivered-To.*moshez-discuss@moshez.org") - '("div.keysign.nuccc-2002" "\\(To\\|Cc\\):.*nuccc\\+keysign@acc.umu.se") - '("div.hemsedal" "^\\(To:.*vaermottakere@skiinfo.no\\|From:.*vaer@skiinfo.no\\)") - '("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.dans.lindy" "^List-Id:.*dans-lindy.list.stud.ntnu.no") - '("div.ntnu.dans.swing-prat" "^List-Id:.*dans-swing-prat.list.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.speider" "^List-Id.*tssg-diskusjon.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") - '("div.hn" "^To:.*hn@coollist.com") - '("div.hn" "^To:.*hw-intern") - '("div.linux-i-skolen" "^List-Id:.*linuxiskolen.skolelinux.no") - '("linux.linux-i-skolen.info" "^List-Id:.*info.skolelinux.no") - '("linux.linux-i-skolen.devel" "^List-Id:.*devel.skolelinux.no") - '("div.registrar" "\\(To\\|Cc\\):.*registrar@norid.no") - '("div.tut" "\\(To\\|Cc\\):.*tut@nvg") - '("div.geekski" "^List-Id.*geekski.hands.com") - '("firma.ibm" "^To:.*techconnect") - '("div.tipworld" "^To:.*tollef-tipworld") - '("freesoftware.europen-se" "^\\(To\\|Cc\\):.*europen-se@dkuug.dk") - '("freesoftware.rekall-devel.2004" "List-Id.*rekall-devel.rekallrevealed.org") - '("freesoftware.cofsino" "List-Id.*cofsino.lists.raw.no") - '("freesoftware.nafs" "List-Id.*nafs.mail.nafs.org") - '("freesoftware.cvs.info" "List-Id.*info-cvs.gnu.org") - '("freesoftware.cvs.bug" "List-Id.*bug-cvs.gnu.org") - '("freesoftware.efn.listen" "List-Id.*efn-listen.ifi.uio.no") - '("linux.spi.private.2004" "^List.*spi-private.lists.spi-inc.org") - '("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.mailman.mm-deb" "^List-Id:.*mm-deb.lists.xlab.net") - '("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") - '("linux.debian.apache-cvs.2004" "^To.*debian-apache@lists.raw.no") - '("linux.debian.apache.2004" "^X-Mailing-List.*debian-apache") - '("linux.debian.hurd-testdrive" "List-Id.*hurd-testdrive.moneybags.cs.uml.edu") - '("linux.debian.dwn.2004" "^Delivered-To.*dwn@debian.org") - '("linux.debian.cd.2004" "^X-Mailing-List.*debian-cd") - '("linux.debian.testing.2004" "^X-Mailing-List.*debian-testing") - '("linux.debian.www.2004" "^X-Mailing-List.*debian-www") - '("linux.debian.debbugs.2004" "^X-Mailing-List.*debian-debbugs") - '("linux.debian.laptop.2004" "^X-Mailing-List.*debian-laptop") - '("linux.debian.ctte.2004" "^X-Mailing-List.*debian-ctte") - '("linux.debian.devel-changes.2004" "^X-Mailing-List.*debian-devel-changes") - '("linux.debian.emacsen.2004" "^X-Mailing-List.*debian-emacsen") - '("linux.debian.policy.2004" "^X-Mailing-List.*debian-policy") - '("linux.debian.project.2004" "^X-Mailing-List.*debian-project") - '("linux.debian.python.2004" "^X-Mailing-List.*debian-python") - '("linux.debian.qa.2004" "^X-Mailing-List.*debian-qa") - '("linux.debian.bsd.2004" "^X-Mailing-List.*debian-bsd") - '("linux.debian.curiosa.2004" "^X-Mailing-List.*debian-curiosa") - '("linux.debian.www-cvs.2004" "^To.*joey-www-cvs@master.debian.org") - '("linux.debian.www-cvs.2004" "^To.*cvsdiff-english@www-master.debian.org") - '("linux.debian.java.2004" "^X-Mailing-List.*debian-java") - '("linux.debian.events-eu.2004" "^X-Mailing-List.*debian-events-eu") - '("linux.debian.boot.2004" "^X-Mailing-List.*debian-boot") - '("linux.debian.boot-cvs.2004" "^Delivered-To: debian-installer_cvs@packages.qa.debian.org") - '("linux.debian.edu.2004" "^List-Id.*debian-edu.lists.debian.org") - '("linux.debian.devel.2004" "^X-Mailing-List.*debian-devel") - '("linux.debian.private.2004" "^X-Mailing-List.*debian-private") - '("linux.debian.mentors.2004" "^X-Mailing-List.*debian-mentors") - '("linux.debian.vote.2004" "^X-Mailing-List.*debian-vote") - '("linux.debian.newmaint.2004" "^X-Mailing-List.*debian-newmaint") - '("linux.debian.changes" "^X-Mailing-List.*debian-changes") - '("linux.debian.news" "^X-Mailing-List.*debian-news") - '("linux.debian.security" "^X-Mailing-List.*debian-security") - '("linux.debian.announce" "^X-Mailing-List.*debian-announce") - '("linux.debian.deb-pgsql" "^\\(To\\|Cc\\|Resent-To\\):.*\\(deb-pgsql\\|debian-postgresql\\)") - '("linux.debian.deb-pgsql" "^List-Id:.*debian-postgresql") - '("linux.helix.updates" "^\\(To\\|Cc\\|Resent-From\\):.*updates@\\(helixcode.com\\|ximian.com\\)") - '("linux.helix.announce" "^\\(To\\|Cc\\|Resent-From\\):.*announce@\\(helixcode.com\\|ximian.com\\)") - '("linux.tuug" "^\\(To\\|Cc\\):.*tuug@nvg") - '("linux.tuug" "^List-Id:.*tuug.tuug") - '("linux.rh.security" "^\\(To\\|Cc\\|Resent-From\\):.*linux-security") - '("linux.rh.alert" "^\\(To\\|Cc\\|Resent-From\\):.*tollef-rh-alert") - '("linux.rh.announce" "^X-BeenThere: redhat-announce-list@redhat.com") - '("linux.rh.watch" "^\\(To\\|Cc\\|Resent-From\\):.*redhat-watch") - '("linux.limacute" "List-Id:.*limacute-list.limacute.org") - '("programmering.koffice" "^\\(To\\|Cc\\|Resent-From\\):.*koffice") - '("programmering.mailman.developer" "^List-Id:.*mailman-developers.python.org") - '("programmering.mailman.user" "^List-Id:.*mailman-users.python.org") - '("programmering.xml-sig" "^List-Id:.*xml-sig.python.org") - '("programmering.ntnu.mugge" "^Delivered-To:.*mugge@samfundet.no") - '("drift.opera.mailer-daemon" "To:.*[Mm]ailer-[Dd]aemon@opera") - '("drift.opera.bounce" "From:.*[Mm]ailer-[Dd]aemon") - '("drift.opera.bounce" "Subject:.*\\([Rr]eturned\\|[Uu]ndeliverable\\) *\\([Mm]ail\\|[Mm]essage\\)") - '("drift.opera.bounce" "Subject: *Mail System Error - Returned Mail") - '("drift.opera.bounce" "Subject: *Delivery failure") - (list (format-time-string "in-%Y-%m") ""))) -(setq gnus-split-methods (reverse-nnml-list-in-list nnmail-split-methods)) -(setq gnus-move-split-methods (reverse-nnml-list-in-list nnmail-split-methods)) (add-hook 'nnmail-prepare-incoming-header-hook 'nnmail-fix-eudora-headers) (defun tfheen-maybe-sign () @@ -816,14 +606,10 @@ on multiple mail-followup-to headers" (defun tfheen-mark-as-spam () (interactive) - (let ((gnus-inhibit-treatment t) - (mm-text-html-renderer 'lynx)) - (gnus-summary-pipe-message "sa-learn --spam --single") - (gnus-summary-pipe-message (expand-file-name "~/bin/sa-learnd")) - (gnus-summary-move-article nil "nnml:spam") - (gnus-summary-next-subject 1))) - -(cw/for-host "yiwaz" + (gnus-summary-move-article nil (format-time-string "spam.%Y-%m")) + (gnus-summary-next-subject 1)) + +(cw/for-host "yiwaz\\|thosu\\|golem" (define-key gnus-summary-backend-map "s" 'tfheen-mark-as-spam) (define-key gnus-summary-mode-map "z" 'tfheen-mark-as-spam) (setq pgg-default-user-id "tfheen@raw.no")) -- 2.39.5