Mercurial > emacs
comparison lisp/gnus/mail-source.el @ 93386:a789a1138b08
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1104
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 29 Mar 2008 19:54:11 +0000 |
| parents | 59b897c894c7 |
| children | 217fd7a2dc38 |
comparison
equal
deleted
inserted
replaced
| 93385:dcff6c60c69e | 93386:a789a1138b08 |
|---|---|
| 553 (low2days (/ 1.0 65536.0)) ;; convert low bits to days | 553 (low2days (/ 1.0 65536.0)) ;; convert low bits to days |
| 554 (diff (if (natnump age) age 30));; fallback, if no valid AGE given | 554 (diff (if (natnump age) age 30));; fallback, if no valid AGE given |
| 555 currday files) | 555 currday files) |
| 556 (setq files (directory-files | 556 (setq files (directory-files |
| 557 mail-source-directory t | 557 mail-source-directory t |
| 558 (concat mail-source-incoming-file-prefix "*")) | 558 (concat "\\`" |
| 559 (regexp-quote mail-source-incoming-file-prefix))) | |
| 559 currday (* (car (current-time)) high2days) | 560 currday (* (car (current-time)) high2days) |
| 560 currday (+ currday (* low2days (nth 1 (current-time))))) | 561 currday (+ currday (* low2days (nth 1 (current-time))))) |
| 561 (while files | 562 (while files |
| 562 (let* ((ffile (car files)) | 563 (let* ((ffile (car files)) |
| 563 (bfile (gnus-replace-in-string | 564 (bfile (gnus-replace-in-string |