* gnus-spec.el (gnus-compile): Don't compile gnus-version.

* gnus-group.el (gnus-update-group-mark-positions): Bind
gnus-group-update-hook to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ee23ae..005c064 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-08-24 16:05:38  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-spec.el (gnus-compile): Don't compile gnus-version. 
+
+       * gnus-group.el (gnus-update-group-mark-positions): Bind
+       gnus-group-update-hook to nil.
+
 2001-08-24 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mml.el (mml-generate-mime-1): Force as multibyte string.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 8da77c4..d4857a0 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -957,6 +957,7 @@ The following commands are available:
 (defun gnus-update-group-mark-positions ()
   (save-excursion
     (let ((gnus-process-mark ?\200)
+         (gnus-group-update-hook nil)
          (gnus-group-marked '("dummy.group"))
          (gnus-active-hashtb (make-vector 10 0))
          (topic ""))

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 6906f5d..340801c 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -627,7 +627,7 @@ If PROPS, insert the result."
 
       (while entries
        (setq entry (pop entries))
-       (if (eq (car entry) 'version)
+       (if (memq (car entry) '(gnus-version version))
            (setq gnus-format-specs (delq entry gnus-format-specs))
          (let ((form (caddr entry)))
            (when (and (listp form)