lisp/gnus/gnus-setup.el

   1 ;;; gnus-setup.el --- Initialization & Setup for Gnus 5
   2
   3 ;; Copyright (C) 1995, 1996, 2000 Free Software Foundation, Inc.
   4
   5 ;; Author: Steven L. Baur <steve@miranova.com>
   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 the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Commentary:
  26 ;; My head is starting to spin with all the different mail/news packages.
  27 ;; Stop The Madness!
  28
  29 ;; Given that Emacs Lisp byte codes may be diverging, it is probably best
  30 ;; not to byte compile this, and just arrange to have the .el loaded out
  31 ;; of .emacs.
  32
  33 ;;; Code:
  34
  35 (eval-when-compile (require 'cl))
  36
  37 (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
  38
  39 (defvar gnus-use-installed-gnus t
  40   "*If non-nil Use installed version of Gnus.")
  41
  42 (defvar gnus-use-installed-tm running-xemacs
  43   "*If non-nil use installed version of tm.")
  44
  45 (defvar gnus-use-installed-mailcrypt running-xemacs
  46   "*If non-nil use installed version of mailcrypt.")
  47
  48 (defvar gnus-emacs-lisp-directory (if running-xemacs
  49                                       "/usr/local/lib/xemacs/"
  50                                     "/usr/local/share/emacs/")
  51   "Directory where Emacs site lisp is located.")
  52
  53 (defvar gnus-gnus-lisp-directory (concat gnus-emacs-lisp-directory
  54                                          "gnus-5.0.15/lisp/")
  55   "Directory where Gnus Emacs lisp is found.")
  56
  57 (defvar gnus-tm-lisp-directory (concat gnus-emacs-lisp-directory
  58                                        "site-lisp/")
  59   "Directory where TM Emacs lisp is found.")
  60
  61 (defvar gnus-mailcrypt-lisp-directory (concat gnus-emacs-lisp-directory
  62                                               "site-lisp/mailcrypt-3.4/")
  63   "Directory where Mailcrypt Emacs Lisp is found.")
  64
  65 (defvar gnus-bbdb-lisp-directory (concat gnus-emacs-lisp-directory
  66                                          "site-lisp/bbdb-1.51/")
  67   "Directory where Big Brother Database is found.")
  68
  69 (defvar gnus-use-mhe nil
  70   "Set this if you want to use MH-E for mail reading.")
  71 (defvar gnus-use-rmail nil
  72   "Set this if you want to use RMAIL for mail reading.")
  73 (defvar gnus-use-sendmail t
  74   "Set this if you want to use SENDMAIL for mail reading.")
  75 (defvar gnus-use-vm nil
  76   "Set this if you want to use the VM package for mail reading.")
  77 (defvar gnus-use-sc nil
  78   "Set this if you want to use Supercite.")
  79 (defvar gnus-use-mailcrypt t
  80   "Set this if you want to use Mailcrypt for dealing with PGP messages.")
  81 (defvar gnus-use-bbdb nil
  82   "Set this if you want to use the Big Brother DataBase.")
  83
  84 (when (and (not gnus-use-installed-gnus)
  85            (null (member gnus-gnus-lisp-directory load-path)))
  86   (push gnus-gnus-lisp-directory load-path))
  87
  88 ;;; We can't do this until we know where Gnus is.
  89 (require 'message)
  90
  91 ;;; Mailcrypt by
  92 ;;; Jin Choi <jin@atype.com>
  93 ;;; Patrick LoPresti <patl@lcs.mit.edu>
  94
  95 (when gnus-use-mailcrypt
  96   (when (and (not gnus-use-installed-mailcrypt)
  97              (null (member gnus-mailcrypt-lisp-directory load-path)))
  98     (setq load-path (cons gnus-mailcrypt-lisp-directory load-path)))
  99   (autoload 'mc-install-write-mode "mailcrypt" nil t)
 100   (autoload 'mc-install-read-mode "mailcrypt" nil t)
 101   (add-hook 'message-mode-hook 'mc-install-write-mode)
 102   (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
 103   (when gnus-use-mhe
 104     (add-hook 'mh-folder-mode-hook 'mc-install-read-mode)
 105     (add-hook 'mh-letter-mode-hook 'mc-install-write-mode)))
 106
 107 ;;; BBDB by
 108 ;;; Jamie Zawinski <jwz@lucid.com>
 109
 110 (when gnus-use-bbdb
 111   ;; bbdb will never be installed with emacs.
 112   (when (null (member gnus-bbdb-lisp-directory load-path))
 113     (setq load-path (cons gnus-bbdb-lisp-directory load-path)))
 114   (autoload 'bbdb "bbdb-com"
 115     "Insidious Big Brother Database" t)
 116   (autoload 'bbdb-name "bbdb-com"
 117     "Insidious Big Brother Database" t)
 118   (autoload 'bbdb-company "bbdb-com"
 119     "Insidious Big Brother Database" t)
 120   (autoload 'bbdb-net "bbdb-com"
 121     "Insidious Big Brother Database" t)
 122   (autoload 'bbdb-notes "bbdb-com"
 123     "Insidious Big Brother Database" t)
 124
 125   (when gnus-use-vm
 126     (autoload 'bbdb-insinuate-vm "bbdb-vm"
 127       "Hook BBDB into VM" t))
 128
 129   (when gnus-use-rmail
 130     (autoload 'bbdb-insinuate-rmail "bbdb-rmail"
 131       "Hook BBDB into RMAIL" t)
 132     (add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail))
 133
 134   (when gnus-use-mhe
 135     (autoload 'bbdb-insinuate-mh "bbdb-mh"
 136       "Hook BBDB into MH-E" t)
 137     (add-hook 'mh-folder-mode-hook 'bbdb-insinuate-mh))
 138
 139   (autoload 'bbdb-insinuate-gnus "bbdb-gnus"
 140     "Hook BBDB into Gnus" t)
 141   (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
 142
 143   (when gnus-use-sendmail
 144     (autoload 'bbdb-insinuate-sendmail "bbdb"
 145       "Insidious Big Brother Database" t)
 146     (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
 147     (add-hook 'message-setup-hook 'bbdb-insinuate-sendmail)))
 148
 149 (when gnus-use-sc
 150   (add-hook 'mail-citation-hook 'sc-cite-original)
 151   (setq message-cite-function 'sc-cite-original)
 152   (autoload 'sc-cite-original "supercite"))
 153 \f
 154 ;;;### (autoloads (gnus gnus-slave gnus-no-server) "gnus" "lisp/gnus.el" (12473 2137))
 155 ;;; Generated autoloads from lisp/gnus.el
 156
 157 ;; Don't redo this if autoloads already exist
 158 (unless (fboundp 'gnus)
 159   (autoload 'gnus-slave-no-server "gnus" "\
 160 Read network news as a slave without connecting to local server." t nil)
 161
 162   (autoload 'gnus-no-server "gnus" "\
 163 Read network news.
 164 If ARG is a positive number, Gnus will use that as the
 165 startup level.  If ARG is nil, Gnus will be started at level 2.
 166 If ARG is non-nil and not a positive number, Gnus will
 167 prompt the user for the name of an NNTP server to use.
 168 As opposed to `gnus', this command will not connect to the local server." t nil)
 169
 170   (autoload 'gnus-slave "gnus" "\
 171 Read news as a slave." t nil)
 172
 173   (autoload 'gnus "gnus" "\
 174 Read network news.
 175 If ARG is non-nil and a positive number, Gnus will use that as the
 176 startup level.  If ARG is non-nil and not a positive number, Gnus will
 177 prompt the user for the name of an NNTP server to use." t nil)
 178
 179 ;;;***
 180
 181 ;;; These have moved out of gnus.el into other files.
 182 ;;; FIX FIX FIX: should other things be in gnus-setup? or these not in it?
 183   (autoload 'gnus-update-format "gnus-spec" "\
 184 Update the format specification near point." t nil)
 185
 186   (autoload 'gnus-fetch-group "gnus-group" "\
 187 Start Gnus if necessary and enter GROUP.
 188 Returns whether the fetching was successful or not." t nil)
 189
 190   (defalias 'gnus-batch-kill 'gnus-batch-score)
 191
 192   (autoload 'gnus-batch-score "gnus-kill" "\
 193 Run batched scoring.
 194 Usage: emacs -batch -l gnus -f gnus-batch-score <newsgroups> ...
 195 Newsgroups is a list of strings in Bnews format.  If you want to score
 196 the comp hierarchy, you'd say \"comp.all\".  If you would not like to
 197 score the alt hierarchy, you'd say \"!alt.all\"." t nil))
 198
 199 (provide 'gnus-setup)
 200
 201 (run-hooks 'gnus-setup-load-hook)
 202
 203 ;;; gnus-setup.el ends here