1 ;;; elmo-sendlog.el --- Sendlog folder for ELMO.
3 ;; Copyright (C) 2001 Kenichi OKADA <okada@opaopa.org>
5 ;; Author: Kenichi OKADA <okada@opaopa.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.
36 (defvar elmo-sendlog-filename "sendlog")
37 (defvar elmo-sendlog-buffer-name "*elmo-sendlog*")
39 ;;; ELMO sendlog folder
41 (luna-define-class elmo-sendlog-folder (elmo-map-folder) (dir-name directory))
42 (luna-define-internal-accessors 'elmo-sendlog-folder))
44 (luna-define-method elmo-folder-initialize ((folder elmo-sendlog-folder)
48 (luna-define-method elmo-folder-expand-msgdb-path ((folder elmo-sendlog-folder))
49 (expand-file-name "sendlog"
50 (expand-file-name "internal"
53 (luna-define-method elmo-map-folder-list-message-locations
54 ((folder elmo-sendlog-folder))
55 (elmo-sendlog-folder-list-message-locations folder))
57 (defun elmo-sendlog-folder-list-message-locations (folder)
58 (let ((filename (expand-file-name elmo-sendlog-filename
61 (if (not (file-readable-p filename))
65 (insert-file-contents filename))
66 (goto-char (point-min))
69 (re-search-forward "id=\\([^@]+@[^@]+\\)$" (point-at-eol) t)
70 (setq result (append result (list (match-string 1))))
71 (if (eq (1+ (point-at-eol)) (point-max))
73 (beginning-of-line 2))))))
76 (luna-define-method elmo-folder-message-file-p ((folder elmo-sendlog-folder))
79 (luna-define-method elmo-message-file-name ((folder elmo-sendlog-folder)
81 (elmo-file-cache-get-path
82 (elmo-map-message-location folder number)))
84 (luna-define-method elmo-folder-msgdb-create ((folder elmo-sendlog-folder)
86 already-mark seen-mark
90 (len (length numbers))
91 overview number-alist mark-alist entity message-id
93 (message "Creating msgdb...")
96 (elmo-msgdb-create-overview-entity-from-file
97 (car numbers) (elmo-message-file-name folder (car numbers))))
100 (setq num (elmo-msgdb-overview-entity-get-number entity))
102 (elmo-msgdb-append-element
104 (setq message-id (elmo-msgdb-overview-entity-get-id entity))
106 (elmo-msgdb-number-add number-alist
109 (if (setq mark (or (elmo-msgdb-global-mark-get message-id)
110 (if (member message-id seen-list) nil new-mark)))
112 (elmo-msgdb-mark-append
115 (when (> len elmo-display-progress-threshold)
117 (elmo-display-progress
118 'elmo-sendlog-folder-msgdb-create "Creating msgdb..."
120 (setq numbers (cdr numbers)))
121 (message "Creating msgdb...done")
122 (list overview number-alist mark-alist)))
124 (luna-define-method elmo-message-fetch-with-cache-process
125 ((folder elmo-sendlog-folder) number strategy &optional section unseen)
126 ;; disbable cache process
127 (elmo-message-fetch-internal folder number strategy section unseen))
129 (luna-define-method elmo-map-message-fetch ((folder elmo-sendlog-folder)
131 &optional section unseen)
132 (insert-file-contents-as-binary
133 (elmo-file-cache-get-path location)))
135 (luna-define-method elmo-folder-creatable-p ((folder elmo-sendlog-folder))
138 (luna-define-method elmo-folder-writable-p ((folder elmo-sendlog-folder))
141 (luna-define-method elmo-folder-exists-p ((folder elmo-sendlog-folder))
144 (luna-define-method elmo-folder-search ((folder elmo-sendlog-folder)
145 condition &optional from-msgs)
146 (let* ((msgs (or from-msgs (elmo-folder-list-messages folder)))
154 (if (and (setq file (elmo-message-file-name folder (car msgs)))
156 (elmo-file-field-condition-match file
160 (setq matched (nconc matched (list (car msgs)))))
161 (elmo-display-progress
162 'elmo-internal-folder-search "Searching..."
163 (/ (* (setq i (1+ i)) 100) num))
164 (setq msgs (cdr msgs)))
167 (luna-define-method elmo-message-file-p ((folder elmo-sendlog-folder) number)
170 ;;; To override elmo-map-folder methods.
171 (luna-define-method elmo-folder-list-unreads-internal
172 ((folder elmo-sendlog-folder) unread-marks &optional mark-alist)
175 (luna-define-method elmo-folder-unmark-important ((folder elmo-sendlog-folder)
179 (luna-define-method elmo-folder-mark-as-important ((folder elmo-sendlog-folder)
183 (luna-define-method elmo-folder-unmark-read ((folder elmo-sendlog-folder)
187 (luna-define-method elmo-folder-mark-as-read ((folder elmo-sendlog-folder)
192 (product-provide (provide 'elmo-sendlog) (require 'elmo-version))
194 ;;; elmo-sendlog.el ends here