From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Tue, 11 Apr 2000 00:42:33 +0000 (+0000)
Subject: Apply John Wiegley's patch.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=4791b8a5db1a7977858a2800ebda91444993e4b6;p=gnus

Apply John Wiegley's patch.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a38040e8..e339ba005 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2000-04-10 20:35:46  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* mail-source.el (mail-source-fetch-webmail): Use the default
+	password provided in mail-sources; use webmail:subtype:user as
+	the key.
+	
+2000-04-10 20:35:46  John Wiegley <johnw@gnu.org>
+
+	* mail-source.el (mail-source-fetch-webmail): Use
+	mail-source-password-cache.
+
 2000-04-09 18:13:47  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
 	* webmail.el: Add netscape mail and fix HotMail mail.
diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 6c8e74a64..2fb2b28c6 100644
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -690,8 +690,15 @@ This only works when `display-time' is enabled."
       (when (eq authentication 'password)
 	(setq password
 	      (or password
+		  (cdr (assoc (format "webmail:%s:%s" subtype user) 
+			      mail-source-password-cache))
 		  (mail-source-read-passwd
-		   (format "Password for %s at %s: " user subtype)))))
+		   (format "Password for %s at %s: " user subtype))))
+	(when (and password
+		   (not (assoc (format "webmail:%s:%s" subtype user) 
+			       mail-source-password-cache)))
+	  (push (cons (format "webmail:%s:%s" subtype user) password) 
+		mail-source-password-cache)))
       (webmail-fetch mail-source-crash-box subtype user password)
       (mail-source-callback callback (symbol-name subtype)))))