Bind mail-source-string in webmail.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 93a2de9..e610722 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-04 03:01:55  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mail-source.el (mail-source-fetch-webmail): Bind
+       mail-source-string.
+
 1999-12-04 07:18:23  Matt Swift  <swift@alum.mit.edu>
 
        * gnus-uu.el (gnus-uu-mark-by-regexp): Doc fix.

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 7ac00eb..309cf9a 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -670,13 +670,14 @@ This only works when `display-time' is enabled."
 (defun mail-source-fetch-webmail (source callback)
   "Fetch for webmail source."
   (mail-source-bind (webmail source)
-    (when (eq authentication 'password)
-      (setq password
-           (or password
-               (mail-source-read-passwd
-                (format "Password for %s at %s: " user subtype)))))
-    (webmail-fetch mail-source-crash-box subtype user password)
-    (mail-source-callback callback (symbol-name subtype))))
+    (let ((mail-source-string (format "webmail:%s:%s" subtype user)))
+      (when (eq authentication 'password)
+       (setq password
+             (or password
+                 (mail-source-read-passwd
+                  (format "Password for %s at %s: " user subtype)))))
+      (webmail-fetch mail-source-crash-box subtype user password)
+      (mail-source-callback callback (symbol-name subtype)))))
 
 (provide 'mail-source)