cgit.sxemacs.org Git - packages/blob - xemacs-packages/mail-lib/rmail-mini.el

   1 ;;; rmail-mini.el --- minimal core of "RMAIL" mail reader for Emacs.
   2
   3 ;; Copyright (C) 1985,86,87,88,93,94,95,96,97 Free Software Foundation, Inc.
   4
   5 ;; Maintainer: FSF
   6 ;; Keywords: mail
   7
   8 ;; This file is part of XEmacs.
   9
  10 ;; XEmacs is free software; you can redistribute it and/or modify it
  11 ;; 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 ;; XEmacs is distributed in the hope that it will be useful, but
  16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18 ;; General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  23 ;; 02111-1307, USA.
  24
  25 ;;; Synched up with: Emacs 20.1.
  26
  27 ;;; Commentary:
  28
  29 ;; Stripped of all cruft to support Gnus
  30
  31 ;;; Code:
  32
  33 ;; Souped up by shane@mit-ajax based on ideas of rlk@athena.mit.edu
  34 ;;   New features include attribute and keyword support, message
  35 ;;   selection by dispatch table, summary by attributes and keywords,
  36 ;;   expunging by dispatch table, sticky options for file commands.
  37
  38 ;; Extended by Bob Weiner of Motorola
  39 ;;   New features include: rmail and rmail-summary buffers remain
  40 ;;   synchronized and key bindings basically operate the same way in both
  41 ;;   buffers, summary by topic or by regular expression, rmail-reply-prefix
  42 ;;   variable, and a bury rmail buffer (wipe) command.
  43
  44 (defgroup rmail nil
  45   "Mail reader for Emacs."
  46   :group 'mail)
  47
  48 (defgroup rmail-reply nil
  49   "Rmail reply options."
  50   :prefix "rmail-"
  51   :group 'rmail)
  52
  53 (setq rmail-mode-map (make-sparse-keymap))
  54
  55 ;;;###autoload
  56 (defcustom rmail-dont-reply-to-names nil "\
  57 *A regexp specifying names to prune of reply to messages.
  58 A value of nil means exclude your own name only."
  59   :type '(choice regexp (const :tag "Your Name" nil))
  60   :group 'rmail-reply)
  61
  62 ;;;###autoload
  63 (defvar rmail-default-dont-reply-to-names "info-" "\
  64 A regular expression specifying part of the value of the default value of
  65 the variable `rmail-dont-reply-to-names', for when the user does not set
  66 `rmail-dont-reply-to-names' explicitly.  (The other part of the default
  67 value is the user's name.)
  68 It is useful to set this variable in the site customization file.")
  69
  70
  71 (provide 'rmail)
  72 (provide 'rmail-mini)
  73
  74 ;;; rmail-mini.el ends here