From: okada <okada>
Date: Sun, 23 Jan 2000 00:41:44 +0000 (+0000)
Subject:         * smtp.el (smtp-auth-digest-md5): Don't save insecure words.
X-Git-Tag: slim-1_13_7~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3d06eddfc797fe61e2d0b1eb18814dd5436355a0;p=elisp%2Fflim.git

    * 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
--- 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
--- 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
--- 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
--- 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)))