;;; gnus-setup.el --- Initialization & Setup for Gnus 5
-;; Copyright (C) 1995 Miranova Systems, Inc.
+;; Copyright (C) 1995, 96 Free Software Foundation, Inc.
;; Author: Steven L. Baur <steve@miranova.com>
;; Keywords: news
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; My head is starting to spin with all the different mail/news packages.
;; Stop The Madness!
+;; Given that Emacs Lisp byte codes may be diverging, it is probably best
+;; not to byte compile this, and just arrange to have the .el loaded out
+;; of .emacs.
+
;;; Code:
-(defvar gnus-gnus-lisp-directory "/usr/lib/xemacs/gnus-5.0/lisp/"
+(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
+
+(defvar gnus-emacs-lisp-directory (if running-xemacs
+ "/usr/local/lib/xemacs/"
+ "/usr/local/share/emacs/")
+ "Directory where Emacs site lisp is located.")
+
+(defvar gnus-gnus-lisp-directory (concat gnus-emacs-lisp-directory
+ "gnus-5.0.15/lisp/")
"Directory where Gnus Emacs lisp is found.")
-(defvar gnus-sgnus-lisp-directory "/usr/lib/xemacs/sgnus/lisp/"
+
+(defvar gnus-sgnus-lisp-directory (concat gnus-emacs-lisp-directory
+ "sgnus/lisp/")
"Directory where September Gnus Emacs lisp is found.")
-(defvar gnus-tm-lisp-directory "/usr/lib/xemacs/site-lisp/"
+
+(defvar gnus-tm-lisp-directory (concat gnus-emacs-lisp-directory
+ "site-lisp/")
"Directory where TM Emacs lisp is found.")
-(defvar gnus-mailcrypt-lisp-directory
- "/usr/lib/xemacs/site-lisp/mailcrypt-3.4/"
+(defvar gnus-mailcrypt-lisp-directory (concat gnus-emacs-lisp-directory
+ "site-lisp/mailcrypt-3.4/")
"Directory where Mailcrypt Emacs Lisp is found.")
+(defvar gnus-bbdb-lisp-directory (concat gnus-emacs-lisp-directory
+ "site-lisp/bbdb-1.50/")
+ "Directory where Big Brother Database is found.")
+
(defvar gnus-use-tm t
"Set this if you want MIME support for Gnus")
(defvar gnus-use-mhe nil
(if (null (member gnus-directory load-path))
(setq load-path (cons gnus-directory load-path))))
+;;; We can't do this until we know where Gnus is.
+(require 'message)
+
;;; Tools for MIME by
;;; UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
(if gnus-use-tm
(progn
(if (null (member gnus-tm-lisp-directory load-path))
- (setq load-path (cons gnus-tm-lisp-directory load-path))))
- (load "tm-setup")
- (load "mime-setup"))
+ (setq load-path (cons gnus-tm-lisp-directory load-path)))
+ (load "mime-setup")))
;;; Mailcrypt by
;;; Jin Choi <jin@atype.com>
(if gnus-use-mailcrypt
(progn
(if (null (member gnus-mailcrypt-lisp-directory load-path))
- (setq load-path (cons gnus-mailcrypt-lisp-directory load-path))))
+ (setq load-path (cons gnus-mailcrypt-lisp-directory load-path)))
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
- (add-hook 'mail-mode-hook 'mc-install-write-mode)
- (add-hook 'news-mode-hook 'mc-install-write-mode)
- (add-hook 'news-reply-mode-hook 'mc-install-write-mode)
+ (add-hook 'message-mode-hook 'mc-install-write-mode)
(add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
(if gnus-use-mhe
(progn
(add-hook 'mh-folder-mode-hook 'mc-install-read-mode)
- (add-hook 'mh-letter-mode-hook 'mc-install-write-mode))))
+ (add-hook 'mh-letter-mode-hook 'mc-install-write-mode)))))
;;; BBDB by
;;; Jamie Zawinski <jwz@lucid.com>
(if gnus-use-bbdb
(progn
+ (if (null (member gnus-bbdb-lisp-directory load-path))
+ (setq load-path (cons gnus-bbdb-lisp-directory load-path)))
(autoload 'bbdb "bbdb-com"
"Insidious Big Brother Database" t)
(autoload 'bbdb-name "bbdb-com"
(autoload 'bbdb-insinuate-gnus "bbdb-gnus"
"Hook BBDB into Gnus" t)
- (add-hook gnus-startup-hook 'bbdb-insinuate-gnus)
+ (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
(if gnus-use-sendmail
(progn
(autoload 'bbdb-insinuate-sendmail "bbdb"
"Insidious Big Brother Database" t)
- (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)))))
+ (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
+ (add-hook 'message-setup-hook 'bbdb-insinuate-sendmail)))))
(if gnus-use-sc
(progn
- (add-hook 'mail-citation-hook 'sc-cite-original)))
+ (add-hook 'mail-citation-hook 'sc-cite-original)
+ (setq message-cite-function 'sc-cite-original)
+ (autoload 'sc-cite-original "supercite")))
\f
;;;### (autoloads (gnus-batch-score gnus-fetch-group gnus gnus-slave gnus-no-server gnus-update-format) "gnus" "lisp/gnus.el" (12473 2137))
;;; Generated autoloads from lisp/gnus.el
(autoload 'gnus-update-format "gnus" "\
Update the format specification near point." t nil)
+(autoload 'gnus-slave-no-server "gnus" "\
+Read network news as a slave without connecting to local server." t nil)
+
(autoload 'gnus-no-server "gnus" "\
Read network news.
If ARG is a positive number, Gnus will use that as the
projects / gnus / blobdiff