From: teranisi <teranisi>
Date: Tue, 28 Aug 2001 01:34:20 +0000 (+0000)
Subject: * acap.el (acap-open): Changed argument (Use `acap-default-user' if user is nil).
X-Git-Tag: wl-2_7_3~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=15dd6f75413b72d931a795c7ccbb8cc1dd64158f;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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