From 41b92c065b0d9b4d3d65f8175f458d8fa280a0de Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 9 Jul 2000 01:10:51 +0000
Subject: [PATCH] Suppress user name in IMAP URL when it is same as current
 uname.

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

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