From c7fe7899bca156591013b0f833d601f9f5d6e9c9 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 24 Aug 2001 21:09:21 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 7 +++++++ lisp/gnus-group.el | 1 + lisp/gnus-spec.el | 2 +- 3 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3ee23aeee..005c064e2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2001-08-24 16:05:38 Lars Magne Ingebrigtsen + + * 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 * mml.el (mml-generate-mime-1): Force as multibyte string. diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 8da77c4f1..d4857a096 100644 --- 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 6906f5db4..340801ca4 100644 --- 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) -- 2.25.1