]> git.eshelyaron.com Git - emacs.git/commitdiff
[Gnus] Make nnmairix always select the correct article
authorEric Abrahamsen <eric@ericabrahamsen.net>
Tue, 27 Jan 2015 05:45:12 +0000 (05:45 +0000)
committerKatsumi Yamaoka <yamaoka@jpl.org>
Tue, 27 Jan 2015 05:45:12 +0000 (05:45 +0000)
lisp/gnus/ChangeLog
lisp/gnus/gnus-bcklg.el
lisp/gnus/nnmairix.el

index 2f3f3753ebdd314656a1e2ee77e591814db6fc41..b4c5cea97cad914b06c5207a71bfed60ff636744 100644 (file)
@@ -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  Trevor Murphy  <trevor.m.murphy@gmail.com>
 
        * nnimap.el (nnimap-header-parameters): Refactor and request
index b26f367a79b821cfa4922ff7947189ef33cb0dc1..e0c457a882955537961a9332b89517335c454540 100644 (file)
@@ -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))
 
 (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))
index 5a01ce8c25c8a92fbe664d1f9a2fa58aa2bc32ab..96b40e5b8457416ec4b17333cb56a6fed2b6fa0e 100644 (file)
@@ -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