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)