[Emacs-diffs] Changes to emacs/lisp/gnus/nnmail.el

[Miles Bader]

Index: emacs/lisp/gnus/nnmail.el
diff -c emacs/lisp/gnus/nnmail.el:1.30 emacs/lisp/gnus/nnmail.el:1.31
*** emacs/lisp/gnus/nnmail.el:1.30      Tue Oct  4 22:51:06 2005
--- emacs/lisp/gnus/nnmail.el   Fri Dec  9 08:57:57 2005
***************
*** 1872,1880 ****
         (case-fold-search nil)
         (from (or (message-fetch-field "from") ""))
         (to (or (message-fetch-field "to") ""))
!        (date (date-to-time
!               (or (message-fetch-field "date") (current-time-string))))
         (target 'delete))
      (dolist (regexp-target-pair (reverse nnmail-fancy-expiry-targets) target)
        (setq header (car regexp-target-pair))
        (cond
--- 1872,1886 ----
         (case-fold-search nil)
         (from (or (message-fetch-field "from") ""))
         (to (or (message-fetch-field "to") ""))
!        (date (message-fetch-field "date"))
         (target 'delete))
+     (setq date (if date
+                  (condition-case err
+                      (date-to-time date)
+                    (error
+                     (message "%s" (error-message-string err))
+                     (current-time)))
+                (current-time)))
      (dolist (regexp-target-pair (reverse nnmail-fancy-expiry-targets) target)
        (setq header (car regexp-target-pair))
        (cond