From 32e472d0b04606f70856956f697d420220cdcfe1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 22 May 2000 03:49:11 +0000
Subject: [PATCH] IMAIL-GET-DEFAULT-URL must never signal an error.

---
 v7/src/imail/imail-top.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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))))
-- 
2.25.1