Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-sort.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents a145efe76779
children
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
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