2001-02-04 23:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-start.el (gnus-group-change-level): Remove from both
	gnus-zombie-list and gnus-killed-list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0de8d5c..ac120ec 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-04 23:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-start.el (gnus-group-change-level): Remove from both
+       gnus-zombie-list and gnus-killed-list.
+
 2001-02-04 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-start.el (gnus-subscribe-options-newsgroup-method): Add

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index dac0610..f2a67d3 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2948,7 +2948,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
     
     (when (boundp 'gnus-summary-post-menu)
       (cond 
-       ((featurep 'xemacs)
+       ((not (keymapp gnus-summary-post-menu))
        (setq gnus-article-post-menu gnus-summary-post-menu))
        ((not gnus-article-post-menu)
        ;; Don't share post menu.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 503e6b0..80ad0d3 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1219,9 +1219,9 @@ for new groups, and subscribe the new groups as zombies."
       ;; it from the newsrc hash table and assoc.
       (cond
        ((>= oldlevel gnus-level-zombie)
-       (if (= oldlevel gnus-level-zombie)
-           (setq gnus-zombie-list (delete group gnus-zombie-list))
-         (setq gnus-killed-list (delete group gnus-killed-list))))
+       ;; oldlevel could be wrong.
+       (setq gnus-zombie-list (delete group gnus-zombie-list))
+       (setq gnus-killed-list (delete group gnus-killed-list)))
        (t
        (when (and (>= level gnus-level-zombie)
                   entry)