From: Lars Ingebrigtsen Date: Thu, 3 Feb 2011 04:14:26 +0000 (-0800) Subject: Rip out the old -treat-date-* stuff, since it didn't really work with defcustom. X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=8045202b562024da892e536862a7b9b8345f9dbb;p=gnus Rip out the old -treat-date-* stuff, since it didn't really work with defcustom. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 68812c83e..6706676e3 100644 --- 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-article-date-headers): Rip out the old -treat-date-* stuff, since + it didn't really work with defcustom. 2011-02-01 Julien Danjou diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index bddcaa9fd..d8876fd8b 100644 --- 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))) -(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),