# HG changeset patch # User Richard M. Stallman # Date 1161169892 0 # Node ID 6018dbb5896c936ba81a0b893c092894470eb9fd # Parent 5eddbe5650626fafffc55c58325633c24f1c5301 Comment change. diff -r 5eddbe565062 -r 6018dbb5896c lisp/mail/smtpmail.el --- a/lisp/mail/smtpmail.el Wed Oct 18 11:02:31 2006 +0000 +++ b/lisp/mail/smtpmail.el Wed Oct 18 11:11:32 2006 +0000 @@ -541,6 +541,17 @@ (decoded (base64-decode-string challenge)) (hash (rfc2104-hash 'md5 64 16 passwd decoded)) (response (concat (smtpmail-cred-user cred) " " hash)) + ;; Osamu Yamane : + ;; 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))))