From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 9 Jul 2000 01:10:51 +0000 (+0000)
Subject: Suppress user name in IMAP URL when it is same as current uname.
X-Git-Tag: 20090517-FFI~3369
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=41b92c065b0d9b4d3d65f8175f458d8fa280a0de;p=mit-scheme.git

Suppress user name in IMAP URL when it is same as current uname.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 133fd20f1..0c3387700 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.139 2000/07/07 01:52:18 cph Exp $
+;;; $Id: imail-imap.scm,v 1.140 2000/07/09 01:10:51 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -48,8 +48,10 @@
 
 (define (make-imap-url-string url mailbox)
   (string-append "//"
-		 (url:encode-string (imap-url-user-id url))
-		 "@"
+		 (let ((user-id (imap-url-user-id url)))
+		   (if (string=? user-id (current-user-name))
+		       ""
+		       (string-append (url:encode-string user-id) "@")))
 		 (string-downcase (imap-url-host url))
 		 (let ((port (imap-url-port url)))
 		   (if (= port 143)