lisp/read-passwd.el (read-pw-set-mail-source-passwd-cache): To work with APOP authent...

diff --git a/ChangeLog b/ChangeLog
index 754191d..8d121f2 100644 (file)
--- 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 (file)
--- 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