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

   1 ;;; message.el --- composing mail and news messages
   2 ;; Copyright (C) 1996 Free Software Foundation, Inc.
   3
   4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
   5 ;; Keywords: mail, news
   6
   7 ;; This file is part of GNU Emacs.
   8
   9 ;; GNU Emacs is free software; you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation; either version 2, or (at your option)
  12 ;; any later version.
  13
  14 ;; GNU Emacs is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  22 ;; Boston, MA 02111-1307, USA.
  23
  24 ;;; Commentary:
  25
  26 ;; This mode provides mail-sending facilities from within Emacs.  It
  27 ;; consists mainly of large chunks of code from the sendmail.el,
  28 ;; gnus-msg.el and rnewspost.el files.
  29
  30 ;;; Code:
  31
  32 (eval-when-compile
  33   (require 'cl))
  34 (require 'mailheader)
  35 (require 'rmail)
  36 (require 'nnheader)
  37 (require 'timezone)
  38 (require 'easymenu)
  39 (if (string-match "XEmacs\\|Lucid" emacs-version)
  40     (require 'mail-abbrevs)
  41   (require 'mailabbrev))
  42
  43 (defvar message-directory "~/Mail/"
  44   "*Directory from which all other mail file variables are derived.")
  45
  46 (defvar message-max-buffers 10
  47   "*How many buffers to keep before starting to kill them off.")
  48
  49 (defvar message-send-rename-function nil
  50   "Function called to rename the buffer after sending it.")
  51
  52 ;;;###autoload
  53 (defvar message-fcc-handler-function 'rmail-output
  54   "*A function called to save outgoing articles.
  55 This function will be called with the name of the file to store the
  56 article in.  The default function is `rmail-output' which saves in Unix
  57 mailbox format.")
  58
  59 ;;;###autoload
  60 (defvar message-courtesy-message