32K.
* gnus-sum.el (gnus-summary-expire-articles): Clean up.
2002-01-26 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * nnheader.el (nnheader-insert-nov-file): Increased cutoff to
+ 32K.
+
+ * gnus-sum.el (gnus-summary-expire-articles): Clean up.
+
* nnmail.el (nnmail-article-group): Decode headers before running
split rules over them.
(nnmail-mail-splitting-charset): New variable.
;; really expired articles as nonexistent.
(unless (eq es expirable) ;If nothing was expired, we don't mark.
(let ((gnus-use-cache nil))
- (while expirable
- (unless (memq (car expirable) es)
- (when (gnus-data-find (car expirable))
- (gnus-summary-mark-article
- (car expirable) gnus-canceled-mark)))
- (setq expirable (cdr expirable))))))
+ (dolist (article expirable)
+ (when (and (not (memq article es))
+ (gnus-data-find article))
+ (gnus-summary-mark-article article gnus-canceled-mark))))))
(gnus-message 6 "Expiring articles...done")))))
(defun gnus-summary-expire-articles-now ()
(mm-insert-file-contents filename visit beg end replace)))
(defun nnheader-insert-nov-file (file first)
- (let ((size (nth 7 (file-attributes file))))
- (if (< size 4096)
+ (let ((size (nth 7 (file-attributes file)))
+ (cutoff (* 32 1024)))
+ (if (< size cutoff)
;; If the file is small, we just load it.
(nnheader-insert-file-contents file)
;; We start on the assumption that FIRST is pretty recent. If
;; not, we just insert the rest of the file as well.
(let (current)
- (nnheader-insert-file-contents file nil (- size 8192) size)
+ (nnheader-insert-file-contents file nil (- size cutoff) size)
(goto-char (point-min))
(delete-region (point) (or (search-forward "\n" nil 'move) (point)))
(setq current (ignore-errors (read (current-buffer))))
(setq articles (gnus-sorted-intersection articles active-articles))
(while (and articles is-old)
- (if (and (setq article (nnml-article-to-file (setq number (pop articles))))
+ (if (and (setq article (nnml-article-to-file
+ (setq number (pop articles))))
(setq mod-time (nth 5 (file-attributes article)))
(nnml-deletable-article-p group number)
(setq is-old (nnmail-expired-article-p group mod-time force