From efac2245535d5020bcc50eebd88ee374b458eba3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 May 2000 18:59:42 +0000
Subject: [PATCH] Fix infinite recursion.

---
 v7/src/imail/imail-imap.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

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