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