From 1817a4179892fd655c9056b5c3fa1076bfd950cb Mon Sep 17 00:00:00 2001 From: "Brian A. LaMacchia" Date: Thu, 3 Oct 1991 19:48:20 +0000 Subject: [PATCH] Minor change to rmail-make-basic-summary-line so that dates of the form "02 Oct 91" generate summary lines of the form " 2-Oct" not "02-Oct". --- v7/src/edwin/rmailsum.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm index b28d67182..d787ef6ab 100644 --- a/v7/src/edwin/rmailsum.scm +++ b/v7/src/edwin/rmailsum.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.14 1991/09/10 13:53:21 bal Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.15 1991/10/03 19:48:20 bal Exp $ ;;; ;;; Copyright (c) 1991 Massachusetts Institute of Technology ;;; @@ -275,9 +275,10 @@ RECIPIENTS is a string of names separated by commas." ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)" the-mark the-end-of-line) (string-append - (string-pad-left (extract-string (re-match-start 2) - (re-match-end 2)) - 2) + (let ((date-string (extract-string (re-match-start 2) (re-match-end 2)))) + (if (char=? #\0 (string-ref date-string 0)) + (string-set! date-string 0 #\space)) + (string-pad-left date-string 2)) "-" (extract-string (re-match-start 4) (re-match-end 4)))) ((re-search-forward "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z \t_]*\\)\\([0-9][0-9]?\\)" -- 2.25.1