cgit.sxemacs.org Git - gnus/blob - lisp/nnmbox.el

   1 ;;; nnmbox.el --- mail mbox access for Gnus
   2
   3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
   4 ;;   2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
   5
   6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
   7 ;;      Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
   8 ;; Keywords: news, mail
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs 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 3 of the License, or
  15 ;; (at your option) any later version.
  16
  17 ;; GNU Emacs 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.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 ;;; Commentary:
  26
  27 ;; For an overview of what the interface functions do, please see the
  28 ;; Gnus sources.
  29
  30 ;;; Code:
  31
  32 (require 'nnheader)
  33 (require 'message)
  34 (require 'nnmail)
  35 (require 'nnoo)
  36 (require 'gnus-range)
  37 (eval-when-compile (require 'cl))
  38
  39 (nnoo-declare nnmbox)
  40
  41 (defvoo nnmbox-mbox-file (expand-file-name "~/mbox")
  42   "The name of the mail box file in the user's home directory.")
  43
  44 (defvoo nnmbox-active-file (expand-file-name "~/.mbox-active")
  45   "The name of the active file for the mail box.")
  46
  47 (defvoo nnmbox-get-new-mail t
  48   "If non-nil, nnmbox will check the incoming mail file and split the mail.")
  49
  50 (defvoo nnmbox-prepare-save-mail-hook nil
  51   "Hook run narrowed to an article before saving.")
  52
  53 \f
  54
  55 (defconst nnmbox-version "nnmbox 1.0"
  56   "nnmbox version.")
  57
  58 (defvoo nnmbox-current-group nil
  59   "Current nnmbox news group directory.")
  60
  61 (defvar nnmbox-mbox-buffer nil)
  62
  63 (defvoo nnmbox-status-string "")
  64
  65 (defvoo nnmbox-group-alist nil)
  66