Mercurial > emacs
changeset 8413:aa772e9e5f86
(gnus-sortable-date): Use timezone-make-time-string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 01 Aug 1994 20:00:24 +0000 |
| parents | 131d3e43ea85 |
| children | 8a8d2cdd4218 |
| files | lisp/=gnus.el |
| diffstat | 1 files changed, 7 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=gnus.el Mon Aug 01 19:29:56 1994 +0000 +++ b/lisp/=gnus.el Mon Aug 01 20:00:24 1994 +0000 @@ -5221,14 +5221,13 @@ (defun gnus-sortable-date (date) "Make sortable string by string-lessp from DATE. Timezone package is used." - (let* ((date (timezone-parse-date date)) ;[Y M D T] - (year (string-to-int (aref date 0))) - (month (string-to-int (aref date 1))) - (day (string-to-int (aref date 2))) - (time (aref date 3))) ;HH:MM:SS - ;; Timezone package is used. But, we don't have to care about - ;; the timezone since article's timezones are always GMT. - (timezone-make-sortable-date year month day time) + (let* ((date (timezone-fix-time date nil nil)) ;[Y M D H M S] + (year (aref date 0)) + (month (aref date 1)) + (day (aref date 2))) + (timezone-make-sortable-date year month day + (timezone-make-time-string + (aref date 3) (aref date 4) (aref date 5))) )) ;;(defun gnus-sortable-date (date)