Grab sender from Sender field

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

diff --git a/gnus b/gnus
index 4bcf61e41d84a4d00e8482f01dfc84a6be35119f..593b3ac294c4a36a2ef2a089aaae7123372b1925 100644 (file)
--- 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 "\81«")
+(setq mail-close-quote "\81»")
 
 (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 \81«) or `mail-close-quote'
+\(normally \81») 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\81ølgende:
+    ("drift.news.nag.submissions" ;; Antar at man f\81å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\81Å!!!")
         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\81å PVVs fellesdisk (" name ")"))
 (gnus-narrow-to-body)
 (insert (format 
-"[Svar på denne meldingen skal sendes drift@pvv.ntnu.no, ikke til
+"[Svar p\81å 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\81å PVVs fellesdisk /home/pvv/d.
+Kvoten her er 15MB, s\81å 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\81å 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\81Å du kj\81ø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\81ått partisjon allerede, ber
+vi om at du sender oss informasjon om n\81år du bestilte og hvor mye disk
+du skal ha, s\81å skal vi opprette den s\81å 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\81ært full, kan vi ikke gi utvidede kvoter for
+kortare tid, og vi vil derfor m\81åtte slette slik at du kommer under
+kvoten p\81å 15MB dersom du ikke selv gj\81ør dette innan 2 (to) d\81øgn,
 dvs. onsdag ettermiddag.
 
-Full disk medfører at andre brukere på PVV, som holder seg innenfor
+Full disk medf\81ører at andre brukere p\81å PVV, som holder seg innenfor
 kvotene vi har satt, blant annet ikke kan motta epost.
 
 For PVV drift,