From 9b807d38b3e46998bcb5b6f4c8cdc7085f0651d8 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 28 Aug 2001 01:23:09 +0000 Subject: [PATCH] * acap.el: (acap-network-stream-open): Show "Connecting..." message. (acap-parse-response): Fixed problem for BYE untagged response. --- elmo/ChangeLog | 2 ++ elmo/acap.el | 12 +++++++----- 2 files changed, 9 insertions(+), 5 deletions(-) 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 * 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 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) -- 1.7.10.4