Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnfolder.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
223 'nnfolder 223 'nnfolder
224 (lambda () 224 (lambda ()
225 (let ((bufs nnfolder-buffer-alist)) 225 (let ((bufs nnfolder-buffer-alist))
226 (save-excursion 226 (save-excursion
227 (while bufs 227 (while bufs
228 (if (not (buffer-live-p (nth 1 (car bufs)))) 228 (if (not (gnus-buffer-live-p (nth 1 (car bufs))))
229 (setq nnfolder-buffer-alist 229 (setq nnfolder-buffer-alist
230 (delq (car bufs) nnfolder-buffer-alist)) 230 (delq (car bufs) nnfolder-buffer-alist))
231 (set-buffer (nth 1 (car bufs))) 231 (set-buffer (nth 1 (car bufs)))
232 (nnfolder-save-buffer) 232 (nnfolder-save-buffer)
233 (kill-buffer (current-buffer))) 233 (kill-buffer (current-buffer)))
375 (forward-line -1) 375 (forward-line -1)
376 (while (re-search-backward (concat "^" nnfolder-article-marker) nil t) 376 (while (re-search-backward (concat "^" nnfolder-article-marker) nil t)
377 (delete-region (point) (progn (forward-line 1) (point)))) 377 (delete-region (point) (progn (forward-line 1) (point))))
378 (when nnmail-cache-accepted-message-ids 378 (when nnmail-cache-accepted-message-ids
379 (nnmail-cache-insert (nnmail-fetch-field "message-id"))) 379 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
380 (setq result 380 (setq result (if (stringp group)
381 (car (nnfolder-save-mail 381 (list (cons group (nnfolder-active-number group)))
382 (if (stringp group) 382 (setq art-group
383 (list (cons group (nnfolder-active-number group))) 383 (nnmail-article-group 'nnfolder-active-number))))
384 (setq art-group 384 (if (null result)
385 (nnmail-article-group 'nnfolder-active-number))))))) 385 (setq result 'junk)
386 (setq result
387 (car (nnfolder-save-mail result)))))
386 (when last 388 (when last
387 (save-excursion 389 (save-excursion
388 (nnfolder-possibly-change-folder (or (caar art-group) group)) 390 (nnfolder-possibly-change-folder (or (caar art-group) group))
389 (nnfolder-save-buffer) 391 (nnfolder-save-buffer)
390 (when nnmail-cache-accepted-message-ids 392 (when nnmail-cache-accepted-message-ids
680 ;; unmarked messages from there. 682 ;; unmarked messages from there.
681 (when (not (or nnfolder-distrust-mbox 683 (when (not (or nnfolder-distrust-mbox
682 (< maxid 2))) 684 (< maxid 2)))
683 (goto-char (point-max)) 685 (goto-char (point-max))
684 (unless (re-search-backward marker nil t) 686 (unless (re-search-backward marker nil t)
687 (goto-char (point-min)))
688 (when (nnmail-search-unix-mail-delim)
685 (goto-char (point-min)))) 689 (goto-char (point-min))))
686 690
687 ;; Keep track of the active number on our own, and insert it back 691 ;; Keep track of the active number on our own, and insert it back
688 ;; into the active list when we're done. Also, prime the pump to 692 ;; into the active list when we're done. Also, prime the pump to
689 ;; cut down on the number of searches we do. 693 ;; cut down on the number of searches we do.