From 4c9690de755a33b59b43299e506eda4ec2357782 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Tue, 2 Feb 1999 15:03:36 +0000 Subject: [PATCH] lisp/read-passwd.el (read-pw-set-mail-source-passwd-cache): To work with APOP authentication scheme by Hidekazu Nakamura. --- ChangeLog | 5 +++++ lisp/read-passwd.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 754191d..8d121f2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-02-03 Hidekazu Nakamura + + * lisp/read-passwd.el (read-pw-set-mail-source-passwd-cache): To + work with APOP authentication scheme. + 1999-02-02 Tatsuya Ichikawa * 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 -- 1.7.10.4