-;;; elmo-mark.el -- Global mark folder for ELMO.
+;;; elmo-mark.el --- Global mark folder for ELMO.
;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;;
;;; Commentary:
-;;
+;;
;;; Code:
-;;
+;;
(require 'elmo)
(require 'elmo-map)
elmo-mark-folder))
(expand-file-name "mark"
(expand-file-name "internal"
- elmo-msgdb-dir)))
+ elmo-msgdb-directory)))
-(luna-define-method elmo-map-folder-list-message-locations
+(luna-define-method elmo-map-folder-list-message-locations
((folder elmo-mark-folder))
(elmo-mark-folder-list-message-locations folder))
(let (result)
(dolist (pair (or elmo-msgdb-global-mark-alist
(setq elmo-msgdb-global-mark-alist
- (elmo-object-load
+ (elmo-object-load
(expand-file-name
elmo-msgdb-global-mark-filename
- elmo-msgdb-dir)))))
+ elmo-msgdb-directory)))))
(if (string= (elmo-mark-folder-mark-internal folder)
(cdr pair))
(setq result (cons (car pair) result))))
(when (file-writable-p path)
(write-region-as-binary (point-min) (point-max)
path nil 'no-msg)))
- (elmo-msgdb-global-mark-set msgid
+ (elmo-msgdb-global-mark-set msgid
(elmo-mark-folder-mark-internal folder))))
(luna-define-method elmo-map-folder-delete-messages ((folder elmo-mark-folder)
(luna-define-method elmo-folder-exists-p ((folder elmo-mark-folder))
t)
+(luna-define-method elmo-folder-writable-p ((folder elmo-mark-folder))
+ t)
+
(luna-define-method elmo-folder-search ((folder elmo-mark-folder)
condition &optional from-msgs)
(let* ((msgs (or from-msgs (elmo-folder-list-messages folder)))