diff options
| author | Katsumi Yamaoka <[email protected]> | 2011-01-31 02:49:29 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <[email protected]> | 2011-01-31 02:49:29 +0000 |
| commit | c475337385976d81c42c813c692ca3fec21df8c8 (patch) | |
| tree | 2ca78c42c326cda1b9b114c27c3b31870f326dc8 /lisp/gnus/gnus-art.el | |
| parent | e389d61f82e7e659d0c6708237c817c640d24b9d (diff) | |
gnus-art.el (article-make-date-line): Work for user-defined format.
Diffstat (limited to 'lisp/gnus/gnus-art.el')
| -rw-r--r-- | lisp/gnus/gnus-art.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index e0ff5f2c17..7fba44816c 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) |