Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnfolder.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
548 (group-art-list 548 (group-art-list
549 (nreverse (nnmail-article-group 'nnfolder-active-number))) 549 (nreverse (nnmail-article-group 'nnfolder-active-number)))
550 (delim (concat "^" message-unix-mail-delimiter)) 550 (delim (concat "^" message-unix-mail-delimiter))
551 save-list group-art) 551 save-list group-art)
552 (goto-char (point-min)) 552 (goto-char (point-min))
553 ;; This might come from somewhere else. 553 ;; The From line may have been quoted by movemail.
554 (when (looking-at (concat ">" message-unix-mail-delimiter))
555 (delete-char 1))
556 ;; This might come from somewhere else.
554 (unless (looking-at delim) 557 (unless (looking-at delim)
555 (insert "From nobody " (current-time-string) "\n") 558 (insert "From nobody " (current-time-string) "\n")
556 (goto-char (point-min))) 559 (goto-char (point-min)))
557 ;; Quote all "From " lines in the article. 560 ;; Quote all "From " lines in the article.
558 (forward-line 1) 561 (forward-line 1)
668 ;; If the file hasn't been touched since the last time we scanned it, 671 ;; If the file hasn't been touched since the last time we scanned it,
669 ;; don't bother doing anything with it. 672 ;; don't bother doing anything with it.
670 (let ((delim (concat "^" message-unix-mail-delimiter)) 673 (let ((delim (concat "^" message-unix-mail-delimiter))
671 (marker (concat "\n" nnfolder-article-marker)) 674 (marker (concat "\n" nnfolder-article-marker))
672 (number "[0-9]+") 675 (number "[0-9]+")
673 (active (cadr (assoc nnfolder-current-group 676 (active (or (cadr (assoc nnfolder-current-group
674 nnfolder-group-alist))) 677 nnfolder-group-alist))
678 (cons 1 0)))
675 (scantime (assoc nnfolder-current-group nnfolder-scantime-alist)) 679 (scantime (assoc nnfolder-current-group nnfolder-scantime-alist))
676 (minid (lsh -1 -1)) 680 (minid (lsh -1 -1))
677 maxid start end newscantime) 681 maxid start end newscantime)
678 682
679 (setq maxid (or (cdr active) 0)) 683 (setq maxid (or (cdr active) 0))