* 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 (file)
--- 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 (file)
--- 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)