From: kaoru <kaoru>
Date: Thu, 20 Sep 2001 11:55:01 +0000 (+0000)
Subject: * wl-acap.el (wl-acap-init): Remove period from error message.
X-Git-Tag: wl-2_7_5~60
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9af242a6d0754b66f231b60b1494e4deb91b3136;p=elisp%2Fwanderlust.git

* wl-acap.el (wl-acap-init): Remove period from error message.
(wl-acap-find-acap-service): Remove period from message.
---

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  <kaoru@kaisei.org>
+
+	* 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  <teranisi@gohome.org>
 
 	* 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)