From cb872f6f122c80a05304ec69c9c7dd46cb29964a Mon Sep 17 00:00:00 2001
From: "Brian A. LaMacchia" <edu/mit/csail/zurich/bal>
Date: Mon, 4 Nov 1991 19:40:43 +0000
Subject: [PATCH] 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.

---
 v7/src/edwin/rmailsrt.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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.
-- 
2.25.1