From 829f8a02f394b3e8735deb36b2845928b0bf1774 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 4 Feb 2011 08:43:11 -0800 Subject: [PATCH 1/1] * gnus-sum.el (gnus-user-date): Renamed back from gnus-summary-user-date since user code refers to it. --- lisp/ChangeLog | 3 +++ lisp/gnus-sum.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cf5d98c2d..24cf7dd63 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-02-04 Lars Ingebrigtsen + * gnus-sum.el (gnus-user-date): Renamed back from + gnus-summary-user-date since user code refers to it. + * shr.el (shr-render-td): Store the actual background colour used. * message.el (message-setup-1): Don't bind the constant diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index c40fcc7fe..8221667ab 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1395,7 +1395,7 @@ the normal Gnus MIME machinery." (?u gnus-tmp-user-defined ?s) (?P (gnus-pick-line-number) ?d) (?B gnus-tmp-thread-tree-header-string ?s) - (user-date (gnus-summary-user-date + (user-date (gnus-user-date ,(macroexpand '(mail-header-date gnus-tmp-header))) ?s)) "An alist of format specifications that can appear in summary lines. These are paired with what variables they correspond with, along with @@ -3882,7 +3882,7 @@ respectively." (make-obsolete-variable 'gnus-user-date-format-alist 'gnus-summary-user-date-format-alist "24.1") -(defun gnus-summary-user-date (messy-date) +(defun gnus-user-date (messy-date) "Format the messy-date according to `gnus-summary-user-date-format-alist'. Returns \" ? \" if there's bad input or if another error occurs. Input should look like this: \"Sun, 14 Oct 2001 13:34:39 +0200\"." -- 2.25.1