Re: sending mail from multiple accounts

[William Xu]

"Cezar Halmagean" <cezar@mixandgo.com> 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
                                     "william.xwl@gmail.com"
                                     "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
                                     "william@hidden"
                                     "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 "william@hidden")
         (eval (xwl-sendmail-by-ce)))))
---------------------------------8<------------------------------------- 

-- 
William

http://williamxu.net9.org