From 199e227482b78171d88820fb22008cadd01641ac Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Sun, 16 Nov 2014 11:28:35 +0800 Subject: [PATCH 2/2] Disable backlog altogether for virtual groups * lisp/gnus-bcklg.el (gnus-backlog-enter-article gnus-backlog-request-article): No articles from virtual groups should be added to the backlog. --- lisp/gnus-bcklg.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/gnus-bcklg.el b/lisp/gnus-bcklg.el index db80800..f3b9a66 100644 --- a/lisp/gnus-bcklg.el +++ b/lisp/gnus-bcklg.el @@ -61,7 +61,7 @@ (defun gnus-backlog-enter-article (group number buffer) (when (and (numberp number) - (not (string-match "^nnvirtual" group))) + (not (gnus-virtual-group-p group))) (gnus-backlog-setup) (let ((ident (intern (concat group ":" (int-to-string number)) gnus-backlog-hashtb)) @@ -126,7 +126,7 @@ (defun gnus-backlog-request-article (group number &optional buffer) (when (and (numberp number) - (not (string-match "^nnvirtual" group))) + (not (gnus-virtual-group-p group))) (gnus-backlog-setup) (let ((ident (intern (concat group ":" (int-to-string number)) gnus-backlog-hashtb)) -- 2.1.3