From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 May 2000 18:59:42 +0000 (+0000)
Subject: Fix infinite recursion.
X-Git-Tag: 20090517-FFI~3856
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=efac2245535d5020bcc50eebd88ee374b458eba3;p=mit-scheme.git

Fix infinite recursion.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index b09e48b1f..6fd7d2a7b 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap.scm,v 1.45 2000/05/16 18:55:37 cph Exp $
+;;; $Id: imail-imap.scm,v 1.46 2000/05/16 18:59:42 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -53,11 +53,13 @@
   (let ((constructor
 	 (instance-constructor <imap-url> '(USER-ID HOST PORT MAILBOX))))
     (lambda (user-id host port mailbox)
-      (let ((default (imail-default-imap-url)))
-	(constructor (or user-id (imap-url-user-id default))
-		     (or host (imap-url-host default))
-		     (or port (imap-url-port default))
-		     (or mailbox (imap-url-mailbox default)))))))
+      (if (and user-id host port mailbox)
+	  (constructor user-id host port mailbox)
+	  (let ((default (imail-default-imap-url)))
+	    (constructor (or user-id (imap-url-user-id default))
+			 (or host (imap-url-host default))
+			 (or port (imap-url-port default))
+			 (or mailbox (imap-url-mailbox default))))))))
 
 (define imap:parse:imail-url
   (let ((//server