From 7a14f2f95be982d2283f28cecd78b3020e4c1dad Mon Sep 17 00:00:00 2001 From: hayashi Date: Fri, 3 Mar 2000 09:39:16 +0000 Subject: [PATCH] Fix nnvirtual bug of ^. --- ChangeLog | 7 +++++++ lisp/nnvirtual.el | 12 ++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 30a1905..ad1923f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2000-02-21 Yoshiki Hayashi + + * nnvirtual.el (nnvirtual-request-article): + Bind gnus-override-method to nil. + (nnvirtual-request-update-mark): Don't update mark when + article is not there. + 2000-03-03 Daiki Ueno * lisp/gnus.el (gnus-revision-number): Increment to 12. diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el index fef53d7..a0ce733 100644 --- a/lisp/nnvirtual.el +++ b/lisp/nnvirtual.el @@ -198,8 +198,9 @@ component group will show up when you enter the virtual group.") (save-excursion (when buffer (set-buffer buffer)) - (let ((method (gnus-find-method-for-group - nnvirtual-last-accessed-component-group))) + (let* ((gnus-override-method nil) + (method (gnus-find-method-for-group + nnvirtual-last-accessed-component-group))) (funcall (gnus-get-function method 'request-article) article nil (nth 1 method) buffer))))) ;; This is a fetch by number. @@ -284,12 +285,11 @@ component group will show up when you enter the virtual group.") (deffoo nnvirtual-request-update-mark (group article mark) (let* ((nart (nnvirtual-map-article article)) - (cgroup (car nart)) - ;; The component group might be a virtual group. - (nmark (gnus-request-update-mark cgroup (cdr nart) mark))) + (cgroup (car nart))) (when (and nart (memq mark gnus-auto-expirable-marks) - (= mark nmark) + ;; The component group might be a virtual group. + (= mark (gnus-request-update-mark cgroup (cdr nart) mark)) (gnus-group-auto-expirable-p cgroup)) (setq mark gnus-expirable-mark))) mark) -- 1.7.10.4