From: teranisi <teranisi>
Date: Wed, 29 Aug 2001 08:08:05 +0000 (+0000)
Subject: * wl-acap.el (toplevel): Require 'wl.
X-Git-Tag: wl-2_7_4~63
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d3de69ce8c2df5241c7eb0a384bd015352716292;p=elisp%2Fwanderlust.git

* wl-acap.el (toplevel): Require 'wl.
(wl-acap-store): Call `elmo-init'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e2d3101..5a98aef 100644
--- 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
--- 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."))))