From fc765dac95326664a26bddcb87e1d500195d8371 Mon Sep 17 00:00:00 2001 From: tfheen Date: Thu, 28 Aug 2003 09:00:44 +0000 Subject: [PATCH] Add some filters change From to address and make the posting personalities smart Add function to send out diskusage mails git-svn-id: file:///svn/tfheen/trunk/dotfiles@180 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- gnus | 92 ++++++++++++++++++++++++++++++++++++++++++++++++++++-------- 1 file changed, 81 insertions(+), 11 deletions(-) diff --git a/gnus b/gnus index 9f408cf..b559622 100644 --- a/gnus +++ b/gnus @@ -180,6 +180,9 @@ inserts \" characters." '("div.ntnu.klatring" "^\\(To\\|Cc\\):.*tindegruppa@stud.ntnu.no") '("div.ntnu.speider" "^\\(To\\|Cc\\):.*tssg.*@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") '("programmering.banal" "^\\(To\\|Cc\\):.*banal@starnix.com") '("programmering.together" "^To:.*@lists.oi.com") '("programmering.qt.snapshot" "^\\(To\\|Cc:\\).*snapshot-users@troll") @@ -242,7 +245,8 @@ inserts \" characters." '("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" "^\\(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") @@ -465,7 +469,7 @@ inserts \" characters." '( ; Default-verdier (".*" - (From "Tollef Fog Heen ") + (address "tfheen@raw.no") (Organization "Private")) ;; Du vil sikkert ha mer her enn det følgende: @@ -508,24 +512,39 @@ OBS: "))) ((and (message-mail-p) (stringp gnus-newsgroup-name)) ("Mail-Followup-To" (gnus-group-get-parameter gnus-newsgroup-name 'to-address))) ("nnml:in-" - (From (save-excursion - (set-buffer gnus-article-buffer) - (message-fetch-field "to")))) + (address (save-excursion + (set-buffer gnus-article-buffer) + (message-narrow-to-headers-or-head) + (let ((addr (mapconcat '(lambda(x) + (if (string-match gnus-ignored-from-addresses + (car x)) + (car x) nil)) + (append (mail-header-parse-addresses + (message-fetch-field "to")) + (mail-header-parse-addresses + (message-fetch-field "cc"))) + nil))) + (if (string-equal addr "") "tfheen@raw.no" addr))))) ; ITK/Samfundet-ting ("nnml:drift.\\(itk\\|samfundet\\)" - (From "Tollef Fog Heen ") + (address "tfheen@samfundet.no") (Organization "Samfundet - ITK") (x-url "http://www.samfundet.no")) ; Hardware.no-ting ("nnml:drift.hardware.*\\|nntp\\+news.hardware.no" - (From "Tollef Fog Heen ") + (address "tfheen@hardware.no") (Organization "Hardware.no - drift") (x-url "http://www.hardware.no")) ; PVV ("nnml:drift.pvv.*" - (From "Tollef Fog Heen ") + (address "tfheen@pvv.ntnu.no") (Organization "Programvareverkstedet i Trondheim") (x-url "http://www.pvv.ntnu.no")) + ; Kpro + ("nnml:div.ntnu.kpro.*" + (address "tfheen@stud.ntnu.no") + (Organization "Norges Teknisk-Naturvitenskaplige Universitet") + (x-url "http://www.ntnu.no")) )) @@ -693,16 +712,67 @@ on multiple mail-followup-to headers" (add-hook 'message-header-setup-hook 'message-subject-strip-any-re) (setq gnus-treat-display-smileys nil - gnus-ignored-from-addresses "tfheen@\\(add\\.no\\|idi\\.ntnu\\.no\\|debian\\.org\\|stud\\.ntnu\\.no\\|hardware\\.no\\|raw\\.no\\|samfundet.no\\|pvv\\(org\\|ntnu.no\\)\\)\\|tollef@add\\.no\\|tollef-[^@]*@add\\.no") + gnus-ignored-from-addresses "tfheen@\\(add\\.no\\|idi\\.ntnu\\.no\\|debian\\.org\\|stud\\.ntnu\\.no\\|hardware\\.no\\|raw\\.no\\|samfundet.no\\|pvv.\\(org\\|ntnu.no\\)\\)\\|tollef@add\\.no\\|tollef-[^@]*@add\\.no") (cw/requiring-package (deuglify)) (defun tfheen-mark-as-spam () (interactive) - (gnus-summary-pipe-message "sa-learn --spam --single") - (gnus-summary-move-article nil "nnml:spam")) +; (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")) (cw/for-host "yiwaz" (define-key gnus-summary-backend-map "s" 'tfheen-mark-as-spam) (setq message-subscribed-address-functions '(gnus-find-subscribed-addresses))) + +(defun tfheen-pvv-split-du-list-and-mail (s) + (interactive "sdu-string:") + (mapcar 'tfheen-pvv-diskusage-mail + (mapcar (lambda (x) (split-string x " +")) + (split-string s "\n")))) + +(defun tfheen-pvv-diskusage-mail (u) +(interactive) +(let ((size (car u)) + (name (cadr u))) + (gnus-summary-mail-other-window) + (message-goto-cc) + (insert "drift@pvv.ntnu.no") +(message-goto-reply-to) +(insert "drift@pvv.ntnu.no") +(message-goto-to) +(insert (concat name "@pvv.ntnu.no")) +(message-goto-subject) +(insert (concat "Diskforbruk på PVVs fellesdisk (" name ")")) +(gnus-narrow-to-body) +(insert (format +"[Svar på denne meldingen skal sendes drift@pvv.ntnu.no, ikke til +Tollef Fog Heen personlig.] + +Du brukte i kveld cirka %dMB diskplass på PVVs fellesdisk /home/pvv/d. +Kvoten her er 15MB, så du var godt over den. Ettersom disken er nesten +full, ber vi om at du umiddelbart sletter filer slik at du kommer +under kvoten på 15MB. + +Dersom du har behov for MER enn 15MB plass, MÅ du kjøpe din egen +partisjon, se http://www.pvv.ntnu.no/disk/ for mer informasjon. + +Dersom du har bestilt, men enda ikke har fått partisjon allerede, ber +vi om at du sender oss informasjon om når du bestilte og hvor mye disk +du skal ha, så skal vi opprette den så snart som mulig. + +Ettersom /home/pvv/d er svært full, kan vi ikke gi utvidede kvoter for +kortare tid, og vi vil derfor måtte slette slik at du kommer under +kvoten på 15MB dersom du ikke selv gjør dette innan 2 (to) døgn, +dvs. onsdag ettermiddag. + +Full disk medfører at andre brukere på PVV, som holder seg innenfor +kvotene vi har satt, blant annet ikke kan motta epost. + +For PVV drift, +Tollef Fog Heen + +" (/ (string-to-int size) 1024))) +(widen))) -- 2.39.5