From b9c119eaf3cf46088c326671d5184fba7dfedc63 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 2 Oct 2000 12:54:22 +0000 Subject: [PATCH] Synch with Gnus. --- lisp/ChangeLog | 4 ++++ lisp/webmail.el | 14 +++++++------- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c8d97ce..671e853 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-10-02 08:04:48 ShengHuo ZHU + + * webmail.el (webmail-hotmail-list): Fix. + 2000-10-01 20:55:53 ShengHuo ZHU Don't postpone GCC if none of GCC methods is agent-covered. This diff --git a/lisp/webmail.el b/lisp/webmail.el index 00506b8..a307f93 100644 --- a/lisp/webmail.el +++ b/lisp/webmail.el @@ -414,13 +414,13 @@ (skip-chars-forward " \t\n\r") (let (site url newp (total "0")) (if (eobp) - (setq total "0")) - (if (re-search-forward "\\([0-9]+\\) *(\\([0-9]+\\) new)" nil t) - (message "Found %s (%s new)" (setq total (match-string 1)) - (match-string 2)) - (if (re-search-forward "\\([0-9]+\\) new" nil t) - (message "Found %s new" (setq total (match-string 1))) - (webmail-error "list@0"))) + (setq total "0") + (if (re-search-forward "\\([0-9]+\\) *(\\([0-9]+\\) new)" nil t) + (message "Found %s (%s new)" (setq total (match-string 1)) + (match-string 2)) + (if (re-search-forward "\\([0-9]+\\) new" nil t) + (message "Found %s new" (setq total (match-string 1))) + (webmail-error "list@0")))) (unless (equal total "0") (goto-char (point-min)) (if (re-search-forward -- 1.7.10.4