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

   1 ;;; message.el --- composing mail and news messages
   2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
   3 ;;        Free Software Foundation, Inc.
   4
   5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
   6 ;; Keywords: mail, news
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs 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 ;; GNU Emacs 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 ;;; Commentary:
  26
  27 ;; This mode provides mail-sending facilities from within Emacs.  It
  28 ;; consists mainly of large chunks of code from the sendmail.el,
  29 ;; gnus-msg.el and rnewspost.el files.
  30
  31 ;;; Code:
  32
  33 (eval-when-compile
  34   (require 'cl)
  35   (defvar gnus-message-group-art)
  36   (defvar gnus-list-identifiers)) ; gnus-sum is required where necessary
  37 (require 'canlock)
  38 (require 'mailheader)
  39 (require 'nnheader)
  40 ;; This is apparently necessary even though things are autoloaded.
  41 ;; Because we dynamically bind mail-abbrev-mode-regexp, we'd better
  42 ;; require mailabbrev here.
  43 (if (featurep 'xemacs)
  44     (require 'mail-abbrevs)
  45   (require 'mailabbrev))
  46 (require 'mail-parse)
  47 (require 'mml)
  48 (require 'rfc822)
  49 (eval-and-compile
  50   (autoload 'sha1 "sha1-el")
  51   (autoload 'gnus-find-method-for-group "gnus")
  52   (autoload 'nnvirtual-find-group-art "nnvirtual")
  53   (autoload 'gnus-group-decoded-name "gnus-group"))
  54
  55 (defgroup message '((user-mail-address custom-variable)
  56                     (user-full-name custom-variable))
  57   "Mail and news message composing."
  58   :link '(custom-manual "(message)Top")
  59   :group 'mail
  60   :group 'news)
  61
  62 (put 'user-mail-address 'custom-type 'string)
  63 (put 'user-full-name 'custom-type 'string)
  64
  65 (defgroup message-various nil
  66   "Various Message Variables"
  67   :link '(custom-manual "(message)Various Message Variables")
  68   :group 'message)
  69
  70 (defgroup message-buffers nil
  71   "Message Buffers"
  72   :link '(custom-manual "(message)Message Buffers")
  73   :group 'message)
  74
  75 (defgroup message-sending nil
  76   "Message Sending"
  77   :link '(custom-manual "(message)Sending Variables")
  78   :group 'message)
  79
  80 (defgroup message-interface nil
  81   "Message Interface"
  82   :link '(custom-manual "(message)Interface")
  83   :group 'message)
  84
  85 (defgroup message-forwarding nil
  86   "Message Forwarding"
  87   :link '(custom-manual "(message)Forwarding")
  88   :group 'message-interface)
  89
  90 (defgroup message-insertion nil
  91   "Message Insertion"
  92   :link '(custom-manual "(message)Insertion")
  93   :group 'message)
  94
  95 (defgroup message-headers nil
  96   "Message Headers"
  97   :link '(custom-manual "(message)Message Headers")
  98   :group 'message)
  99
 100 (defgroup message-news nil
 101   "Composing News Messages"
 102   :group 'message)
 103
 104 (defgroup message-mail nil
 105   "Composing Mail Messages"
 106   :group 'message)
 107
 108 (defgroup message-faces nil
 109   "Faces used for message composing."
 110   :group 'message
 111   :group 'faces)
 112
 113 (defcustom message-directory "~/Mail/"
 114   "*Directory from which all other mail file variables are derived."
 115   :group 'message-various
 116  &n