1872 |
(case-fold-search nil) |
(case-fold-search nil) |
1873 |
(from (or (message-fetch-field "from") "")) |
(from (or (message-fetch-field "from") "")) |
1874 |
(to (or (message-fetch-field "to") "")) |
(to (or (message-fetch-field "to") "")) |
1875 |
(date (date-to-time |
(date (message-fetch-field "date")) |
|
(or (message-fetch-field "date") (current-time-string)))) |
|
1876 |
(target 'delete)) |
(target 'delete)) |
1877 |
|
(setq date (if date |
1878 |
|
(condition-case err |
1879 |
|
(date-to-time date) |
1880 |
|
(error |
1881 |
|
(message "%s" (error-message-string err)) |
1882 |
|
(current-time))) |
1883 |
|
(current-time))) |
1884 |
(dolist (regexp-target-pair (reverse nnmail-fancy-expiry-targets) target) |
(dolist (regexp-target-pair (reverse nnmail-fancy-expiry-targets) target) |
1885 |
(setq header (car regexp-target-pair)) |
(setq header (car regexp-target-pair)) |
1886 |
(cond |
(cond |