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

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