* acap.el (acap-open): Changed argument (Use `acap-default-user' if user is nil).

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6e74ce6..2f534fa 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -3,6 +3,7 @@
        * acap.el: New file.
        (acap-network-stream-open): Show "Connecting..." message.
        (acap-parse-response): Fixed problem for BYE untagged response.
+       (acap-open): Changed argument (Use `acap-default-user' if user is nil).
 
 2001-08-20  Tatsuya Kinoshita <tats@iris.ne.jp>
 

diff --git a/elmo/acap.el b/elmo/acap.el
index b168e98..75aec73 100644 (file)
--- a/elmo/acap.el
+++ b/elmo/acap.el
@@ -178,8 +178,9 @@ Valid states are `closed', `initial', `auth'.")
                acap-passphrase-alist))))
 
 ;;; Open, Close 
-(defun acap-open (user server &optional auth port type)
-  (let* ((buffer (get-buffer-create (concat " *acap on " user " at " server)))
+(defun acap-open (server &optional user auth port type)
+  (let* ((user (or user acap-default-user))
+        (buffer (get-buffer-create (concat " *acap on " user " at " server)))
         process passphrase mechanism tag)
     (with-current-buffer buffer
       (if acap-process