When I post to a mailing list, I always have to use the same e-mail
address. As a real programmer I am lazy and do not like to do what can
be done by the computer. For this I made the code below.
There is one problem. The sequence of the fields is changed. Normally it
is:
To:
Subject:
From:
Gcc:
With my code it becomes:
Subject:
From:
Gcc:
To:
Can I do something about this?
Let me know if the code could be optimised.
(defvar gnus-to-addresses nil
"A list of group names and to-addesses to use;")
(setq gnus-to-addresses '(
("INBOX\\.Info\\.bbdb" . "[email protected]")
("INBOX\\.Info\\.clisp" . "[email protected]")
("INBOX\\.Info\\.ffmpeg" . "[email protected]")
("INBOX\\.Info.\\Floss" . "[email protected]")
("INBOX\\.Info\\.OpenOffice" . "[email protected]")
("INBOX\\.Info\\.openSUSE" . "[email protected]")
("INBOX\\.Info\\.org-mode" . "[email protected]")
("INBOX\\.Info\\.slime" . "[email protected]")
("INBOX\\.Info\\.spamassassin" . "[email protected]")
("INBOX\\.KDE" . "[email protected]")
("INBOX\\.NLLGG\\.Leden" . "[email protected]")
("INBOX\\.NLLGG\\.Linux" . "[email protected]")
("INBOX\\.NLLGG\\.Starter" . "[email protected]")
))
(defun gnus-set-to-address ()
"Determine what to-address to use on the current message;"
(let ((to-address ""))
(if (message-news-p)
(setq to-address nil)
(when gnus-newsgroup-name
(dolist (item gnus-to-addresses)
(when (string-match (car item) gnus-newsgroup-name)
(setq to-address (cdr item))))))
to-address))
;; Posting Styles To Various Groups
(setq gnus-posting-styles
'((".*"
(to (gnus-set-to-address))
--
Cecil Westerhof
Senior Software Engineer
LinkedIn: http://www.linkedin.com/in/cecilwesterhof
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
