From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Jul 2000 20:34:59 +0000 (+0000)
Subject: Change key binding of imail-summary-by-flags to be C-M-l for
X-Git-Tag: 20090517-FFI~3340
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1dd3540da50783fb299dcc0c5412a934ae52fe10;p=mit-scheme.git

Change key binding of imail-summary-by-flags to be C-M-l for
compatibility with Rmail.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 0d84a05b8..ef655ed5c 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.209 2000/07/05 22:38:51 cph Exp $
+;;; $Id: imail-top.scm,v 1.210 2000/07/11 20:34:59 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -444,8 +444,8 @@ Instead, these commands are available:
 ;; Putting these after the group above exploits behavior in the comtab
 ;; abstraction that makes these bindings the ones that show up during
 ;; command substitution.
-(define-key 'imail #\c-m-f	'imail-summary-by-flags)
 (define-key 'imail #\c-m-h	'imail-summary)
+(define-key 'imail #\c-m-l	'imail-summary-by-flags)
 (define-key 'imail #\c-m-r	'imail-summary-by-recipients)
 (define-key 'imail #\c-m-s	'imail-summary-by-regexp)
 (define-key 'imail #\c-m-t	'imail-summary-by-topic)