From 0dab14238e9f5f7dcbee7409b2a7d1158599faec Mon Sep 17 00:00:00 2001
From: tfheen <tfheen@8da78d58-1cd3-0310-bee5-d77bd1b3e8bf>
Date: Tue, 6 May 2008 08:20:59 +0000
Subject: [PATCH] Grab sender from Sender field

git-svn-id: file:///svn/tfheen/trunk/dotfiles@1230 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf
---
 gnus | 49 +++++++++++++++++++++++++++++--------------------
 1 file changed, 29 insertions(+), 20 deletions(-)

diff --git a/gnus b/gnus
index 4bcf61e..593b3ac 100644
--- a/gnus
+++ b/gnus
@@ -93,13 +93,13 @@
 (add-hook 'nntp-server-opened-hook 'nntp-send-authinfo)
 (add-hook 'nntp-server-opened-hook 'nntp-send-mode-reader)
 
-(setq mail-open-quote "«")
-(setq mail-close-quote "»")
+(setq mail-open-quote "«")
+(setq mail-close-quote "»")
 
 (defun mail-insert-quote (arg)
   "Insert the appropriate quote marks for Norwegian mail.
-Inserts the value of `mail-open-quote' (normally «) or `mail-close-quote'
-\(normally ») depending on the context.  With prefix argument, always
+Inserts the value of `mail-open-quote' (normally «) or `mail-close-quote'
+\(normally ») depending on the context.  With prefix argument, always
 inserts \" characters."
   (interactive "*P")
   (if arg
@@ -272,6 +272,15 @@ inserts \" characters."
 ;(add-hook 'gnus-article-prepare-hook 'tfheen-right-quotify)
 (add-hook 'gnus-article-display-hook 'gnus-article-highlight-citation)
 
+(defadvice message-sendmail-envelope-from (around tfheen-set-sendmail-sender activate)
+  "Set the sender to the contents of the Sender field, if present."
+  (if (message-fetch-field "sender")
+      (let ((message-sendmail-envelope-from 
+	     (nth 1 (mail-extract-address-components
+		     (message-fetch-field "sender")))))
+	ad-do-it)
+    ad-do-it))
+
 ;; Don't _reply_ in news, dimwit!
 (defadvice gnus-summary-reply (around reply-in-news activate)
   (interactive)
@@ -385,8 +394,8 @@ inserts \" characters."
 			 (expand-file-name (concat "~/.signature-" system-name))
 		       "~/.signature")))
 
-    ;; Du vil sikkert ha mer her enn det følgende:
-    ("drift.news.nag.submissions" ;; Antar at man får moderator-mail hit
+    ;; 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)
@@ -414,7 +423,7 @@ inserts \" characters."
 		 (widen)
 		 msgid)
 	       )
-             "<FIKS MEG NÅ!!!")
+             "<FIKS MEG NÅ!!!")
 	 1)))
      (reply-to "no-alt-gullkorn@moderators.usenet.no")
      (x-url "http://www.stud.ifi.uio.no/~jani/OBS/no-alt-gullkorn.shtml")
@@ -695,30 +704,30 @@ on multiple mail-followup-to headers"
 (message-goto-to)
 (insert (concat name "@pvv.ntnu.no"))
 (message-goto-subject)
-(insert (concat "Diskforbruk på PVVs fellesdisk (" name ")"))
+(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
+"[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
+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.
+under kvoten på 15MB.
 
-Dersom du har behov for MER enn 15MB plass, MÅ du kjøpe din egen
+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.
+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,
+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
+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,
-- 
2.39.5