Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/vm/vm-sort.el	Mon Aug 13 09:23:08 2007 +0200
+++ b/lisp/vm/vm-sort.el	Mon Aug 13 09:24:17 2007 +0200
@@ -212,11 +212,13 @@
       (progn
 	(vm-set-sortable-datestring-of
 	 m
-	 (timezone-make-date-sortable
-	  (or (vm-get-header-contents m "Date:")
-	      (vm-grok-From_-date m)
-	      "Thu, 1 Jan 1970 00:00:00 GMT")
-	  "GMT" "GMT"))
+	 (condition-case nil
+	     (timezone-make-date-sortable
+	      (or (vm-get-header-contents m "Date:")
+		  (vm-grok-From_-date m)
+		  "Thu, 1 Jan 1970 00:00:00 GMT")
+	      "GMT" "GMT")
+	   (error "1970010100:00:00")))
 	(vm-sortable-datestring-of m))))
 
 (defun vm-so-sortable-subject (m)