From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 22 May 2000 03:43:39 +0000 (+0000)
Subject: Suppress the IMAP port if it is the standard port.
X-Git-Tag: 20090517-FFI~3761
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a5d6aa3cb3a258fe4dd0ad61d03a75b13c404f3e;p=mit-scheme.git

Suppress the IMAP port if it is the standard port.
---

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