From a5d6aa3cb3a258fe4dd0ad61d03a75b13c404f3e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 22 May 2000 03:43:39 +0000
Subject: [PATCH] Suppress the IMAP port if it is the standard port.

---
 v7/src/imail/imail-imap.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 339647943..c33089308 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.66 2000/05/22 03:37:00 cph Exp $
+;;; $Id: imail-imap.scm,v 1.67 2000/05/22 03:43:39 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -53,8 +53,9 @@
 		 (url:encode-string user-id)
 		 "@"
 		 host
-		 ":"
-		 (number->string port)
+		 (if (= port 143)
+		     ""
+		     (string-append ":" (number->string port)))
 		 "/"
 		 (url:encode-string mailbox)))
 
-- 
2.25.1