Re: Multiple SMTP servers with Gnus?

[Johnny <yggdrasil@gmx.co.uk>]

Richard Riley <rileyrg@googlemail.com> writes:
> I find this set up the best as when the code is in place all you need to
> do is add to the smtp-accounts, gnus-posting-styles and the
> .authinfo.gpg. 

Using this setup, I get queried for the SMTP-server password when
sending email, even though I have added the account details to the
.authinfo file:

machine imap.gmx.com login yggdrasil@gmx.co.uk password gmxpass port 993
machine mail.gmx.com login yggdrasil@gmx.co.uk password gmxpass port 587
machine imap.gmail.com login j.carlsson@gmail.com password gmailpass port 993
machine smtp.gmail.com login j.carlsson@gmail.com password gmailpass port 587

What am I doing wrong as it doesn't seem to care about .authinfo?

To make it work, I also had to use:

(require 'cl) ;Enable the 'loop' command
(setq message-send-mail-function 'smtpmail-send-it)
> ,----
> | (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"
> |         ;; TODO: Add this to the server parameters
> |         ;; 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."
> |   (interactive)
> |   (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."))))
> | 
> | (add-hook 'message-send-hook 'change-smtp)
> | 
> | (setq smtp-accounts '(
> |                       (ssl "riley" "smtp.gmail.com" "587"
> |                            "rileyrg@gmail.com" nil)
> |                       (ssl "shamrock" "smtp.gmail.com" "587"
> |                            "shamrockirishbar@gmail.com" nil)))
(setq smtp-accounts '(
                      (ssl "gmx" "mail.gmx.com" "587"
                            "yggdrasil@gmx.co.uk" nil)
                      (ssl "gmail" "smtp.gmail.com" "587"
                           "j.carlsson@gmail.com" nil)))
> | (setq gnus-posting-styles `((".*"
> | 			     (from "Richard Riley <rileyrg@googlemail.com>")
> | 			     (eval(setq gnushush-user-agent-header (quote real)))
> | 			     (signature-file "~/.emacs.d/.sigs/rgr.sig")
> | 			     (eval (setq mml2015-signers '("********")))
> | 			     (eval (setq user-mail-address "rgr@richardriley.net"))
> | 			     (organization "aich tea tea pea dicky riley dot net"))))
(setq gnus-posting-styles `((".*"
			     (from "Johnny <yggdrasil@gmx.co.uk>")
			     (eval (setq user-mail-address "yggdrasil@gmx.co.uk"))
			     )))
> |      
> | (add-to-list `gnus-posting-styles `(,(rx(or "shamrock"))
> | 				    (from  "The Shamrock Irish Bar<shamrockirishbar@gmail.com>")
> | 				    (eval (setq user-mail-address "shamrock@shamrockirishbar.com"))
> | 				    (eval (setq mml2015-signers '("********")))
> | 				    (organization "http://www.shamrockirishbar.com")
> | 				    (signature-file "~/.emacs.d/.sigs/s.sig")) t)
(add-to-list `gnus-posting-styles `(,(rx(or "gmail"))
				    (from  "J Carlsson <j.carlsson@gmail.com>")
				    (eval (setq user-mail-address "j.carlsson@gmail.com"))
				    ) t)
> `----


Very useful functionality however to manage several email-adresses!

-- 
Johnny