projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Do not overwrite preexisting contents of unread-command-events
[gnus]
/
lisp
/
gnus-bcklg.el
diff --git
a/lisp/gnus-bcklg.el
b/lisp/gnus-bcklg.el
index
6823332
..
e0c457a
100644
(file)
--- a/
lisp/gnus-bcklg.el
+++ b/
lisp/gnus-bcklg.el
@@
-1,7
+1,6
@@
;;; gnus-bcklg.el --- backlog functions for Gnus
;;; gnus-bcklg.el --- backlog functions for Gnus
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1996-2015 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-62,7
+61,7
@@
(defun gnus-backlog-enter-article (group number buffer)
(when (and (numberp number)
(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))
(gnus-backlog-setup)
(let ((ident (intern (concat group ":" (int-to-string number))
gnus-backlog-hashtb))
@@
-127,7
+126,7
@@
(defun gnus-backlog-request-article (group number &optional buffer)
(when (and (numberp number)
(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))
(gnus-backlog-setup)
(let ((ident (intern (concat group ":" (int-to-string number))
gnus-backlog-hashtb))