Re: Need group parameter "from-list"

[Steinar Bang <sb@metis.no>]

>>>>> Anders Melchiorsen <postmaster@and.nospam.kampsax.k-net.dk>:

> Eze Ogwuma <typhoon@dircon.co.uk> writes:
>> Is there any way to set my "From" header depending on which group I'm
>> in? I was hoping for something like the group parameter "to-list".

> I recently started using this, which seems to work. I believe I got it 
> from the FAQ, actually.


> ; Set spam-resistent address ininternational newsgroups
> (defun my-address ()
>   "Selects an e-mail address based on what newsgroup we are in"
>   (setq user-mail-address
>     (cond ((string-match "^nnml:mail\\|k-net" gnus-newsgroup-name)
> 	   "my@real.address")
> 	  (t
> 	   "postmaster@and.nospam.kampsax.k-net.dk"))))

> (add-hook 'gnus-summary-mode-hook 'my-address)

I'm doing something way more complicated.  The reason for this was to
allow me to cancel and supersede in groups where I had another mail
identity.  Unfortunately, with Gnus 5.6.9, this doesn't work anymore,
and I haven't had the energy to look into why.  Add another sigh for
gnus-posting-styles... 

;=======================================================================
; Emulate "posting styles" by ugly hacks
;

; First a convenient regexp to identify all hobby news and mail groups
; thanx to Erik Naggum
(defvar mc-newsgroups
  (mapconcat #'identity
	     (list "nnml:mail\\.dod"
		   "nnml:mail\\.utdrikk"
		   "nnml:hobby\\.trip_report"
		   "nnml:mail\\.vfr"
		   "dod\..*"
		   "no\\.alt\\.motorsykler"
		   "alt\\.fan\\.ivan"
		   "\\(nordunet.\\)?rec\\.motorcycles"
		   )
	     "\\|"))

(defvar private-newsgroups
  (mapconcat #'identity
	     (list "nnm[hl]:\\(\\(other\\)?folk\\|hobby\\).*"
		   "nnml:mail\\.private"
		   "rec\\.aviation\\.military"
		   "alt\\.fan\\..*"
		   "no\\.film"
		   "NRK\\.generelt"
		   )
	     "\\|"))

(defvar hobby-newsgroups
      (mapconcat #'identity
		 (list mc-newsgroups
		       private-newsgroups
		       )
		 "\\|"))


;===========================
; Customize the user-mail-address on the basis of the mail or news group
; posted from
;
(defadvice message-user-mail-address (before generate-user-mail-address activate compile)
  "Change the value of the user mail address based on the group."
  (setq user-mail-address 
	(cond
	 ((stringp gnus-newsgroup-name) 
	  (cond
	   ((string-match mc-newsgroups gnus-newsgroup-name)
	    "sb@dod.no")
	   ((string-match private-newsgroups gnus-newsgroup-name)
	    "steinar@bang.priv.no")
	   (t "sb@metis.no")
	   ))
	 (t "sb@metis.no"))))

;===========================
; Customize the Organization, dependent on the news group posted from
;
(defun set-custom-organization (org-name)
  "Make the message-user-organization buffer local, and
set it to a custom value.

As a side effect, make the message-syntac checks variable
buffer local, and and set it to disable the Sender header
field"
  (progn
    (make-variable-buffer-local 'message-user-organization)
    (make-variable-buffer-local 'message-syntax-checks)

    (setq message-user-organization org-name)
    (setq message-syntax-checks (list '(sender . disabled)))
    ))

(defun custom-organization-and-sender ()
  "Set custom organization, and sender on some news groups"
  (cond
   ((stringp gnus-newsgroup-name)
    (cond
     ((string-match hobby-newsgroups gnus-newsgroup-name)
      (set-custom-organization "DoD, Norway Chapter"))
     ((string-match "no.test" gnus-newsgroup-name)
      (set-custom-organization "Testers Inc."))
     ))
   (t nil)))

(add-hook 'message-header-setup-hook 'custom-organization-and-sender)