Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-setup.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
33 33
34 (require 'cl) 34 (require 'cl)
35 35
36 (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)) 36 (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
37 37
38 (defvar gnus-use-installed-gnus t
39 "*If non-nil Use installed version of Gnus.")
40
41 (defvar gnus-use-installed-tm running-xemacs
42 "*If non-nil use installed version of tm.")
43
44 (defvar gnus-use-installed-mailcrypt running-xemacs
45 "*If non-nil use installed version of mailcrypt.")
46
38 (defvar gnus-emacs-lisp-directory (if running-xemacs 47 (defvar gnus-emacs-lisp-directory (if running-xemacs
39 "/usr/local/lib/xemacs/" 48 "/usr/local/lib/xemacs/"
40 "/usr/local/share/emacs/") 49 "/usr/local/share/emacs/")
41 "Directory where Emacs site lisp is located.") 50 "Directory where Emacs site lisp is located.")
42 51
43 (defvar gnus-gnus-lisp-directory (concat gnus-emacs-lisp-directory 52 (defvar gnus-gnus-lisp-directory (concat gnus-emacs-lisp-directory
44 "gnus-5.0.15/lisp/") 53 "gnus-5.0.15/lisp/")
45 "Directory where Gnus Emacs lisp is found.") 54 "Directory where Gnus Emacs lisp is found.")
46 55
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 56 (defvar gnus-tm-lisp-directory (concat gnus-emacs-lisp-directory
52 "site-lisp/") 57 "site-lisp/")
53 "Directory where TM Emacs lisp is found.") 58 "Directory where TM Emacs lisp is found.")
54 59
55 (defvar gnus-mailcrypt-lisp-directory (concat gnus-emacs-lisp-directory 60 (defvar gnus-mailcrypt-lisp-directory (concat gnus-emacs-lisp-directory
56 "site-lisp/mailcrypt-3.4/") 61 "site-lisp/mailcrypt-3.4/")
57 "Directory where Mailcrypt Emacs Lisp is found.") 62 "Directory where Mailcrypt Emacs Lisp is found.")
58 63
59 (defvar gnus-bbdb-lisp-directory (concat gnus-emacs-lisp-directory 64 (defvar gnus-bbdb-lisp-directory (concat gnus-emacs-lisp-directory
60 "site-lisp/bbdb-1.50/") 65 "site-lisp/bbdb-1.51/")
61 "Directory where Big Brother Database is found.") 66 "Directory where Big Brother Database is found.")
62 67
63 (defvar gnus-use-tm t 68 (defvar gnus-use-tm running-xemacs
64 "Set this if you want MIME support for Gnus") 69 "Set this if you want MIME support for Gnus")
65 (defvar gnus-use-mhe nil 70 (defvar gnus-use-mhe nil
66 "Set this if you want to use MH-E for mail reading") 71 "Set this if you want to use MH-E for mail reading")
67 (defvar gnus-use-rmail nil 72 (defvar gnus-use-rmail nil
68 "Set this if you want to use RMAIL for mail reading") 73 "Set this if you want to use RMAIL for mail reading")
74 "Set this if you want to use Supercite") 79 "Set this if you want to use Supercite")
75 (defvar gnus-use-mailcrypt t 80 (defvar gnus-use-mailcrypt t
76 "Set this if you want to use Mailcrypt for dealing with PGP messages") 81 "Set this if you want to use Mailcrypt for dealing with PGP messages")
77 (defvar gnus-use-bbdb nil 82 (defvar gnus-use-bbdb nil
78 "Set this if you want to use the Big Brother DataBase") 83 "Set this if you want to use the Big Brother DataBase")
79 (defvar gnus-use-september nil 84
80 "Set this if you are using the experimental September Gnus") 85 (when (and (not gnus-use-installed-gnus)
81 86 (null (member gnus-gnus-lisp-directory load-path)))
82 (let ((gnus-directory (if gnus-use-september 87 (push gnus-gnus-lisp-directory load-path))
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
88 ;;; We can't do this until we know where Gnus is. 89 ;;; We can't do this until we know where Gnus is.
89 (require 'message) 90 (require 'message)
90 91
91 ;;; Tools for MIME by 92 ;;; Tools for MIME by
92 ;;; UMEDA Masanobu <umerin@mse.kyutech.ac.jp> 93 ;;; UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
93 ;;; MORIOKA Tomohiko <morioka@jaist.ac.jp> 94 ;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
94 95
95 (when gnus-use-tm 96 (when gnus-use-tm
96 (when (null (member gnus-tm-lisp-directory load-path)) 97 (when (and (not gnus-use-installed-tm)
98 (null (member gnus-tm-lisp-directory load-path)))
97 (setq load-path (cons gnus-tm-lisp-directory load-path))) 99 (setq load-path (cons gnus-tm-lisp-directory load-path)))
98 (load "mime-setup")) 100 ;; tm may or may not be dumped with XEmacs. In Sunpro it is, otherwise
101 ;; it isn't.
102 (unless (featurep 'mime-setup)
103 (load "mime-setup")))
99 104
100 ;;; Mailcrypt by 105 ;;; Mailcrypt by
101 ;;; Jin Choi <jin@atype.com> 106 ;;; Jin Choi <jin@atype.com>
102 ;;; Patrick LoPresti <patl@lcs.mit.edu> 107 ;;; Patrick LoPresti <patl@lcs.mit.edu>
103 108
104 (when gnus-use-mailcrypt 109 (when gnus-use-mailcrypt
105 (when (null (member gnus-mailcrypt-lisp-directory load-path)) 110 (when (and (not gnus-use-installed-mailcrypt)
111 (null (member gnus-mailcrypt-lisp-directory load-path)))
106 (setq load-path (cons gnus-mailcrypt-lisp-directory load-path))) 112 (setq load-path (cons gnus-mailcrypt-lisp-directory load-path)))
107 (autoload 'mc-install-write-mode "mailcrypt" nil t) 113 (autoload 'mc-install-write-mode "mailcrypt" nil t)
108 (autoload 'mc-install-read-mode "mailcrypt" nil t) 114 (autoload 'mc-install-read-mode "mailcrypt" nil t)
109 (add-hook 'message-mode-hook 'mc-install-write-mode) 115 (add-hook 'message-mode-hook 'mc-install-write-mode)
110 (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode) 116 (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
114 120
115 ;;; BBDB by 121 ;;; BBDB by
116 ;;; Jamie Zawinski <jwz@lucid.com> 122 ;;; Jamie Zawinski <jwz@lucid.com>
117 123
118 (when gnus-use-bbdb 124 (when gnus-use-bbdb
125 ;; bbdb will never be installed with emacs.
119 (when (null (member gnus-bbdb-lisp-directory load-path)) 126 (when (null (member gnus-bbdb-lisp-directory load-path))
120 (setq load-path (cons gnus-bbdb-lisp-directory load-path))) 127 (setq load-path (cons gnus-bbdb-lisp-directory load-path)))
121 (autoload 'bbdb "bbdb-com" 128 (autoload 'bbdb "bbdb-com"
122 "Insidious Big Brother Database" t) 129 "Insidious Big Brother Database" t)
123 (autoload 'bbdb-name "bbdb-com" 130 (autoload 'bbdb-name "bbdb-com"
159 (autoload 'sc-cite-original "supercite")) 166 (autoload 'sc-cite-original "supercite"))
160 167
161 ;;;### (autoloads (gnus gnus-slave gnus-no-server) "gnus" "lisp/gnus.el" (12473 2137)) 168 ;;;### (autoloads (gnus gnus-slave gnus-no-server) "gnus" "lisp/gnus.el" (12473 2137))
162 ;;; Generated autoloads from lisp/gnus.el 169 ;;; Generated autoloads from lisp/gnus.el
163 170
164 (autoload 'gnus-slave-no-server "gnus" "\ 171 ;; Don't redo this if autoloads already exist
172 (unless (fboundp 'gnus)
173 (autoload 'gnus-slave-no-server "gnus" "\
165 Read network news as a slave without connecting to local server." t nil) 174 Read network news as a slave without connecting to local server." t nil)
166 175
167 (autoload 'gnus-no-server "gnus" "\ 176 (autoload 'gnus-no-server "gnus" "\
168 Read network news. 177 Read network news.
169 If ARG is a positive number, Gnus will use that as the 178 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. 179 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 180 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. 181 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) 182 As opposed to `gnus', this command will not connect to the local server." t nil)
174 183
175 (autoload 'gnus-slave "gnus" "\ 184 (autoload 'gnus-slave "gnus" "\
176 Read news as a slave." t nil) 185 Read news as a slave." t nil)
177 186
178 (autoload 'gnus "gnus" "\ 187 (autoload 'gnus "gnus" "\
179 Read network news. 188 Read network news.
180 If ARG is non-nil and a positive number, Gnus will use that as the 189 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 190 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) 191 prompt the user for the name of an NNTP server to use." t nil)
183 192
184 ;;;*** 193 ;;;***
185 194
186 ;;; These have moved out of gnus.el into other files. 195 ;;; 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? 196 ;;; FIX FIX FIX: should other things be in gnus-setup? or these not in it?
188 (autoload 'gnus-update-format "gnus-spec" "\ 197 (autoload 'gnus-update-format "gnus-spec" "\
189 Update the format specification near point." t nil) 198 Update the format specification near point." t nil)
190 199
191 (autoload 'gnus-fetch-group "gnus-group" "\ 200 (autoload 'gnus-fetch-group "gnus-group" "\
192 Start Gnus if necessary and enter GROUP. 201 Start Gnus if necessary and enter GROUP.
193 Returns whether the fetching was successful or not." t nil) 202 Returns whether the fetching was successful or not." t nil)
194 203
195 (defalias 'gnus-batch-kill 'gnus-batch-score) 204 (defalias 'gnus-batch-kill 'gnus-batch-score)
196 205
197 (autoload 'gnus-batch-score "gnus-kill" "\ 206 (autoload 'gnus-batch-score "gnus-kill" "\
198 Run batched scoring. 207 Run batched scoring.
199 Usage: emacs -batch -l gnus -f gnus-batch-score <newsgroups> ... 208 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 209 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 210 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) 211 score the alt hierarchy, you'd say \"!alt.all\"." t nil))
203 212
204 (provide 'gnus-setup) 213 (provide 'gnus-setup)
205 214
206 (run-hooks 'gnus-setup-load-hook) 215 (run-hooks 'gnus-setup-load-hook)
207 216