Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-cache.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children b980b6286996
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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)