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

   1 ;;; gnus-msg.el --- mail and post interface for Gnus
   2 ;; Copyright (C) 1995 Free Software Foundation, Inc.
   3
   4 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
   5 ;;      Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
   6 ;; Keywords: 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
  22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  23
  24 ;;; Commentary:
  25
  26 ;;; Code:
  27
  28 (require 'gnus)
  29 (require 'sendmail)
  30 (require 'gnus-ems)
  31 (require 'rmail)
  32
  33 (defvar gnus-organization-file "/usr/lib/news/organization"
  34   "*Local news organization file.")
  35
  36 (defvar gnus-prepare-article-hook (list 'gnus-inews-insert-signature)
  37   "*A hook called after preparing body, but before preparing header headers.
  38 The default hook (`gnus-inews-insert-signature') inserts a signature
  39 file specified by the variable `gnus-signature-file'.")
  40
  41 (defvar gnus-post-prepare-function nil
  42   "*Function that is run after a post buffer has been prepared.
  43 It is called with the name of the newsgroup that is posted to. It
  44 might be used, for instance, for inserting signatures based on the
  45 newsgroup name. (In that case, `gnus-signature-file' and
  46 `mail-signature' should both be set to nil).")
  47
  48 (defvar gnus-post-prepare-hook nil
  49   "*Hook that is run after a post buffer has been prepared.
  50 If you want to insert the signature, you might put
  51 `gnus-inews-insert-signature' in this hook.")
  52
  53 (defvar gnus-use-followup-to t
  54   "*Specifies what to do with Followup-To header.
  55 If nil, ignore the header. If it is t, use its value, but ignore
  56 `poster'.  If it is the symbol `ask', query the user before posting.
  57 If it is the symbol `use', always use the value.")
  58
  59 (defvar gnus-followup-to-function nil
  60   "*A variable that contains a function that returns a followup address.
  61 The function will be called in the buffer of the article that is being
  62 followed up. The buffer will be narrowed to the headers of the
  63 article. To pick header headers, one might use `mail-fetch-field'.  The
  64 function will be called with the name of the current newsgroup as the
  65 argument.
  66
  67 Here's an example `gnus-followup-to-function':
  68
  69 (setq gnus-followup-to-function
  70       (lambda (group)
  71         (cond ((string= group \"mail.list\")
  72                (or (mail-fetch-field \"sender\")
  73                    (mail-fetch-field \"from\")))
  74               (t
  75                (or (mail-fetch-field \"reply-to\")
  76                    (mail-fetch-field \"from\"))))))")
  77
  78 (defvar gnus-reply-to-function nil
  79   "*A variable that contains a function that returns a reply address.
  80 See the `gnus-followup-to-function' variable for an explanation of how
  81 this variable is used.
  82
  83 This function should return a string that will be used to fill in the
  84 header.  This function may also return a list.  In that case, every
  85 list element should be a cons where the first car should be a string
  86 with the header name, and the cdr should be a string with the header
  87 value.")
  88
  89 (defvar gnus-author-copy (getenv "AUTHORCOPY")
  90   "*Save outgoing articles in this file.
  91 Initialized from the AUTHORCOPY environment variable.
  92
  93 If this variable begins with the character \"|\", outgoing articles
  94 will be piped to the named program. It is possible to save an article
  95 in an MH folder as follows:
  96
  97 \(setq gnus-author-copy \"|/usr/local/lib/mh/rcvstore +Article\")
  98
  99 If the first character is not a pipe, articles are saved using the
 100 function specified by the `gnus-author-copy-saver' variable.")
 101
 102 (defvar gnus-mail-self-blind nil
 103   "*Non-nil means insert a BCC header in all outgoing articles.
 104 This will result in having a copy of the article mailed to yourself.
 105 The BCC h