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
4effb112
Commit
4effb112
authored
Jul 17, 2005
by
Simon Josefsson
Browse files
(smtpmail-auth-supported): Added the 'plain auth method
(smtpmail-try-auth-methods): added the AUTH PLAIN dialog
parent
9b0c2c56
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
25 additions
and
3 deletions
+25
-3
lisp/ChangeLog
lisp/ChangeLog
+6
-0
lisp/mail/smtpmail.el
lisp/mail/smtpmail.el
+19
-3
No files found.
lisp/ChangeLog
View file @
4effb112
2005-07-16 Jose E. Marchesi <jemarch@gnu.org>
* lisp/mail/smtpmail.el (smtpmail-auth-supported): Added the
'plain auth method
(smtpmail-try-auth-methods): added the AUTH PLAIN dialog
2005-07-17 Kim F. Storm <storm@cua.dk>
* ido.el (dired-other-window): Add ido property.
...
...
lisp/mail/smtpmail.el
View file @
4effb112
;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail
;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004
;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004
, 2005
;; Free Software Foundation, Inc.
;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp>
...
...
@@ -207,7 +207,7 @@ This is relative to `smtpmail-queue-dir'.")
(
defvar
smtpmail-queue-index
(
concat
smtpmail-queue-dir
smtpmail-queue-index-file
))
(
defconst
smtpmail-auth-supported
'
(
cram-md5
login
)
(
defconst
smtpmail-auth-supported
'
(
cram-md5
login
plain
)
"List of supported SMTP AUTH mechanisms."
)
;;;
...
...
@@ -559,8 +559,24 @@ This is relative to `smtpmail-queue-dir'.")
(
not
(
integerp
(
car
ret
)))
(
>=
(
car
ret
)
400
))
(
throw
'done
nil
)))
((
eq
mech
'plain
)
(
smtpmail-send-command
process
"AUTH PLAIN"
)
(
if
(
or
(
null
(
car
(
setq
ret
(
smtpmail-read-response
process
))))
(
not
(
integerp
(
car
ret
)))
(
not
(
equal
(
car
ret
)
334
)))
(
throw
'done
nil
))
(
smtpmail-send-command
process
(
base64-encode-string
(
concat
"\0"
(
smtpmail-cred-user
cred
)
"\0"
(
smtpmail-cred-passwd
cred
))))
(
if
(
or
(
null
(
car
(
setq
ret
(
smtpmail-read-response
process
))))
(
not
(
integerp
(
car
ret
)))
(
not
(
equal
(
car
ret
)
235
)))
(
throw
'done
nil
)))
(
t
(
error
"Mechanism %s not implemented"
mech
)))
(
error
"Mechanism %s not implemented"
mech
)))
;; Remember the password.
(
when
(
and
(
not
(
stringp
smtpmail-auth-credentials
))
(
null
(
smtpmail-cred-passwd
cred
)))
...
...
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