* 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 (file)
--- 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 (file)
--- 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)