# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775771224 0
# Node ID aa772e9e5f86d731d5b0f5ef88f97586a525ea90
# Parent  131d3e43ea85c1e4178be26d729acd0ec07e1613
(gnus-sortable-date): Use timezone-make-time-string.

diff -r 131d3e43ea85 -r aa772e9e5f86 lisp/=gnus.el
--- 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)