From 7e5421db8f85dd557d336dcfebf0d12b06573f42 Mon Sep 17 00:00:00 2001 From: tfheen Date: Wed, 6 Aug 2003 10:01:17 +0000 Subject: [PATCH] using posting personalities and such. git-svn-id: file:///svn/tfheen/trunk/dotfiles@175 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- gnus | 53 ++++++++++++++++++++++++++++++++++++++--------------- 1 file changed, 38 insertions(+), 15 deletions(-) diff --git a/gnus b/gnus index 950a8be..9f408cf 100644 --- 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 ") + (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: "))) ((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 ") + (Organization "Samfundet - ITK") + (x-url "http://www.samfundet.no")) + ; Hardware.no-ting + ("nnml:drift.hardware.*\\|nntp\\+news.hardware.no" + (From "Tollef Fog Heen ") + (Organization "Hardware.no - drift") + (x-url "http://www.hardware.no")) + ; PVV + ("nnml:drift.pvv.*" + (From "Tollef Fog Heen ") + (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))) -- 2.39.5