2000-10-31 08:36:03 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / webmail.el

diff --git a/lisp/webmail.el b/lisp/webmail.el
index 00506b8..d947ca0 100644 (file)
--- a/lisp/webmail.el
+++ b/lisp/webmail.el
@@ -144,7 +144,7 @@
     (my-deja
      (paranoid cookie post)
      (address . "www.my-deja.com")
-     (open-url "http://www.my-deja.com/")
+     (open-url "http://www.deja.com/my/pr.xp")
      (open-snarf . webmail-my-deja-open)
      (login-url
       content 
@@ -282,8 +282,8 @@
   (if (gnus-buffer-live-p webmail-buffer)
       (set-buffer webmail-buffer)
     (setq webmail-buffer
-         (mm-with-unibyte
-           (nnheader-set-temp-buffer " *webmail*")))))
+         (nnheader-set-temp-buffer " *webmail*"))
+    (mm-disable-multibyte)))
 
 (defvar url-package-name)
 (defvar url-package-version)
@@ -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 
@@ -428,7 +428,7 @@
          (setq site (match-string 1))
        (webmail-error "list@1"))
       (goto-char (point-min))
-      (if (re-search-forward "disk=\\([^&]+\\)&" nil t)
+      (if (re-search-forward "disk=\\([^&]*\\)&" nil t)
          (setq webmail-aux 
                (concat "http://" site "/cgi-bin/HoTMaiL?disk=" 
                        (match-string 1)))