* wl-address.el (wl-address-make-alist-from-alias-file): Use

[elisp/wanderlust.git] / wl / wl-acap.el

diff --git a/wl/wl-acap.el b/wl/wl-acap.el
index 8ecd7c2..4c9605e 100644 (file)
--- a/wl/wl-acap.el
+++ b/wl/wl-acap.el
@@ -28,14 +28,14 @@
 ;;; Code:
 ;;
 
-(cond
- ((and (not (featurep 'utf-2000))
-       (module-installed-p 'un-define))
-  (require 'un-define))
- ((and (featurep 'xemacs)
-       (not (featurep 'utf-2000))
-       (module-installed-p 'xemacs-ucs))
-  (require 'xemacs-ucs)))
+;;(cond
+;; ((and (not (featurep 'utf-2000))
+;;       (module-installed-p 'un-define))
+;;  (require 'un-define))
+;; ((and (featurep 'xemacs)
+;;       (not (featurep 'utf-2000))
+;;       (module-installed-p 'xemacs-ucs))
+;;  (require 'xemacs-ucs)))
 (require 'custom)
 (require 'cus-edit)
 (require 'wl-vars)
@@ -390,11 +390,11 @@ If nil, default acap port is used."
                       (nreverse settings)))
          (message "Storing folders...")
          (wl-acap-store-folders proc)
-         ;; Does not work correctly??
-         ;;      (acap-setacl proc (list
-         ;;                         (concat
-         ;;                          "/" wl-acap-dataset-class "/~/"))
-         ;;                   "anyone" "") ; protect.
+;;; Does not work correctly??
+;;;      (acap-setacl proc (list
+;;;                         (concat
+;;;                          "/" wl-acap-dataset-class "/~/"))
+;;;                   "anyone" "") ; protect.
          )
       (acap-close proc))
     (if (interactive-p)