From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 1 Aug 1994 20:00:24 +0000 (+0000)
Subject: (gnus-sortable-date): Use timezone-make-time-string.
X-Git-Tag: emacs-19.34~7440
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43d5aa681863b30a1cb0984ee1c4483d38b49009;p=emacs.git

(gnus-sortable-date): Use timezone-make-time-string.
---

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 1862ad5b37b..6407862d0fe 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -5221,14 +5221,13 @@ If case-fold-search is non-nil, case of letters is ignored."
 (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)