Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-sort.el @ 54:05472e90ae02 r19-16-pre2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16-pre2
author cvs
date Mon, 13 Aug 2007 08:57:55 +0200
parents 441bb1e64a06
children 131b0175ea99
comparison
equal deleted inserted replaced
53:875393c1a535 54:05472e90ae02
210 (defun vm-so-sortable-datestring (m) 210 (defun vm-so-sortable-datestring (m)
211 (or (vm-sortable-datestring-of m) 211 (or (vm-sortable-datestring-of m)
212 (progn 212 (progn
213 (vm-set-sortable-datestring-of 213 (vm-set-sortable-datestring-of
214 m 214 m
215 (timezone-make-date-sortable 215 (condition-case nil
216 (or (vm-get-header-contents m "Date:") 216 (timezone-make-date-sortable
217 (vm-grok-From_-date m) 217 (or (vm-get-header-contents m "Date:")
218 "Thu, 1 Jan 1970 00:00:00 GMT") 218 (vm-grok-From_-date m)
219 "GMT" "GMT")) 219 "Thu, 1 Jan 1970 00:00:00 GMT")
220 "GMT" "GMT")
221 (error "1970010100:00:00")))
220 (vm-sortable-datestring-of m)))) 222 (vm-sortable-datestring-of m))))
221 223
222 (defun vm-so-sortable-subject (m) 224 (defun vm-so-sortable-subject (m)
223 (or (vm-sortable-subject-of m) 225 (or (vm-sortable-subject-of m)
224 (progn 226 (progn