From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 14 Sep 2001 21:19:29 +0000 (+0000)
Subject: M-x imail-sort-by-subject should do a case-insensitive sort.
X-Git-Tag: 20090517-FFI~2577
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=31159149c9c0b543a0440d71e3c1e28c3251ee6d;p=mit-scheme.git

M-x imail-sort-by-subject should do a case-insensitive sort.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index ada28461d..a38e08732 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.270 2001/09/14 21:16:07 cph Exp $
+;;; $Id: imail-top.scm,v 1.271 2001/09/14 21:19:29 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -1473,7 +1473,7 @@ With prefix argument, sort them in reverse order."
 With prefix argument, sort them in reverse order."
   "P"
   (lambda (reverse?)
-    (sort-selected-folder (if reverse? string>? string<?)
+    (sort-selected-folder (if reverse? string-ci>? string-ci<?)
 			  message-subject)))
 
 (define-command imail-sort-by-author