From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Mon, 4 Nov 1991 19:40:43 +0000 (+0000)
Subject: Fixed bug in rmail-sortable-date-string.
X-Git-Tag: 20090517-FFI~10082
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cb872f6f122c80a05304ec69c9c7dd46cb29964a;p=mit-scheme.git
Fixed bug in rmail-sortable-date-string.
4 Nov 91 became "9111 4", and 01 Nov 91 became "911101".
Which meant that 4 Nov 91 sorted before 01 Nov 91.
---
diff --git a/v7/src/edwin/rmailsrt.scm b/v7/src/edwin/rmailsrt.scm
index 26c863ffc..ce8e2ac2a 100644
--- a/v7/src/edwin/rmailsrt.scm
+++ b/v7/src/edwin/rmailsrt.scm
@@ -1,6 +1,6 @@
;;; -*-Scheme-*-
;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsrt.scm,v 1.4 1991/09/10 21:33:30 bal Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsrt.scm,v 1.5 1991/11/04 19:40:43 bal Exp $
;;;
;;; Copyright (c) 1991 Massachusetts Institute of Technology
;;;
@@ -222,7 +222,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
(substring date
(re-match-start-index 1)
(re-match-end-index 1))))
- (string-pad-left day 2))
+ (string-pad-left day 2 #\0))
;; Time
(substring date (re-match-start-index 4) (re-match-end-index 4)))
;; Cannot understand DATE string.