Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-cache.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
132 (defun gnus-cache-possibly-enter-article 132 (defun gnus-cache-possibly-enter-article
133 (group article headers ticked dormant unread &optional force) 133 (group article headers ticked dormant unread &optional force)
134 (when (and (or force (not (eq gnus-use-cache 'passive))) 134 (when (and (or force (not (eq gnus-use-cache 'passive)))
135 (numberp article) 135 (numberp article)
136 (> article 0) 136 (> article 0)
137 (vectorp headers)) 137 (vectorp headers)) ; This might be a dummy article.
138 ; This might be a dummy article.
139 ;; If this is a virtual group, we find the real group. 138 ;; If this is a virtual group, we find the real group.
140 (when (gnus-virtual-group-p group) 139 (when (gnus-virtual-group-p group)
141 (let ((result (nnvirtual-find-group-art 140 (let ((result (nnvirtual-find-group-art
142 (gnus-group-real-name group) article))) 141 (gnus-group-real-name group) article)))
143 (setq group (car result) 142 (setq group (car result)