My-deja updated.

Fix agent bug when colon in real group name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b72861..712d650 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2000-01-13 15:16:10  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-agent.el (gnus-agent-write-active): Since no prefix in
+       group names, don't remove anything.
+
+2000-01-13 15:10:53  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * webmail.el (webmail-my-deja-open): My-deja changes.
+
 2000-01-13  Simon Josefsson  <jas@pdc.kth.se>
 
        * nnimap.el (nnimap-retrieve-headers-progress): Create xref field.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index adca2fc..79ed845 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -611,7 +611,9 @@ the actual number of articles toggled is returned."
        new))
     (gnus-make-directory (file-name-directory file))
     (let ((coding-system-for-write gnus-agent-file-coding-system))
-      (gnus-write-active-file file orig))))
+      ;; The hashtable contains real names of groups,  no more prefix
+      ;; removing, so set `full' to `t'.
+      (gnus-write-active-file file orig t))))
 
 (defun gnus-agent-save-groups (method)
   (gnus-agent-save-active-1 method 'gnus-groups-to-gnus-format))

diff --git a/lisp/webmail.el b/lisp/webmail.el
index 1b9b9c4..17b1a23 100644 (file)
--- a/lisp/webmail.el
+++ b/lisp/webmail.el
@@ -825,7 +825,7 @@
 (defun webmail-my-deja-open ()
   (webmail-refresh-redirect)
   (goto-char (point-min))
-  (if (re-search-forward "action=\"\\([^\"]+login_confirm\\.xp[^\"]+\\)\"" 
+  (if (re-search-forward "action=\"\\([^\"]+login_confirm\\.xp[^\"]*\\)\"" 
                         nil t)
       (setq webmail-aux (match-string 1))
     (webmail-error "open@1")))