;ELC ;;; compiled by larsi@ifi.uio.no on Fri Jun 28 20:31:17 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/gnus-setup.el ;;; emacs version 19.31.4. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-setup.el' was compiled for Emacs 19.29 or later")) (byte-code "! \f\" B" [boundp running-xemacs string-match "XEmacs\\|Lucid" emacs-version current-load-list] 3) #@45 Directory where Emacs site lisp is located. (defvar gnus-emacs-lisp-directory (byte-code "‡" [running-xemacs "/usr/local/lib/xemacs/" "/usr/local/share/emacs/"] 1) (#$ . 591)) #@43 Directory where Gnus Emacs lisp is found. (defvar gnus-gnus-lisp-directory (concat gnus-emacs-lisp-directory "gnus-5.0.15/lisp/") (#$ . 780)) #@53 Directory where September Gnus Emacs lisp is found. (defvar gnus-sgnus-lisp-directory (concat gnus-emacs-lisp-directory "sgnus/lisp/") (#$ . 928)) #@41 Directory where TM Emacs lisp is found. (defvar gnus-tm-lisp-directory (concat gnus-emacs-lisp-directory "site-lisp/") (#$ . 1081)) #@48 Directory where Mailcrypt Emacs Lisp is found. (defvar gnus-mailcrypt-lisp-directory (concat gnus-emacs-lisp-directory "site-lisp/mailcrypt-3.4/") (#$ . 1219)) #@48 Directory where Big Brother Database is found. (defvar gnus-bbdb-lisp-directory (concat gnus-emacs-lisp-directory "site-lisp/bbdb-1.50/") (#$ . 1385)) #@44 Set this if you want MIME support for Gnus (defvar gnus-use-tm t (#$ . 1542)) #@51 Set this if you want to use MH-E for mail reading (defvar gnus-use-mhe nil (#$ . 1626)) #@52 Set this if you want to use RMAIL for mail reading (defvar gnus-use-rmail nil (#$ . 1720)) #@55 Set this if you want to use SENDMAIL for mail reading (defvar gnus-use-sendmail t (#$ . 1817)) #@61 Set this if you want to use the VM package for mail reading (defvar gnus-use-vm nil (#$ . 1918)) #@39 Set this if you want to use Supercite (defvar gnus-use-sc t (#$ . 2021)) #@69 Set this if you want to use Mailcrypt for dealing with PGP messages (defvar gnus-use-mailcrypt t (#$ . 2100)) #@54 Set this if you want to use the Big Brother DataBase (defvar gnus-use-bbdb nil (#$ . 2216)) #@59 Set this if you are using the experimental September Gnus (defvar gnus-use-september nil (#$ . 2314)) (byte-code " \n\f \fB) )\f%\fB! a\n\f:\n\fB$$\"\"a\"\"\fr\fB$$$$$ $$$\"$\"$\"0$\"\"5\"8\"·" [gnus-use-september gnus-sgnus-lisp-directory gnus-gnus-lisp-directory gnus-directory load-path gnus-use-tm gnus-tm-lisp-directory load "mime-setup" gnus-use-mailcrypt gnus-mailcrypt-lisp-directory autoload mc-install-write-mode "mailcrypt" nil t mc-install-read-mode add-hook message-mode-hook gnus-summary-mode-hook gnus-use-mhe mh-folder-mode-hook mh-letter-mode-hook gnus-use-bbdb gnus-bbdb-lisp-directory bbdb "bbdb-com" "Insidious Big Brother Database" bbdb-name bbdb-company bbdb-net bbdb-notes gnus-use-vm bbdb-insinuate-vm "bbdb-vm" "Hook BBDB into VM" gnus-use-rmail bbdb-insinuate-rmail "bbdb-rmail" "Hook BBDB into RMAIL" rmail-mode-hook bbdb-insinuate-mh "bbdb-mh" "Hook BBDB into MH-E" bbdb-insinuate-gnus "bbdb-gnus" "Hook BBDB into Gnus" gnus-startup-hook gnus-use-sendmail bbdb-insinuate-sendmail "bbdb" mail-setup-hook message-setup-hook gnus-use-sc mail-citation-hook sc-cite-original message-cite-function "supercite"] 6) #@45 Update the format specification near point. (autoload (quote gnus-update-format) "gnus" '(#$ . 3649) t nil) #@66 Read network news as a slave without connecting to local server. (autoload (quote gnus-slave-no-server) "gnus" '(#$ . 3763) t nil) #@323 Read network news. If ARG is a positive number, Gnus will use that as the startup level. If ARG is nil, Gnus will be started at level 2. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use. As opposed to `gnus', this command will not connect to the local server. (autoload (quote gnus-no-server) "gnus" '(#$ . 3901) t nil) #@23 Read news as a slave. (autoload (quote gnus-slave) "gnus" '(#$ . 4289) t nil) #@213 Read network news. If ARG is non-nil and a positive number, Gnus will use that as the startup level. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use. (autoload (quote gnus) "gnus" '(#$ . 4374) t nil) #@94 Start Gnus if necessary and enter GROUP. Returns whether the fetching was successful or not. (autoload (quote gnus-fetch-group) "gnus" '(#$ . 4642) t nil) (defalias (quote gnus-batch-kill) (quote gnus-batch-score)) #@273 Run batched scoring. Usage: emacs -batch -l gnus -f gnus-batch-score ... Newsgroups is a list of strings in Bnews format. If you want to score the comp hierarchy, you'd say "comp.all". If you would not like to score the alt hierarchy, you'd say "!alt.all". (autoload (quote gnus-batch-score) "gnus" '(#$ . 4864) t nil) (byte-code "!!" [provide gnus-setup run-hooks gnus-setup-load-hook] 2)