From: ichikawa <ichikawa>
Date: Tue, 2 Feb 1999 15:03:36 +0000 (+0000)
Subject: lisp/read-passwd.el (read-pw-set-mail-source-passwd-cache): To work with APOP authent... 
X-Git-Tag: t-gnus-6_10_057-00~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4c9690de755a33b59b43299e506eda4ec2357782;p=elisp%2Fgnus.git-

lisp/read-passwd.el (read-pw-set-mail-source-passwd-cache): To work with APOP authentication scheme by Hidekazu Nakamura.
---

diff --git a/ChangeLog b/ChangeLog
index 754191d..8d121f2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-02-03   Hidekazu Nakamura <u90121@uis-inf.co.jp>
+
+	* lisp/read-passwd.el (read-pw-set-mail-source-passwd-cache): To
+	work with APOP authentication scheme.
+
 1999-02-02  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 
 	* lisp/gnus-ofsetup.el (gnus-setup-for-offline): To work with
diff --git a/lisp/read-passwd.el b/lisp/read-passwd.el
index d9e289c..896c085 100644
--- a/lisp/read-passwd.el
+++ b/lisp/read-passwd.el
@@ -90,7 +90,7 @@ Argument PROMPT ."
 	(lambda (x)
 	  (mail-source-bind (pop x)
 	    (let ((from (format "%s:%s:%s" server user port))
-		  (mail-source-string (format "pop:%s@%s" user server)))
+		  (mail-source-string (format "%s:%s@%s" (car x) user server)))
 	      (setq pw (read-pw-return-passwd-string user server))
 	      (unless (assoc user mail-source-password-cache)
 		(set-alist 'mail-source-password-cache