GNU从没有imap的同一服务器通过电子邮件发送多个传出帐户

Question

我使用GNU和多个电子邮件地址，包括基于邮件中的FROM更改传出SMTP。到目前为止，一切都很好。但是，现在，我在同一服务器上有多个帐户，因此通常的.authinfo对我不起作用。似乎答案应该类似于http://www.cataclysmicmutation.com/2010/11/multiple-gmail-accounts-in-gnus/， 但我没有使用gmail，也没有使用imap。我正在使用SMTP和SSL。如何扩展该解决方案？（另外：我正在使用gnus-posting-styles来帮助发送带有适当地址的邮件，以证明这是值得的）

以下是我的.gnus的相关部分。请注意，我正在尝试使webdev @ [ME] .com正常运行，这是[ME] @ [ME] .com（两者都在同一台服务器上）的补充。我需要在这里以及我的authinfo中进行这项工作吗？

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;; multiple outgoing accounts ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; http://www.mostlymaths.net/2010/12/emacs-30-day-challenge-using-gnus-to.html
;; also see ~/.authinfo
(defvar smtp-accounts
  '(
    (ssl "[ME]@[ME].com" "mail.[ME].com"
     26 "[ME]@[ME].com" secret)
    ;; (ssl "webdev@[ME].com" "mail.[ME].com"
    ;;   26 "webdev@[ME].com" secret)
    (ssl "[ME]@gmail.com" "smtp.gmail.com"
     587 "[ME]@gmail.com" secret)
    (ssl "[ME]@gatech.edu" "mail.gatech.edu"
          587 "[ME]@gatech.edu" secret)
    ))

;; Now lets configure smtpmail.el with your name and functions to send
;; mail using your smtp accounts by changing the from field
(require 'smtpmail)
(setq send-mail-function 'smtpmail-send-it
      message-send-mail-function 'smtpmail-send-it
      mail-from-style nil user-full-name "[ME] S. "
      smtpmail-debug-info t smtpmail-debug-verb t)

(defun set-smtp (mech server port user password)
  "Set related SMTP variables for supplied parameters."
  (setq smtpmail-smtp-server server smtpmail-smtp-service port
    smtpmail-auth-credentials (list (list server port user
                          password)) smtpmail-auth-supported (list mech)
                          smtpmail-starttls-credentials nil)
  (message "Setting SMTP server to `%s:%s' for user `%s'."
       server port user))

(defun set-smtp-ssl (server port user password &optional key
                cert)
  "Set related SMTP and SSL variables for supplied parameters."
  (setq starttls-use-gnutls t
    starttls-gnutls-program "gnutls-cli"
    starttls-extra-arguments nil smtpmail-smtp-server server
    smtpmail-smtp-service port
    smtpmail-auth-credentials (list (list server port user
                          password)) smtpmail-starttls-credentials (list (list
                                                  server port key cert)))
  (message
   "Setting SMTP server to `%s:%s' for user `%s'. (SSL
enabled.)" server port user))

(defun change-smtp ()
  "Change the SMTP server according to the current from line."
  (save-excursion
    (loop with from = (save-restriction
            (message-narrow-to-headers)
            (message-fetch-field "from"))
      for (auth-mech address . auth-spec) in smtp-accounts
      when (string-match address from) do (cond
                           ((memq auth-mech '(cram-md5 plain login))
                        (return (apply 'set-smtp (cons auth-mech auth-spec))))
                           ((eql auth-mech 'ssl)
                        (return (apply 'set-smtp-ssl auth-spec)))
                           (t (error "Unrecognized SMTP auth. mechanism:
`%s'." auth-mech))) finally (error "Cannot infer SMTP information."))))

;; The previous function will complain if you fill the from field with
;; an account not present in smtp-accounts.

(defvar %smtpmail-via-smtp (symbol-function 'smtpmail-via-smtp))

(defun smtpmail-via-smtp (recipient smtpmail-text-buffer)
  (with-current-buffer smtpmail-text-buffer
    (change-smtp))
  (funcall (symbol-value '%smtpmail-via-smtp) recipient
       smtpmail-text-buffer))

;; This wraps send mail via smtp mail, to be able to send multiple
;; messages with smtpmail.

;; Reply-to with same address it was sent to
    (setq gnus-posting-styles
      '(((header "to" "[ME]@gmail.com")
         (address "[ME]@gmail.com"))
    ((header "to" "[ME]@gatech.edu")
         (address "[ME]@gatech.edu"))
    ((header "to" "[ME]@[ME].com")
         (address "[ME]@[ME].com"))
    ;; ((header "to" "webdev@[ME].com")
        ;;  (address "webdev@[ME].com"))
    ;; ((header "cc" "webdev@[ME].com")
        ;;  (address "webdev@[ME].com"))
    ((header "cc" "[ME]@[ME].com")
         (address "[ME]@[ME].com"))
    ((header "cc" "[ME]@gatech.edu")
         (address "[ME]@gatech.edu"))
    ((header "cc" "[ME]@gmail.com")
         (address "[ME]@gmail.com"))))

解

我一直在寻找的答案如下。为了完整起见，我将使用/ etc / host文件，.authinfo和.gnus发布最终结果解决方案。

;; excerpt from .gnus
(defvar smtp-accounts
  '(
    (ssl "first@onedomain.com" "mail.onedomain.com"
     26 "first@onedomain.com" secret)
    (ssl "second@onedomain.com" "mail.onedomain2.com" ;; <-- This is the new alias in my /etc/hosts
         26 "username@onedomain.com" secret) ;; <-- Added these two lines
    ))

;; excerpt from .authinfo
machine mail.onedomain.com login username@onedomain.com port 26 password MyPASS
machine mail.onedomain2.com login username@onedomain.com port 26 password "MyOtherPASS"

;; excerpt from /etc/hosts. The IP was obtained by pinging my mail.onedomain.com
69.89.31.60 mail.onedomain2.com onedomain2

Answer 1

消息模式的X-Message-SMTP-Method标头字段也可能会有所帮助。

例：

X-Message-SMTP-Method: smtp smtp.fsf.org 587 other-user

更多信息：

1. https://www.gnu.org/software/emacs/manual/html_node/message/Mail-Variables.html
2. https://www.gnu.org/software/emacs/manual/html_node/gnus/Posting-Styles.html