mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Introduce a new variable to allow controlling the SMTP user name

Browse source 
* mail/smtpmail.el (smtpmail-smtp-user): New variable.
(smtpmail-try-auth-methods): Use it.
This commit is contained in:
Lars Magne Ingebrigtsen 2011-08-21 06:11:59 +02:00
parent 39eeb2f7c5
commit f5e3c5984b
2 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/smtpmail.el
View file

@ -86,6 +86,11 @@ The default value would be \"smtp\" or 25."
:type '(choice (integer :tag "Port") (string :tag "Service"))
:group 'smtpmail)
(defcustom smtpmail-smtp-user nil
"User name to use when looking up credentials."
:type '(choice (const nil) string)
:group 'smtpmail)
(defcustom smtpmail-local-domain nil
"Local domain name without a host name.
If the function `system-name' returns the full internet address,
@ -490,6 +495,7 @@ The list is in preference order.")
(auth-source-search
:host host
:port port
:user smtpmail-smtp-user
:max 1
:require (and ask-for-password
'(:user :secret))
@ -510,6 +516,7 @@ The list is in preference order.")
:max 1
:host host
:port port
:user smtpmail-smtp-user
:require '(:user :secret)
:create t))
password (plist-get auth-info :secret)))