From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Thu, 23 Apr 1992 18:22:38 +0000 (+0000)
Subject: Added support for #\R in rmail-summary mode.
X-Git-Tag: 20090517-FFI~9457
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=75c020e13cf19378a8a6c2d85bb7c8b017495d65;p=mit-scheme.git

Added support for #\R in rmail-summary mode.
---

diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm
index 02c031053..648e21c4d 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.20 1992/01/08 16:46:42 bal Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.21 1992/04/23 18:22:38 bal Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -48,7 +48,7 @@
 
 (define-variable rmailsum-rcs-header
   "The RCS header of the rmailsum.scm file."
-  "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.20 1992/01/08 16:46:42 bal Exp $"
+  "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.21 1992/04/23 18:22:38 bal Exp $"
   string?)
 
 (define-variable-per-buffer rmail-buffer
@@ -454,6 +454,7 @@ Entering this mode calls value of hook variable rmail-summary-mode-hook."
 (define-key 'rmail-summary #\?		'describe-mode)
 (define-key 'rmail-summary #\m		'rmail-summary-mail)
 (define-key 'rmail-summary #\r		'rmail-summary-reply)
+(define-key 'rmail-summary #\R		'rmail-summary-reply)
 
 ;;; (define-key 'rmail #\a		'rmail-add-label)
 ;;; (define-key 'rmail #\k		'rmail-kill-label)
@@ -813,10 +814,14 @@ Calls whatever function is bound to #\m in RMAIL mode."
 
 (define-command rmail-summary-reply
   "Reply to the current message.
-Calls whatever function is bound to #\r in RMAIL mode."
+Calls whatever function is bound to the command key in RMAIL mode.
+Note that both #\r and #\R are bound to this command."
   "P"
   (lambda (arg)
-    (select-buffer-other-window (ref-variable rmail-buffer))
-    ((command-procedure
-      (comtab-entry (mode-comtabs (current-major-mode)) #\r))
-     arg)))
+    (let ((key (current-command-key)))
+      (if (char? key)
+	  (begin
+	    (select-buffer-other-window (ref-variable rmail-buffer))
+	    ((command-procedure
+	      (comtab-entry (mode-comtabs (current-major-mode)) key))
+	     arg))))))