* wl-acap.el (toplevel): Require 'wl.

(wl-acap-store): Call `elmo-init'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e2d3101..5a98aef 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2001-08-29  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-acap.el (toplevel): Require 'wl.
+       (wl-acap-store): Call `elmo-init'.
+
        * wl.el (wl): Changed position of `wl-check-environment'.
        (toplevel): Added autoload setting for wl-acap.
 

diff --git a/wl/wl-acap.el b/wl/wl-acap.el
index cef98d7..e0b38af 100644 (file)
--- a/wl/wl-acap.el
+++ b/wl/wl-acap.el
@@ -31,6 +31,7 @@
 (require 'custom)
 (require 'cus-edit)
 (require 'wl-vars)
+(require 'wl)
 (require 'elmo-vars)
 (require 'acap)
 (require 'slp)
@@ -240,6 +241,7 @@ If nil, default acap port is used."
   "Store Wanderlust configuration to the ACAP server."
   (interactive)
   (wl-load-profile)
+  (elmo-init)
   (let ((service (wl-acap-find-acap-service))
        proc settings type)
     (setq proc (acap-open (car service)
@@ -275,7 +277,13 @@ If nil, default acap port is used."
                         "/" wl-acap-dataset-class "/~/" wl-acap-entry-name))
                       (nreverse settings)))
          (message "Storing folders...")
-         (wl-acap-store-folders proc))
+         (wl-acap-store-folders proc)
+         ;; Does not work correctly??
+         ;;      (acap-setacl proc (list
+         ;;                         (concat
+         ;;                          "/" wl-acap-dataset-class "/~/"))
+         ;;                   "anyone" "") ; protect.
+         )
       (acap-close proc))
     (if (interactive-p)
        (message "Store completed."))))