From: yamaoka <yamaoka>
Date: Mon, 2 Oct 2000 12:54:22 +0000 (+0000)
Subject: Synch with Gnus.
X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-~72
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b9c119eaf3cf46088c326671d5184fba7dfedc63;p=elisp%2Fgnus.git-

Synch with Gnus.
---

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  <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
--- 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