From 9af242a6d0754b66f231b60b1494e4deb91b3136 Mon Sep 17 00:00:00 2001 From: kaoru Date: Thu, 20 Sep 2001 11:55:01 +0000 Subject: [PATCH] * wl-acap.el (wl-acap-init): Remove period from error message. (wl-acap-find-acap-service): Remove period from message. --- wl/ChangeLog | 5 +++++ wl/wl-acap.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 483ba8c..c1a58e2 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-09-20 TAKAHASHI Kaoru + + * wl-acap.el (wl-acap-init): Remove period from error message. + (wl-acap-find-acap-service): Remove period from message. + 2001-09-20 Yuuichi Teranishi * wl.el (wl-check-environment): Undo last change. diff --git a/wl/wl-acap.el b/wl/wl-acap.el index 3f9a8dd..e251ba7 100644 --- a/wl/wl-acap.el +++ b/wl/wl-acap.el @@ -100,7 +100,7 @@ If nil, default acap port is used." "A candidate for `wl-folder-init-function'." (let ((service (wl-acap-find-acap-service)) proc entries settings folder-top type) - (unless (car service) (error "No ACAP service found.")) + (unless (car service) (error "No ACAP service found")) (setq proc (acap-open (car service) wl-acap-user (upcase (symbol-name wl-acap-authenticate-type)) @@ -148,7 +148,7 @@ If nil, default acap port is used." (if (memq sym wl-acap-base64-encode-options) (wl-acap-base64-decode-string (cadr x)) - (read (concat + (read (concat "\"" (decode-coding-string (cadr x) @@ -194,7 +194,7 @@ If nil, default acap port is used." (setq response (car (slp-response-body response))) (cons (slp-response-srv-url-host response) (slp-response-srv-url-port response)))) - (message "Searching ACAP server...done."))) + (message "Searching ACAP server...done"))) (cons "localhost" nil))) (defun wl-acap-name (option) -- 1.7.10.4