From e3e52058295df844d1f33c0f9b6d738a76002366 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Sat, 4 Dec 1999 08:06:17 +0000 Subject: [PATCH] Bind mail-source-string in webmail. --- lisp/ChangeLog | 5 +++++ lisp/mail-source.el | 15 ++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 93a2de9ce..e6107224b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +1999-12-04 03:01:55 Shenghuo ZHU + + * mail-source.el (mail-source-fetch-webmail): Bind + mail-source-string. + 1999-12-04 07:18:23 Matt Swift * gnus-uu.el (gnus-uu-mark-by-regexp): Doc fix. diff --git a/lisp/mail-source.el b/lisp/mail-source.el index 7ac00eb25..309cf9a97 100644 --- 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) -- 2.34.1