[Emacs-diffs] /srv/bzr/emacs/trunk r103049: gnus-art.el (article-date-ut): Replace infinitely many Date headers with a single one when called interactively.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103049
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2011-01-31 12:29:31 +0000
message:
  gnus-art.el (article-date-ut): Replace infinitely many Date headers with a 
single one when called interactively.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-01-31 10:49:39 +0000
+++ b/lisp/gnus/ChangeLog       2011-01-31 12:29:31 +0000
@@ -3,6 +3,8 @@
        * gnus-art.el (article-transform-date): Rewrite to still work when
        there are several rfc2822 parts.
        (article-transform-date): Fix infinite recursion.
+       (article-date-ut): Replace infinitely many Date headers with a single
+       one when called interactively.
 
        * nnimap.el (nnimap-wait-for-response): Wait for results in a more
        secure manner.

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2011-01-31 10:49:39 +0000
+++ b/lisp/gnus/gnus-art.el     2011-01-31 12:29:31 +0000
@@ -1018,6 +1018,8 @@
   (let ((types '(ut local english lapsed combined-lapsed
                    iso8601 original user-defined))
        default)
+    ;; Try to respect the legacy `gnus-treat-date-*' variables, if
+    ;; they're set.
     (dolist (type types)
       (let ((variable (intern (format "gnus-treat-date-%s" type))))
        (when (and (boundp variable)
@@ -1028,6 +1030,7 @@
               (memq 'lapsed default))
       (setq default (delq 'lapsed default)))
     (or default
+       ;; If they weren't set, we default to `combined-lapsed'.
        '(combined-lapsed)))
   "A list of Date header formats to display.
 Valid formats are `ut' (universal time), `local' (local time
@@ -3439,8 +3442,8 @@
            (setq date (get-text-property (match-beginning 0) 'original-date))
            (delete-region (point-at-bol) (progn
                                            (gnus-article-forward-header)
-                                           (point)))
-           (article-transform-date date type bface eface)))))))
+                                           (point))))
+         (article-transform-date date type bface eface))))))
 
 (defun article-transform-date (date type bface eface)
   (dolist (this-type (cond