1 ;;; elmo-mark.el --- Global mark folder for ELMO.
3 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
5 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
6 ;; Keywords: mail, net news
8 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
10 ;; This program is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; This program is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
34 (defcustom elmo-mark-default-mark "$"
35 "*Default global-mark for mark-folder."
41 (luna-define-class elmo-mark-folder (elmo-map-folder) (mark))
42 (luna-define-internal-accessors 'elmo-mark-folder))
44 (luna-define-method elmo-folder-initialize ((folder
47 (elmo-mark-folder-set-mark-internal
49 elmo-mark-default-mark)
52 (luna-define-method elmo-folder-have-subfolder-p ((folder elmo-mark-folder))
55 (luna-define-method elmo-folder-expand-msgdb-path ((folder
57 (expand-file-name "mark"
58 (expand-file-name "internal"
59 elmo-msgdb-directory)))
61 (luna-define-method elmo-map-folder-list-message-locations
62 ((folder elmo-mark-folder))
63 (elmo-mark-folder-list-message-locations folder))
65 (defun elmo-mark-folder-list-message-locations (folder)
67 (dolist (pair (or elmo-msgdb-global-mark-alist
68 (setq elmo-msgdb-global-mark-alist
71 elmo-msgdb-global-mark-filename
72 elmo-msgdb-directory)))))
73 (if (string= (elmo-mark-folder-mark-internal folder)
75 (setq result (cons (car pair) result))))
78 (luna-define-method elmo-folder-message-file-p ((folder elmo-mark-folder))
81 (luna-define-method elmo-message-file-name ((folder elmo-mark-folder)
83 (elmo-file-cache-get-path
84 (elmo-map-message-location folder number)))
86 (luna-define-method elmo-folder-msgdb-create ((folder elmo-mark-folder)
88 (elmo-mark-folder-msgdb-create folder numbers))
90 (defun elmo-mark-folder-msgdb-create (folder numbers)
92 (len (length numbers))
93 (new-msgdb (elmo-make-msgdb))
95 (message "Creating msgdb...")
98 (elmo-msgdb-create-overview-entity-from-file
99 (car numbers) (elmo-message-file-name folder (car numbers))))
101 (elmo-msgdb-append-entity new-msgdb
103 '(important cached)))
104 (when (> len elmo-display-progress-threshold)
106 (elmo-display-progress
107 'elmo-mark-folder-msgdb-create "Creating msgdb..."
109 (setq numbers (cdr numbers)))
110 (message "Creating msgdb...done")
113 (luna-define-method elmo-folder-append-buffer ((folder elmo-mark-folder)
114 &optional flag number)
115 (let* ((msgid (elmo-field-body "message-id"))
116 (path (elmo-file-cache-get-path msgid))
119 (setq dir (directory-file-name (file-name-directory path)))
120 (unless (file-exists-p dir)
121 (elmo-make-directory dir))
122 (when (file-writable-p path)
123 (write-region-as-binary (point-min) (point-max)
125 (elmo-msgdb-global-mark-set msgid
126 (elmo-mark-folder-mark-internal folder))))
128 (luna-define-method elmo-map-folder-delete-messages ((folder elmo-mark-folder)
130 (dolist (location locations)
131 (elmo-msgdb-global-mark-delete location)))
133 (luna-define-method elmo-message-fetch-with-cache-process
134 ((folder elmo-mark-folder) number strategy &optional section unseen)
135 ;; disbable cache process
136 (elmo-message-fetch-internal folder number strategy section unseen))
138 (luna-define-method elmo-map-message-fetch ((folder elmo-mark-folder)
140 &optional section unseen)
141 (let ((file (elmo-file-cache-get-path location)))
142 (when (file-exists-p file)
143 (insert-file-contents-as-binary file))))
145 (luna-define-method elmo-folder-exists-p ((folder elmo-mark-folder))
148 (luna-define-method elmo-folder-writable-p ((folder elmo-mark-folder))
152 (product-provide (provide 'elmo-mark) (require 'elmo-version))
154 ;;; elmo-mark.el ends here