Rip out the old -treat-date-* stuff, since it didn't really work with defcustom.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68812c8..6706676 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * gnus-art.el (gnus-article-setup-buffer): Stop the date timer if
        gnus-article-update-date-headers is nil.
 
        * gnus-art.el (gnus-article-setup-buffer): Stop the date timer if
        gnus-article-update-date-headers is nil.

+       (gnus-article-date-headers): Rip out the old -treat-date-* stuff, since
+       it didn't really work with defcustom.

 
 2011-02-01  Julien Danjou  <julien@danjou.info>
 
 
 2011-02-01  Julien Danjou  <julien@danjou.info>
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index bddcaa9..d8876fd 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1014,24 +1014,7 @@ on parts -- for instance, adding Vcard info to a database."
   :group 'gnus-article-mime
   :type '(repeat (cons :format "%v" (string :tag "MIME type") function)))
 
   :group 'gnus-article-mime
   :type '(repeat (cons :format "%v" (string :tag "MIME type") function)))
 

-(defcustom gnus-article-date-headers
-  (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)
-                  (symbol-value variable))
-         (push type default))))
-    (when (and (or (not (boundp (intern "gnus-article-date-lapsed-new-header")))
-                  (not (symbol-value (intern "gnus-article-date-lapsed-new-header"))))
-              (memq 'lapsed default))
-      (setq default (delq 'lapsed default)))
-    (or default
-       ;; If they weren't set, we default to `combined-lapsed'.
-       '(combined-lapsed)))
+(defcustom gnus-article-date-headers '(combined-lapsed)

   "A list of Date header formats to display.
 Valid formats are `ut' (universal time), `local' (local time
 zone), `english' (readable English), `lapsed' (elapsed time),
   "A list of Date header formats to display.
 Valid formats are `ut' (universal time), `local' (local time
 zone), `english' (readable English), `lapsed' (elapsed time),