From d3de69ce8c2df5241c7eb0a384bd015352716292 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 29 Aug 2001 08:08:05 +0000 Subject: [PATCH] * wl-acap.el (toplevel): Require 'wl. (wl-acap-store): Call `elmo-init'. --- wl/ChangeLog | 3 +++ wl/wl-acap.el | 10 +++++++++- 2 files changed, 12 insertions(+), 1 deletion(-) 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 + * 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.")))) -- 1.7.10.4