diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-10-18 11:11:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-10-18 11:11:32 +0000 |
| commit | 9b3bf5e89ce8b819de97a345fc3578b86cc615d5 (patch) | |
| tree | d80d72e25656ba01abf1e2a686a1afe08f778d34 /lisp/mail | |
| parent | 6d44694e8c7bfff871759a681297dec6dc7a85fa (diff) | |
| download | emacs-9b3bf5e89ce8b819de97a345fc3578b86cc615d5.tar.gz | |
Comment change.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/smtpmail.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 9557844a32a..ac87a93b7a1 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -541,6 +541,17 @@ This is relative to `smtpmail-queue-dir'.") (decoded (base64-decode-string challenge)) (hash (rfc2104-hash 'md5 64 16 passwd decoded)) (response (concat (smtpmail-cred-user cred) " " hash)) + ;; Osamu Yamane <yamane@green.ocn.ne.jp>: + ;; SMTP auth fails because the SMTP server identifies + ;; only the first part of the string (delimited by + ;; new line characters) as a response from the + ;; client, and the rest as distinct commands. + + ;; In my case, the response string is 80 characters + ;; long. Without the no-line-break option for + ;; base64-encode-sting, only the first 76 characters + ;; are taken as a response to the server, and the + ;; authentication fails. (encoded (base64-encode-string response t))) (smtpmail-send-command process (format "%s" encoded)) (if (or (null (car (setq ret (smtpmail-read-response process)))) |