From: teranisi <teranisi>
Date: Wed, 23 Aug 2000 05:46:44 +0000 (+0000)
Subject: * elmo-net.el (elmo-network-open-session): Add user and stream-type for
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d992bedaef99f8241501beddde1c5935d514eda3;p=elisp%2Fwanderlust.git

* elmo-net.el (elmo-network-open-session): Add user and stream-type for
 process-buffer name.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 31ec0d3..6b6784a 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2000-08-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-net.el (elmo-network-open-session): Add user and
+	stream-type for process-buffer name.
+
 	* elmo-pop3.el (elmo-network-initialize-session): Call
 	buffer-disable-undo.
 
diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index 16e4a9c..a2b823c 100644
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -164,9 +164,13 @@ Returns a process object. if making session failed, returns nil."
 	   session
 	   (elmo-open-network-stream
 	    (elmo-network-session-name-internal session)
-	    (format " *%s session to %s:%d"
-		    (elmo-network-session-name-internal session)
-		    host port)
+	    (format " *%s session for %s@%s:%d%s"
+		    name
+		    user
+		    host
+		    port
+		    (or (elmo-network-stream-type-spec-string stream-type)
+			""))
 	    host port stream-type))
 	  (when (elmo-network-session-process-internal session)
 	    (elmo-network-initialize-session session)