1 ;;; elmo-localnews.el -- Local News Spool Interface for ELMO.
3 ;; Copyright (C) 1998,1999,2000 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
4 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
6 ;; Author: OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
7 ;; Yuuichi Teranishi <teranisi@gohome.org>
8 ;; Keywords: mail, net news
10 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
12 ;; This program is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 2, or (at your option)
17 ;; This program is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA.
33 (require 'elmo-localdir)
35 (defmacro elmo-localnews-as-newsdir (&rest body)
36 (` (let ((elmo-localdir-folder-path elmo-localnews-folder-path))
39 (defun elmo-localnews-msgdb-create-as-numlist (spec numlist new-mark
40 already-mark seen-mark
41 important-mark seen-list)
43 (elmo-localnews-as-newsdir
44 (elmo-localdir-msgdb-create-as-numlist spec numlist new-mark
45 already-mark seen-mark
46 important-mark seen-list))))
48 (defalias 'elmo-localnews-msgdb-create 'elmo-localnews-msgdb-create-as-numlist)
50 (defun elmo-localnews-list-folders (spec &optional hierarchy)
51 (let ((folder (concat "=" (nth 1 spec))))
52 (elmo-localnews-as-newsdir
53 (elmo-localdir-list-folders-subr folder hierarchy))))
55 (defun elmo-localnews-append-msg (spec string &optional msg no-see)
56 (elmo-localnews-as-newsdir
57 (elmo-localdir-append-msg spec string)))
59 (defun elmo-localnews-delete-msgs (dir number)
60 (elmo-localnews-as-newsdir
61 (elmo-localdir-delete-msgs dir number)))
63 (defun elmo-localnews-read-msg (spec number outbuf &optional msgdb unread)
64 (elmo-localnews-as-newsdir
65 (elmo-localdir-read-msg spec number outbuf)))
67 (defun elmo-localnews-list-folder (spec)
68 (elmo-localnews-as-newsdir
69 (elmo-localdir-list-folder-subr spec)))
71 (defun elmo-localnews-max-of-folder (spec)
72 (elmo-localnews-as-newsdir
73 (elmo-localdir-list-folder-subr spec t)))
75 (defun elmo-localnews-check-validity (spec validity-file)
76 (elmo-localnews-as-newsdir
77 (elmo-localdir-check-validity spec validity-file)))
79 (defun elmo-localnews-sync-validity (spec validity-file)
80 (elmo-localnews-as-newsdir
81 (elmo-localdir-sync-validity spec validity-file)))
83 (defun elmo-localnews-folder-exists-p (spec)
84 (elmo-localnews-as-newsdir
85 (elmo-localdir-folder-exists-p spec)))
87 (defun elmo-localnews-folder-creatable-p (spec)
90 (defun elmo-localnews-create-folder (spec)
91 (elmo-localnews-as-newsdir
92 (elmo-localdir-create-folder spec)))
94 (defun elmo-localnews-delete-folder (spec)
95 (elmo-localnews-as-newsdir
96 (elmo-localdir-delete-folder spec)))
98 (defun elmo-localnews-rename-folder (old-spec new-spec)
99 (elmo-localnews-as-newsdir
100 (elmo-localdir-rename-folder old-spec new-spec)))
102 (defun elmo-localnews-search (spec condition &optional from-msgs)
103 (elmo-localnews-as-newsdir
104 (elmo-localdir-search spec condition from-msgs)))
106 (defun elmo-localnews-copy-msgs (dst-spec msgs src-spec
107 &optional loc-alist same-number)
108 (elmo-localdir-copy-msgs
109 dst-spec msgs src-spec loc-alist same-number))
111 (defun elmo-localnews-pack-number (spec msgdb arg)
112 (elmo-localnews-as-newsdir
113 (elmo-localdir-pack-number spec msgdb arg)))
115 (defun elmo-localnews-use-cache-p (spec number)
118 (defun elmo-localnews-local-file-p (spec number)
121 (defun elmo-localnews-get-msg-filename (spec number &optional loc-alist)
122 (elmo-localnews-as-newsdir
123 (elmo-localdir-get-msg-filename spec number loc-alist)))
125 (defalias 'elmo-localnews-sync-number-alist 'elmo-generic-sync-number-alist)
126 (defalias 'elmo-localnews-list-folder-unread
127 'elmo-generic-list-folder-unread)
128 (defalias 'elmo-localnews-list-folder-important
129 'elmo-generic-list-folder-important)
130 (defalias 'elmo-localnews-commit 'elmo-generic-commit)
131 (defalias 'elmo-localnews-folder-diff 'elmo-generic-folder-diff)
134 (product-provide (provide 'elmo-localnews) (require 'elmo-version))
136 ;;; elmo-localnews.el ends here