comparison lisp/gnus/gnus-cache.el @ 136:b980b6286996 r20-2b2

Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents fe104dbd9147
children 585fb297b004
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
142 (setq group (car result) 142 (setq group (car result)
143 headers (copy-sequence headers)) 143 headers (copy-sequence headers))
144 (mail-header-set-number headers (cdr result)))) 144 (mail-header-set-number headers (cdr result))))
145 (let ((number (mail-header-number headers)) 145 (let ((number (mail-header-number headers))
146 file dir) 146 file dir)
147 (when (and (> number 0) ; Reffed article. 147 (when (and number
148 (> number 0) ; Reffed article.
148 (or force 149 (or force
149 (and (or (not gnus-uncacheable-groups) 150 (and (or (not gnus-uncacheable-groups)
150 (not (string-match 151 (not (string-match
151 gnus-uncacheable-groups group))) 152 gnus-uncacheable-groups group)))
152 (gnus-cache-member-of-class 153 (gnus-cache-member-of-class