Make nnmairix always select the correct article

* gnus-bcklg.el (gnus-backlog-enter-article): No virtual groups should
be added to the backlog.

* nnmairix.el ("nnmairix"): Declare nnmairix as virtual.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 071269c..fb860d6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2015-01-27  Eric Abrahamsen  <eric@ericabrahamsen.net>
+
+       * nnmairix.el ("nnmairix"): Declare nnmairix as virtual.
+
+       * gnus-bcklg.el (gnus-backlog-enter-article): No virtual groups should
+       be added to the backlog.
+
 2015-01-26  Tassilo Horn  <tsdh@gnu.org>
 
        * Makefile.in (all total, warn, fail-on-warning): Call gnus-load.el

diff --git a/lisp/gnus-bcklg.el b/lisp/gnus-bcklg.el
index b26f367..e0c457a 100644 (file)
--- 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))

diff --git a/lisp/nnmairix.el b/lisp/nnmairix.el
index 5a01ce8..96b40e5 100644 (file)
--- a/lisp/nnmairix.el
+++ b/lisp/nnmairix.el
@@ -417,7 +417,7 @@ Other back ends might or might not work.")
 
 (nnoo-define-basics nnmairix)
 
-(gnus-declare-backend "nnmairix" 'mail 'address)
+(gnus-declare-backend "nnmairix" 'mail 'address 'virtual)
 
 (deffoo nnmairix-open-server (server &optional definitions)
   ;; just set server variables