2000-10-02 08:04:48 ShengHuo ZHU <zsh@cs.rochester.edu>

	* webmail.el (webmail-hotmail-list): Fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c8d97ce..671e853 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-02 08:04:48  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * webmail.el (webmail-hotmail-list): Fix.
+
 2000-10-01 20:55:53  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        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 (file)
--- 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]+\\) *<b>(\\([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]+\\) *<b>(\\([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