Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-setup.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children bcdc7deadc19
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
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 ;;; Tools for MIME by
87 ;;; UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
88 ;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
89
90 (if gnus-use-tm
91 (progn
92 (if (null (member gnus-tm-lisp-directory load-path))
93 (setq load-path (cons gnus-tm-lisp-directory load-path)))
94 (load "mime-setup")))
95
96 ;;; Mailcrypt by
97 ;;; Jin Choi <jin@atype.com>
98 ;;; Patrick LoPresti <patl@lcs.mit.edu>
99
100 (if gnus-use-mailcrypt
101 (progn
102 (if (null (member gnus-mailcrypt-lisp-directory load-path))
103 (setq load-path (cons gnus-mailcrypt-lisp-directory load-path)))
104 (autoload 'mc-install-write-mode "mailcrypt" nil t)
105 (autoload 'mc-install-read-mode "mailcrypt" nil t)
106 (add-hook 'message-mode-hook 'mc-install-write-mode)
107 (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
108 (if gnus-use-mhe
109 (progn
110 (add-hook 'mh-folder-mode-hook 'mc-install-read-mode)
111 (add-hook 'mh-letter-mode-hook 'mc-install-write-mode)))))
112
113 ;;; BBDB by
114 ;;; Jamie Zawinski <jwz@lucid.com>
115
116 (if gnus-use-bbdb
117 (progn
118 (if (null (member gnus-bbdb-lisp-directory load-path))
119 (setq load-path (cons gnus-bbdb-lisp-directory load-path)))
120 (autoload 'bbdb "bbdb-com"
121 "Insidious Big Brother Database" t)
122 (autoload 'bbdb-name "bbdb-com"
123 "Insidious Big Brother Database" t)
124 (autoload 'bbdb-company "bbdb-com"
125 "Insidious Big Brother Database" t)
126 (autoload 'bbdb-net "bbdb-com"
127 "Insidious Big Brother Database" t)
128 (autoload 'bbdb-notes "bbdb-com"
129 "Insidious Big Brother Database" t)
130
131 (if gnus-use-vm
132 (progn
133 (autoload 'bbdb-insinuate-vm "bbdb-vm"
134 "Hook BBDB into VM" t)))
135
136 (if gnus-use-rmail
137 (progn
138 (autoload 'bbdb-insinuate-rmail "bbdb-rmail"
139 "Hook BBDB into RMAIL" t)
140 (add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail)))
141
142 (if gnus-use-mhe
143 (progn
144 (autoload 'bbdb-insinuate-mh "bbdb-mh"
145 "Hook BBDB into MH-E" t)
146 (add-hook 'mh-folder-mode-hook 'bbdb-insinuate-mh)))
147
148 (autoload 'bbdb-insinuate-gnus "bbdb-gnus"
149 "Hook BBDB into Gnus" t)
150 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
151
152 (if gnus-use-sendmail
153 (progn
154 (autoload 'bbdb-insinuate-sendmail "bbdb"
155 "Insidious Big Brother Database" t)
156 (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
157 (add-hook 'message-setup-hook 'bbdb-insinuate-sendmail)))))
158
159 (if gnus-use-sc
160 (progn
161 (add-hook 'mail-citation-hook 'sc-cite-original)
162 (setq message-cite-function 'sc-cite-original)
163 (autoload 'sc-cite-original "supercite")))
164
165 ;;;### (autoloads (gnus-batch-score gnus-fetch-group gnus gnus-slave gnus-no-server gnus-update-format) "gnus" "lisp/gnus.el" (12473 2137))
166 ;;; Generated autoloads from lisp/gnus.el
167
168 (autoload 'gnus-update-format "gnus" "\
169 Update the format specification near point." t nil)
170
171 (autoload 'gnus-slave-no-server "gnus" "\
172 Read network news as a slave without connecting to local server." t nil)
173
174 (autoload 'gnus-no-server "gnus" "\
175 Read network news.
176 If ARG is a positive number, Gnus will use that as the
177 startup level. If ARG is nil, Gnus will be started at level 2.
178 If ARG is non-nil and not a positive number, Gnus will
179 prompt the user for the name of an NNTP server to use.
180 As opposed to `gnus', this command will not connect to the local server." t nil)
181
182 (autoload 'gnus-slave "gnus" "\
183 Read news as a slave." t nil)
184
185 (autoload 'gnus "gnus" "\
186 Read network news.
187 If ARG is non-nil and a positive number, Gnus will use that as the
188 startup level. If ARG is non-nil and not a positive number, Gnus will
189 prompt the user for the name of an NNTP server to use." t nil)
190
191 (autoload 'gnus-fetch-group "gnus" "\
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" "\
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 ;;;***
205
206 (provide 'gnus-setup)
207
208 (run-hooks 'gnus-setup-load-hook)
209
210 ;;; gnus-setup.el ends here