[Emacs-diffs] Changes to emacs/lisp/mail/smtpmail.el,v

[Chong Yidong]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      06/09/28 17:16:12

Index: mail/smtpmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/smtpmail.el,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -b -r1.85 -r1.86
--- mail/smtpmail.el    6 Sep 2006 09:08:55 -0000       1.85
+++ mail/smtpmail.el    28 Sep 2006 17:16:12 -0000      1.86
@@ -541,7 +541,7 @@
                 (decoded (base64-decode-string challenge))
                 (hash (rfc2104-hash 'md5 64 16 passwd decoded))
                 (response (concat (smtpmail-cred-user cred) " " hash))
-                (encoded (base64-encode-string response)))
+                (encoded (base64-encode-string response t)))
            (smtpmail-send-command process (format "%s" encoded))
            (if (or (null (car (setq ret (smtpmail-read-response process))))
                    (not (integerp (car ret)))
@@ -554,12 +554,12 @@
                (>= (car ret) 400))
            (throw 'done nil))
        (smtpmail-send-command
-        process (base64-encode-string (smtpmail-cred-user cred)))
+        process (base64-encode-string (smtpmail-cred-user cred t)))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (>= (car ret) 400))
            (throw 'done nil))
-       (smtpmail-send-command process (base64-encode-string passwd))
+       (smtpmail-send-command process (base64-encode-string passwd t))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (>= (car ret) 400))
@@ -576,7 +576,7 @@
                                        (concat "\0"
                                                (smtpmail-cred-user cred)
                                                "\0"
-                                               passwd))))
+                                               passwd) t)))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (not (equal (car ret) 235)))