Mercurial > hg > xemacs-beta
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 |