From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 22 May 2000 03:49:11 +0000 (+0000)
Subject: IMAIL-GET-DEFAULT-URL must never signal an error.
X-Git-Tag: 20090517-FFI~3759
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=32e472d0b04606f70856956f697d420220cdcfe1;p=mit-scheme.git

IMAIL-GET-DEFAULT-URL must never signal an error.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 675ad2253..834a4b210 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.79 2000/05/22 03:32:17 cph Exp $
+;;; $Id: imail-top.scm,v 1.80 2000/05/22 03:49:11 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -180,7 +180,10 @@ May be called with an IMAIL folder URL as argument;
 			      port
 			      (ref-variable imail-default-imap-mailbox)))))))
     (cond ((not protocol)
-	   (let ((folder (selected-folder #f)))
+	   (let ((folder
+		  (buffer-get (chase-imail-buffer (selected-buffer))
+			      'IMAIL-FOLDER
+			      #f)))
 	     (if folder
 		 (folder-url folder)
 		 (do-imap))))