using posting personalities and such.

git-svn-id: file:///svn/tfheen/trunk/dotfiles@175 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf

diff --git a/gnus b/gnus
index 950a8be21869234751e282d14ca0ae1edd362c32..9f408cfc64e15b48e7d92a8b989fc36c8e240a9b 100644 (file)
--- a/gnus
+++ b/gnus
@@ -145,7 +145,7 @@ inserts \" characters."
            '("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" "^\\(To\\|Cc\\):.*itk-intern@.*\\(samfundet\\|stud\\)")
+           '("drift.itk.intern" "^Delivered-To:.*itk-intern@.*\\(samfundet\\|stud\\)")
            '("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")
@@ -281,7 +281,7 @@ inserts \" characters."
 (cw/requiring-package (schizo)
   (setq schizo-default-mail-from "tfheen@raw.no")
   (setq schizo-default-news-from "tollef-news@add.no")
-  (add-hook 'message-send-hook 'schizo-select)
+;  (add-hook 'message-send-hook 'schizo-select)
   (setq schizo-select-list '(("t.f.heen@jus.uio.no"
                               "Tollef Fog Heen"
                               "University of Oslo, Norway"
@@ -426,7 +426,7 @@ inserts \" characters."
 
 ;(add-hook 'gnus-article-display-hook 'gnus-article-hide-pgp)
 ;(add-hook 'message-send-hook 'tfheen-escape-url)
-(add-hook 'message-send-hook 'tfheen-maybe-sign)
+;(add-hook 'message-send-hook 'tfheen-maybe-sign)
 (add-hook 'message-send-hook 'tfheen-check-mail-followup-to)
 ;(add-hook 'mc-pre-encryption-hook 'tfheen-escape-url)
 ;(add-hook 'mc-pre-signature-hook 'tfheen-escape-url)
@@ -462,11 +462,15 @@ inserts \" characters."
 (setq adaptive-fill-regexp (substring (default-value 'paragraph-start) 1 -1))
 
 (setq gnus-posting-styles
-  '(;; Du vil sikkert ha mer her enn det følgende:
-    ("drift.news.nag.submissions" ;; Antar at man får
-                                      ;; moderator-mail hit
-     (From
-      ;; settes til bidragsyters adresse ved posting
+  '(
+    ; Default-verdier
+    (".*" 
+     (From "Tollef Fog Heen <tfheen@raw.no>")
+     (Organization "Private"))
+
+    ;; Du vil sikkert ha mer her enn det følgende:
+    ("drift.news.nag.submissions" ;; Antar at man får moderator-mail hit
+     (From ;; settes til bidragsyters adresse ved posting
       (save-excursion
        (set-buffer gnus-article-buffer)
         (message-fetch-field "from" t)))
@@ -502,11 +506,27 @@ inserts \" characters."
 Send bidrag til no-alt-gullkorn@moderators.usenet.no
 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)))))
-
-
-;    (".*" 
-;     ("X-No-Archive" (tfheen-random-from-list '("Maybe" "Sometimes" "What!?" "That might be an idea"))))))
+     ("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"))))
+    ; ITK/Samfundet-ting
+    ("nnml:drift.\\(itk\\|samfundet\\)"
+     (From "Tollef Fog Heen <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>")
+     (Organization "Hardware.no - drift")
+     (x-url "http://www.hardware.no"))
+    ; PVV
+    ("nnml:drift.pvv.*"
+     (From "Tollef Fog Heen <tfheen@pvv.ntnu.no>")
+     (Organization "Programvareverkstedet i Trondheim")
+     (x-url "http://www.pvv.ntnu.no"))
+))
 
 
 (defun tfheen-set-fill-prefix () 
@@ -672,7 +692,8 @@ on multiple mail-followup-to headers"
              (concat "Subject: " message-re-string  replacement)))))))
 
 (add-hook 'message-header-setup-hook 'message-subject-strip-any-re)
-(setq gnus-treat-display-smileys nil)
+(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")
 
 (cw/requiring-package (deuglify))
 
@@ -682,4 +703,6 @@ on multiple mail-followup-to headers"
     (gnus-summary-move-article nil "nnml:spam"))
 
 (cw/for-host "yiwaz"
-  (define-key gnus-summary-backend-map "s" 'tfheen-mark-as-spam))
+  (define-key gnus-summary-backend-map "s" 'tfheen-mark-as-spam)
+  (setq message-subscribed-address-functions
+        '(gnus-find-subscribed-addresses)))