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

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