elmo/elmo-internal.el

   1 ;;; elmo-internal.el --- Internal Interface for ELMO.
   2
   3 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
   4
   5 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
   6 ;; Keywords: mail, net news
   7
   8 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
   9
  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)
  13 ;; any later version.
  14 ;;
  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.
  19 ;;
  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.
  24 ;;
  25
  26 ;;; Commentary:
  27 ;;
  28
  29 ;;; Code:
  30 ;;
  31 (require 'elmo)
  32
  33 ;;; ELMO internal folder
  34 (luna-define-class elmo-internal-folder (elmo-folder) ())
  35
  36 (defvar elmo-internal-folder-list '(flag cache sendlog null))
  37 (defvar elmo-internal-obsolete-folder-list '((mark flag)))
  38
  39 (luna-define-method elmo-folder-initialize ((folder
  40                                              elmo-internal-folder)
  41                                             name)
  42   (when (assq (intern name) elmo-internal-obsolete-folder-list)
  43     (elmo-warning
  44      "Folder '%s is now obsolete. Use '%s instead."
  45      name
  46      (cadr (assq (intern name) elmo-internal-obsolete-folder-list))))
  47   (elmo-internal-folder-initialize folder name))
  48
  49 (defun elmo-internal-folder-initialize (folder name)
  50   (let ((fsyms elmo-internal-folder-list)
  51         fname class sym)
  52     (if (progn (while fsyms
  53                  (setq fname (symbol-name (car fsyms)))
  54                  (when (string-match (concat "^" fname) name)
  55                    (require (intern (concat "elmo-" fname)))
  56                    (setq class (intern (concat "elmo-" fname "-folder"))
  57                          sym (intern fname)
  58                          fsyms nil))
  59                  (setq fsyms (cdr fsyms)))
  60                class)
  61         (elmo-folder-initialize
  62          (luna-make-entity
  63           class
  64           :type sym
  65           :prefix (elmo-folder-prefix-internal folder)
  66           :name (elmo-folder-name-internal folder)
  67           :persistent (elmo-folder-persistent-internal folder)
  68           :mime-charset (elmo-folder-mime-charset-internal folder))
  69          name)
  70       folder)))
  71
  72 (luna-define-method elmo-folder-list-subfolders ((folder elmo-internal-folder)
  73                                                  &optional one-level)
  74   (if one-level
  75       (mapcar
  76        (lambda (x)
  77          (let ((name (concat (elmo-folder-prefix-internal folder)
  78                              (symbol-name x))))
  79            (if (elmo-folder-have-subfolder-p (elmo-get-folder name))
  80                (list name)
  81              name)))
  82        elmo-internal-folder-list)
  83     (apply #'nconc
  84            (mapcar
  85             (lambda (x)
  86               (let* ((name (concat (elmo-folder-prefix-internal folder)
  87                                    (symbol-name x)))
  88                      (subfolder (elmo-get-folder name)))
  89                 (if (elmo-folder-have-subfolder-p subfolder)
  90                     (elmo-folder-list-subfolders subfolder)
  91                   (list name))))
  92             elmo-internal-folder-list))))
  93
  94 (require 'product)
  95 (product-provide (provide 'elmo-internal) (require 'elmo-version))
  96
  97 ;;; elmo-internal.el ends here