"Cezar Halmagean" <[EMAIL PROTECTED]> writes:
> Hi William,
>
> Could you please post an example that does that ?
Sure. I have two accounts, one is gmail, the other is company
account. Below are configs cut from .gnus, slightly edited.
---------------------------------8<-------------------------------------
(defun xwl-sendmail-by-gmail ()
(interactive)
(setq message-send-mail-function 'smtpmail-send-it)
(setq smtpmail-smtp-server "smtp.gmail.com"
smtpmail-smtp-service 587)
(setq smtpmail-auth-credentials `((,smtpmail-smtp-server
,smtpmail-smtp-service
"[EMAIL PROTECTED]"
"passwd")))
(setq smtpmail-starttls-credentials `((,smtpmail-smtp-server
,smtpmail-smtp-service
nil
nil)))
(message "Will sendmail by gmail"))
(defun xwl-sendmail-by-ce ()
(interactive)
(setq message-send-mail-function 'smtpmail-send-it)
(setq smtpmail-smtp-server "hidden"
smtpmail-smtp-service 25)
(setq smtpmail-auth-credentials `((,smtpmail-smtp-server
,smtpmail-smtp-service
"[EMAIL PROTECTED]"
"passwd")))
(setq smtpmail-starttls-credentials nil)
(message "Will sendmail by CE"))
;; company mail groups
(setq xwl-ce-groups
'("daily-cn" "staff-cn" "staff"))
;; The entire alist will be iterated over!
(setq gnus-posting-styles
`((".*"
(name user-full-name)
(address user-mail-address)
(eval (xwl-sendmail-by-gmail)))
(,(regexp-opt xwl-ce-groups) ; CE
(address "[EMAIL PROTECTED]")
(eval (xwl-sendmail-by-ce)))))
---------------------------------8<-------------------------------------
--
William
http://williamxu.net9.org
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
