From c475337385976d81c42c813c692ca3fec21df8c8 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 31 Jan 2011 02:49:29 +0000 Subject: [PATCH] gnus-art.el (article-make-date-line): Work for user-defined format. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-art.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 1367787cb8d..5aa0fb342df 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2011-01-31 Katsumi Yamaoka + + * gnus-art.el (article-make-date-line): Work for user-defined format. + 2011-01-31 Lars Ingebrigtsen * gnus-start.el (gnus-read-active-for-groups): Read the active files diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index e0ff5f2c17e..7fba44816c1 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -3480,7 +3480,7 @@ possible values." (defun article-make-date-line (date type) "Return a DATE line of TYPE." (unless (memq type '(local ut original user iso8601 lapsed english - combined-lapsed)) + combined-lapsed user-defined)) (error "Unknown conversion type: %s" type)) (condition-case () (let ((time (date-to-time date))) @@ -3508,7 +3508,7 @@ possible values." (substring date 0 (match-beginning 0)) date))) ;; Let the user define the format. - ((eq type 'user) + ((eq type 'user-defined) (let ((format (or (condition-case nil (with-current-buffer gnus-summary-buffer gnus-article-time-format) -- 2.11.4.GIT