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

diff --git a/gnus b/gnus
index 9f408cfc64e15b48e7d92a8b989fc36c8e240a9b..b5596226ed444809fb48eeb61234c1f12419eba5 100644 (file)
--- 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 <tfheen@raw.no>")
+     (address "tfheen@raw.no")
      (Organization "Private"))
 
     ;; Du vil sikkert ha mer her enn det følgende:
@@ -508,24 +512,39 @@ 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" (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 <tfheen@samfundet.no>")
+     (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 <tfheen@hardware.no>")
+     (address "tfheen@hardware.no")
      (Organization "Hardware.no - drift")
      (x-url "http://www.hardware.no"))
     ; PVV
     ("nnml:drift.pvv.*"
-     (From "Tollef Fog Heen <tfheen@pvv.ntnu.no>")
+     (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)))