[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9e0866e 1/2: [Gnus] Make nnmairix always select the
|
From: |
Katsumi Yamaoka |
|
Subject: |
[Emacs-diffs] master 9e0866e 1/2: [Gnus] Make nnmairix always select the correct article |
|
Date: |
Tue, 27 Jan 2015 05:46:20 +0000 |
branch: master
commit 9e0866e1219b7e49393014fe5d050603d885b111
Author: Eric Abrahamsen <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
[Gnus] Make nnmairix always select the correct article
---
lisp/gnus/ChangeLog | 7 +++++++
lisp/gnus/gnus-bcklg.el | 4 ++--
lisp/gnus/nnmairix.el | 2 +-
3 files changed, 10 insertions(+), 3 deletions(-)
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2f3f375..b4c5cea 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,10 @@
+2015-01-27 Eric Abrahamsen <address@hidden>
+
+ * 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 <address@hidden>
* nnimap.el (nnimap-header-parameters): Refactor and request
diff --git a/lisp/gnus/gnus-bcklg.el b/lisp/gnus/gnus-bcklg.el
index b26f367..e0c457a 100644
--- a/lisp/gnus/gnus-bcklg.el
+++ b/lisp/gnus/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/gnus/nnmairix.el b/lisp/gnus/nnmairix.el
index 5a01ce8..96b40e5 100644
--- a/lisp/gnus/nnmairix.el
+++ b/lisp/gnus/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