;;; 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)
proc entries settings folder-top type caches msgdb-dir)
(if (null (car service))
(if (setq caches
- (delq
+ (delq
nil
(mapcar
(lambda (dirent)
(expand-file-name
"acap"
elmo-msgdb-directory)))))))
- (if (y-or-n-p "No ACAP service found. Try cache? ")
+ (if (y-or-n-p "No ACAP service found. Try cache? ")
(let (selected rpath alist)
(setq alist
(mapcar
alist))
msgdb-dir (file-name-directory selected)
entries (elmo-object-load selected)))
- (error "No ACAP service found."))
- (error "No ACAP service found."))
+ (error "No ACAP service found"))
+ (error "No ACAP service found"))
(setq proc (acap-open (car service)
wl-acap-user
(upcase (symbol-name
"/~/")
'((RETURN ("*"))))))
(when entries
- (elmo-object-save
+ (elmo-object-save
(expand-file-name
(concat "acap/" (car service) "/" wl-acap-user "/"
wl-acap-cache-filename)
(defun wl-acap-create-folder-entity (string)
(with-temp-buffer
(message "Initializing folder...")
- (let (folders)
+ (let (folders entity)
(setq string (elmo-base64-decode-string string))
(setq string (decode-coding-string string wl-acap-coding-system))
(insert string)