Howto set the email address on a per-group basis?

Howto set the email address on a per-group basis?

[Stefan Waldherr]

Hi,

the subject line sez it all. Is this possible?

cu
Stefan.
-- 
Stefan Waldherr                   fax +49 431 8058 136
                               e-Mail stefan@waldherr.org
                                  www http://www.waldherr.org/

Re: Howto set the email address on a per-group basis?

[David Mentré]

Stefan Waldherr <stefan-ding@gmx.de> writes:

> the subject line sez it all. Is this possible?

Of course. It's Gnus. :) Look at Posting Styles in the Gnus doc.

d.
-- 
 David.Mentre@irisa.fr -- http://www.irisa.fr/prive/dmentre/
 Opinions expressed here are only mine.

Re: Howto set the email address on a per-group basis?

[Jack Vinson]

>>>>> "SW" == Stefan Waldherr <stefan-ding@gmx.de> writes:

SW> the subject line sez it all. Is this possible?

Yep.  You simply need a "to-address" associated with your group somewhere.
I have it in my group description for this mailing list.  ('G E' in the
*Group* buffer.)  I found this in the info file under The Group Buffer /
Group Parameters.  My nnml:ding group description is included for an
example.  

("nnml:ding" 2
 ((1 . 2698)
  (2701 . 2703))
 ((reply 2517)
  (tick 2666))
 (nnml "")
 ((to-address . "ding@gnus.org")
  (score-file . "nnml_ding.SCORE")
  (auto-expire)
  (total-expire . t)))


-- 
Jack Vinson <jvinson@chevax.ecs.umass.edu>    http://www.cis.upenn.edu/~vinson/
Zippy: I would like to urinate in an OVULAR, porcelain pool --

Re: Howto set the email address on a per-group basis?

[David S. Goldberg]

[-- Attachment #1: Type: text/plain, Size: 686 bytes --]

Posting styles is a great thing, but be aware, it requires a recent
version of Gnus.  I'm pretty sure it isn't in the version that's stock
with Emacs and XEmacs.

For what its worth, I found the way posting styles does it's matches
to be somewhat confusing.  After a good deal of mucking about in the
bbdb source, I came up with the attached.  It lets me set my return
address and signature based on the news/mail group I'm in when I start
the message and, if its a reply and the user I'm replying to has
mail-from or signature bbdb entries, use those.
-- 
Dave Goldberg
Post: The Mitre Corporation\MS B305\202 Burlington Rd.\Bedford, MA 01730
Phone: 781-271-3887
Email: dsg@mitre.org


[-- Attachment #2: Type: text/plain, Size: 1886 bytes --]


(setq gnus-posting-styles
      '((".*"
	 (signature-file "~/.signature-mitre"))
	(".*mitre.*"
	 (signature-file "~/.signature-mitre-i"))
	(".*secom.*"
	 (signature-file "~/.signature-mitre-i"))
	("nnml:inbox"
	 (signature-file "~/.signature-mitre-i"))
	("nnml:deptmgt"
	 (signature-file "~/.signature-mitre-i"))
	("nnml:infosec"
	 (signature-file "~/.signature-mitre-i"))
	("nnml:listproc"
	 (signature-file nil))
	("^mitre\\.security\\.firewalls"
	 (signature-file "~/.signature-mitre"))
	("^nnml:personal.*"
	 ("From" "dsg@world.std.com (David S. Goldberg)")
	 (signature-file "~/.signature-personal"))
	((not (string-match "nnml:personal.*"
			    gnus-newsgroup-name))
	 ("From" (concat user-mail-address
			 " (David S. Goldberg)")))
	(gnus-article-reply
	 (signature-file
	  (let* ((net
		  (save-excursion
		    (set-buffer gnus-article-buffer)
		    (car
		     (cdr
		      (mail-extract-address-components
		       (message-fetch-field
			"From"))))))
		 (rec (car (bbdb-search
			    (bbdb-records) nil nil
			    net nil nil)))
		 (sig (if rec
			  (bbdb-record-getprop
			   rec 'signature))))
	    (cond (sig sig)
		  ((string-match "@.*\\.?mitre\\.org" net)
		   "~/.signature-mitre-i")
		  ((string-match "nnml:personal.*"
				 gnus-newsgroup-name)
		   "~/.signature-personal")
		  (t "~/.signature-mitre"))))
	 ("From"
	  (let* ((net
		  (save-excursion
		    (set-buffer gnus-article-buffer)
		    (car
		     (cdr
		      (mail-extract-address-components
		       (message-fetch-field
			"From"))))))
		 (rec (car (bbdb-search
			    (bbdb-records) nil nil
			    net nil nil)))
		 (mail-from (if rec
				(bbdb-record-getprop
				 rec 'mail-from))))
	    (cond (mail-from mail-from)
		  ((string-match "nnml:personal.*"
				 gnus-newsgroup-name)
		   "dsg@world.std.com (David S. Goldberg)")
		  (t (concat user-mail-address
			     " (David S. Goldberg)"))))))))