* smtp.el (smtp-auth-digest-md5): Don't save insecure words.

        * digest-md5.el (TopLevel): Update example for
        `digest-md5-build-response-value'.

diff --git a/ChangeLog b/ChangeLog
index 59dac00..6bd6680 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2000-01-23  Kenichi OKADA <okada@opaopa.org>
+
+       * smtp.el (smtp-auth-digest-md5): Don't save insecure words.
+
+2000-01-22  Kenichi OKADA <okada@opaopa.org>
+
+       * digest-md5.el (TopLevel): Update example for
+       `digest-md5-build-response-value'.
+
 2000-01-22  Kenichi OKADA <okada@opaopa.org>
 
        * sasl.el (TopLevel): Autoload `digest-md5-parse-digest-challenge'.

diff --git a/digest-md5.el b/digest-md5.el
index 4ca8def..e72c535 100644 (file)
--- a/digest-md5.el
+++ b/digest-md5.el
@@ -39,7 +39,8 @@
 ;; => (realm "elwood.innosoft.com" nonce "OA6MG9tEQGm2hh" qop "auth" algorithm md5-sess charset utf-8)
 
 ;; (digest-md5-build-response-value
-;;   "chris" "secret" "OA6MHXh6VqTrRk" "imap/elwood.innosoft.com")
+;;   "chris" "elwood.innosoft.com" "secret" "OA6MG9tEQGm2hh"
+;;   "OA6MHXh6VqTrRk" 1 "imap/elwood.innosoft.com" "auth")
 ;; => "d388dad90d4bbd760a152321f2143af7"
 
 ;;; Code:

diff --git a/sasl.el b/sasl.el
index bdb9e78..3e78040 100644 (file)
--- a/sasl.el
+++ b/sasl.el
@@ -139,7 +139,7 @@
 (defvar sasl-digest-md5-nonce-count 1)
 
 (defun sasl-digest-md5-digest-response (digest-challenge username passwd
-                                                serv-type host &optional realm)
+                                                        serv-type host &optional realm)
   (digest-md5-parse-digest-challenge digest-challenge)
   (digest-md5-digest-response
    username

diff --git a/smtp.el b/smtp.el
index e8fc8db..0f9f52e 100644 (file)
--- a/smtp.el
+++ b/smtp.el
@@ -680,7 +680,7 @@ don't define this value."
                         user
                         smtp-authenticate-passphrase
                         "smtp" smtp-server realm)
-                       'no-line-break))
+                       'no-line-break) t)
     (setq response (smtp-read-response process))
     (if (or (null (car response))
            (not (integerp (car response)))