From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Dec 2000 06:12:42 +0000 (+0000)
Subject: Change M-x imail-quit again -- this time to reverse the meaning of the
X-Git-Tag: 20090517-FFI~3064
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=34562ea0681fe16d9ab4d6838185a1249458b96f;p=mit-scheme.git

Change M-x imail-quit again -- this time to reverse the meaning of the
prefix argument.  Now the default is to quit from all folders.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 2f928e0b4..4453499fa 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.222 2000/12/16 05:45:34 cph Exp $
+;;; $Id: imail-top.scm,v 1.223 2000/12/16 06:12:42 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1344,17 +1344,17 @@ If it doesn't exist, it is created first."
 
 (define-command imail-quit
   "Quit out of IMAIL.
-Closes selected folder and buries its buffer.
-With prefix argument, closes and buries all IMAIL folders."
+Closes all IMAIL folders and buries their buffers.
+With prefix argument, closes and buries only selected IMAIL folder."
   "P"
-  (lambda (quit-all?)
+  (lambda (selected-only?)
     (let ((quit
 	   (lambda (folder)
 	     (close-folder folder)
 	     (imail-bury folder))))
-      (if quit-all?
-	  (for-each quit (folder-list))
-	  (quit (selected-folder))))))
+      (if selected-only?
+	  (quit (selected-folder))
+	  (for-each quit (folder-list))))))
 
 (define (folder-list)
   (let loop ((buffers (buffer-list)) (folders '()))