From 15dd6f75413b72d931a795c7ccbb8cc1dd64158f Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 28 Aug 2001 01:34:20 +0000 Subject: [PATCH] * acap.el (acap-open): Changed argument (Use `acap-default-user' if user is nil). --- elmo/ChangeLog | 1 + elmo/acap.el | 5 +++-- 2 files changed, 4 insertions(+), 2 deletions(-) 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 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 -- 1.7.10.4