'("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")
'("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")
'(
; 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:
((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"))
))
(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)))