diff options
| author | Richard M. Stallman | 1994-08-01 20:00:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-08-01 20:00:24 +0000 |
| commit | 43d5aa681863b30a1cb0984ee1c4483d38b49009 (patch) | |
| tree | 680247442ed083f27d7b2266628f1da56d4b221b | |
| parent | 877b578fc80f129bc683eafccadf4841e3e36930 (diff) | |
| download | emacs-43d5aa681863b30a1cb0984ee1c4483d38b49009.tar.gz emacs-43d5aa681863b30a1cb0984ee1c4483d38b49009.zip | |
(gnus-sortable-date): Use timezone-make-time-string.
| -rw-r--r-- | lisp/gnus.el | 15 |
1 files changed, 7 insertions, 8 deletions
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." | |||
| 5221 | (defun gnus-sortable-date (date) | 5221 | (defun gnus-sortable-date (date) |
| 5222 | "Make sortable string by string-lessp from DATE. | 5222 | "Make sortable string by string-lessp from DATE. |
| 5223 | Timezone package is used." | 5223 | Timezone package is used." |
| 5224 | (let* ((date (timezone-parse-date date)) ;[Y M D T] | 5224 | (let* ((date (timezone-fix-time date nil nil)) ;[Y M D H M S] |
| 5225 | (year (string-to-int (aref date 0))) | 5225 | (year (aref date 0)) |
| 5226 | (month (string-to-int (aref date 1))) | 5226 | (month (aref date 1)) |
| 5227 | (day (string-to-int (aref date 2))) | 5227 | (day (aref date 2))) |
| 5228 | (time (aref date 3))) ;HH:MM:SS | 5228 | (timezone-make-sortable-date year month day |
| 5229 | ;; Timezone package is used. But, we don't have to care about | 5229 | (timezone-make-time-string |
| 5230 | ;; the timezone since article's timezones are always GMT. | 5230 | (aref date 3) (aref date 4) (aref date 5))) |
| 5231 | (timezone-make-sortable-date year month day time) | ||
| 5232 | )) | 5231 | )) |
| 5233 | 5232 | ||
| 5234 | ;;(defun gnus-sortable-date (date) | 5233 | ;;(defun gnus-sortable-date (date) |