(article-hide-boring-headers): Fetch date from

gnus-original-article-buffer to avoid problems with localized date
strings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1d4037a..6d999ca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-11-01  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-art.el (article-hide-boring-headers): Fetch date from
+       gnus-original-article-buffer to avoid problems with localized date
+       strings.
+
 2006-10-30  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * html2text.el (html2text-format-tags): Avoid infloop on open tags.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 3fa7e12..dcded1c 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2000,7 +2000,11 @@ always hide."
                                'string<))))
                    (gnus-article-hide-header "reply-to")))))
             ((eq elem 'date)
-             (let ((date (message-fetch-field "date")))
+             (let ((date (with-current-buffer gnus-original-article-buffer
+                           ;; If date in `gnus-article-buffer' is localized
+                           ;; (`gnus-treat-date-user-defined'),
+                           ;; `days-between' might fail.
+                           (message-fetch-field "date"))))
                (when (and date
                           (< (days-between (current-time-string) date)
                              4))