From: teranisi <teranisi>
Date: Tue, 28 Aug 2001 01:23:09 +0000 (+0000)
Subject: * acap.el: (acap-network-stream-open): Show "Connecting..." message.
X-Git-Tag: wl-2_7_3~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9b807d38b3e46998bcb5b6f4c8cdc7085f0651d8;p=elisp%2Fwanderlust.git

* acap.el: (acap-network-stream-open): Show "Connecting..." message.
(acap-parse-response): Fixed problem for BYE untagged response.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 220511c..6e74ce6 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,6 +1,8 @@
 2001-08-28  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* acap.el: New file.
+	(acap-network-stream-open): Show "Connecting..." message.
+	(acap-parse-response): Fixed problem for BYE untagged response.
 
 2001-08-20  Tatsuya Kinoshita <tats@iris.ne.jp>
 
diff --git a/elmo/acap.el b/elmo/acap.el
index a52406d..b168e98 100644
--- a/elmo/acap.el
+++ b/elmo/acap.el
@@ -108,9 +108,11 @@ Valid states are `closed', `initial', `auth'.")
 
 (defun acap-network-stream-open (buffer server port &optional type)
   (let* ((port (or port acap-default-port))
-	 (process (funcall (cdr (assq (or type 'default)
-				      acap-network-stream-alist))
-			   "ACAP" buffer server port)))
+	 (process (progn
+		    (message "Connecting to %s..." server)
+		    (funcall (cdr (assq (or type 'default)
+					acap-network-stream-alist))
+			     "ACAP" buffer server port))))
     (when process
       (with-current-buffer buffer
 	(while (and (memq (process-status process) '(open run))
@@ -729,8 +731,8 @@ ENTRIES is a store-entry list."
 	  (ALERT ;(cons 'alert (acap-parse-resp-body))
 	   (message (nth 1 (acap-parse-resp-body))))
 	  (BYE   ;(cons 'bye (acap-parse-resp-body)))
-	   (message (acap-parse-resp-body))
-	   (ding)
+	   ;;(message (nth 1  (acap-parse-resp-body)))
+	   ;;(ding)
 	   (delete-process acap-process))
 	  (CHANGE (cons 'change
 			(list (acap-parse-quoted)