Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
20e43520
Commit
20e43520
authored
Jun 07, 2008
by
Glenn Morris
Browse files
Remove unnecessary eval-and-compile.
parent
c2457e54
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
7 deletions
+5
-7
lisp/mail/smtpmail.el
lisp/mail/smtpmail.el
+5
-7
No files found.
lisp/mail/smtpmail.el
View file @
20e43520
;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail
;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, 2005,
;; 200
6, 2007, 200
8 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, 2005,
2006, 2007,
;; 2008
Free Software Foundation, Inc.
;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp>
;; Maintainer: Simon Josefsson <simon@josefsson.org>
...
...
@@ -77,9 +77,7 @@
(
autoload
'netrc-machine
"netrc"
)
(
autoload
'netrc-get
"netrc"
)
(
autoload
'password-read
"password-cache"
)
(
eval-and-compile
(
autoload
'auth-source-user-or-password
"auth-source"
))
(
autoload
'auth-source-user-or-password
"auth-source"
)
;;;
(
defgroup
smtpmail
nil
...
...
@@ -542,9 +540,9 @@ This is relative to `smtpmail-queue-dir'."
(
defun
smtpmail-try-auth-methods
(
process
supported-extensions
host
port
)
(
let*
((
mechs
(
cdr-safe
(
assoc
'auth
supported-extensions
)))
(
mech
(
car
(
smtpmail-intersection
smtpmail-auth-supported
mechs
)))
(
auth-user
(
auth-source-user-or-password
(
auth-user
(
auth-source-user-or-password
"login"
host
(
or
port
"smtp"
)))
(
auth-pass
(
auth-source-user-or-password
(
auth-pass
(
auth-source-user-or-password
"password"
host
(
or
port
"smtp"
)))
(
cred
(
if
(
and
auth-user
auth-pass
)
; try user-auth-* before netrc-*
(
list
host
port
auth-user
auth-pass
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment