From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 31 May 2000 02:10:35 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~3655
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0fe6425bd334d4b2b77a68a8bf95c02d3cf6f107;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 7887c1caf..36d631e83 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.114 2000/05/30 21:01:33 cph Exp $
+;;; $Id: imail-top.scm,v 1.115 2000/05/31 02:10:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1468,6 +1468,7 @@ A prefix argument says to prompt for a URL and append all messages
 					    'HISTORY-INDEX 0))))
   (lambda (url-string)
     (if url-string
+	((ref-command imail-input-from-folder) url-string)
 	(let* ((folder (selected-folder))
 	       (count (folder-modification-count folder))
 	       ;; NAVIGATOR/LAST-MESSAGE must run _after_
@@ -1493,8 +1494,7 @@ A prefix argument says to prompt for a URL and append all messages
 				      folder)))))
 			 (else (navigator/first-unseen-message folder)))
 		   (selected-message #f)))
-	      (message "(No changes to mail folder)")))
-	((ref-command imail-input-from-folder) url-string))))
+	      (message "(No changes to mail folder)"))))))
 
 (define-command imail-save-folder
   "Save the currently selected IMAIL folder."