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

   1 ;;; nnbabyl.el --- rmail mbox access for Gnus
   2
   3 ;; Copyright (C) 1995-2012  Free Software Foundation, Inc.
   4
   5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
   6 ;;      Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
   7 ;; Keywords: news, mail
   8
   9 ;; This file is part of GNU Emacs.
  10
  11 ;; GNU Emacs is free software: you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation, either version 3 of the License, or
  14 ;; (at your option) any later version.
  15
  16 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Commentary:
  25
  26 ;; For an overview of what the interface functions do, please see the
  27 ;; Gnus sources.
  28
  29 ;;; Code:
  30
  31 (require 'nnheader)
  32 (condition-case nil
  33     (require 'rmail)
  34   (error (nnheader-message
  35       5 "Ignore rmail errors from this file, you don't have rmail")))
  36 (require 'nnmail)
  37 (require 'nnoo)
  38 (eval-when-compile (require 'cl))
  39
  40 (nnoo-declare nnbabyl)
  41
  42 (defvoo nnbabyl-mbox-file (expand-file-name "~/RMAIL")
  43   "The name of the rmail box file in the users home directory.")
  44
  45 (defvoo nnbabyl-active-file (expand-file-name "~/.rmail-active")
  46   "The name of the active file for the rmail box.")
  47
  48 (defvoo nnbabyl-get-new-mail t
  49   "If non-nil, nnbabyl will check the incoming mail file and split the mail.")
  50
  51
  52 (defvoo nnbabyl-prepare-save-mail-hook nil
  53   "Hook run narrowed to an article before saving.")
  54
  55 \f
  56
  57 (defvar nnbabyl-mail-delimiter "\^_")
  58
  59 (defconst nnbabyl-version "nnbabyl 1.0"
  60   "nnbabyl version.")
  61