/[emacs]/emacs/lisp/gnus/nnmail.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by miles, Tue Oct 4 22:51:06 2005 UTC revision 1.31 by miles, Fri Dec 9 08:57:57 2005 UTC
# Line 1872  See the Info node `(gnus)Fancy Mail Spli Line 1872  See the Info node `(gnus)Fancy Mail Spli
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

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26