(defvar Info-default-directory-list
(let* ((start (list "/usr/local/lib/info/"
"/usr/local/info/"))
(usrdir "/usr/info")
(sysdir (and (file-directory-p usrdir)
(not (string= configure-info-directory usrdir))
(list usrdir)))
(configdir (file-name-as-directory configure-info-directory)))
(setq start (nconc start (list configdir) sysdir (list configdir)))
start)
"Default list of directories to search for Info documentation files.
They are searched in the order they are given in the list.
Therefore, the directory of Info files that come with Emacs
normally should come last (so that local files override standard ones).
Once Info is started, the list of directories to search
comes from the variable `Info-directory-list'.
This variable `Info-default-directory-list' is used as the default
for initializing `Info-directory-list' when Info is started, unless
the environment variable INFOPATH is set.")
(defvar news-path
(if (file-exists-p "/usr/spool/news/")
"/usr/spool/news/"
"/var/spool/news/")
"The root directory below which all news files are stored.")
(defvar news-inews-program
(cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews")
((file-exists-p "/usr/local/inews") "/usr/local/inews")
((file-exists-p "/usr/local/bin/inews") "/usr/local/bin/inews")
((file-exists-p "/usr/contrib/lib/news/inews") "/usr/contrib/lib/news/inews")
((file-exists-p "/usr/lib/news/inews") "/usr/lib/news/inews")
(t "inews"))
"Program to post news.")
(defvar gnus-default-nntp-server ""
"The name of the host running an NNTP server.
The null string means use the local host as the server site.")
(defvar gnus-nntp-service "nntp"
"NNTP service name, usually \"nntp\" or 119).
Go to a local news spool if its value is nil, in which case `gnus-nntp-server'
should be set to `(system-name)'.")
(defvar gnus-local-organization nil
"*The name of your organization, as a string.
The `ORGANIZATION' environment variable is used instead if defined.")
(defvar gnus-startup-file "~/.newsrc"
"The file listing groups to which user is subscribed.
Will use `gnus-startup-file'-SERVER instead if exists.")
(defvar rmail-file-name "~/RMAIL"
"Name of user's primary mail file.")
(defconst rmail-spool-directory
(cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration)
"/usr/spool/mail/")
((string-match "^m68k-bull-sysv3" system-configuration)
"/usr/spool/mail/")
((file-exists-p "/var/mail")
"/var/mail/")
((file-exists-p "/var/spool/mail")
"/var/spool/mail/")
((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix))
"/usr/mail/")
(t "/usr/spool/mail/"))
"Name of directory used by system mailer for delivering new mail.
Its name should end with a slash.")
(defconst sendmail-program
(cond
((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail")
((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail")
((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail")
(t "fakemail")) "Program used to send messages.")
(defconst remote-shell-program
(cond
((file-exists-p "/usr/ucb/remsh") "/usr/ucb/remsh")
((file-exists-p "/usr/bsd/remsh") "/usr/bsd/remsh")
((file-exists-p "/bin/remsh") "/bin/remsh")
((file-exists-p "/usr/bin/remsh") "/usr/bin/remsh")
((file-exists-p "/usr/local/bin/remsh") "/usr/local/bin/remsh")
((file-exists-p "/usr/ucb/rsh") "/usr/ucb/rsh")
((file-exists-p "/usr/bsd/rsh") "/usr/bsd/rsh")
((file-exists-p "/usr/local/bin/rsh") "/usr/local/bin/rsh")
((file-exists-p "/usr/bin/rcmd") "/usr/bin/rcmd")
((file-exists-p "/bin/rcmd") "/bin/rcmd")
((file-exists-p "/bin/rsh") "/bin/rsh")
((file-exists-p "/usr/bin/rsh") "/usr/bin/rsh")
(t "rsh")))
(defconst term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/")
"If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))
You may set this variable to nil in your `.emacs' file if you do not wish
the terminal-initialization file to be loaded.")
(defconst abbrev-file-name
(if (eq system-type 'vax-vms)
"~/abbrev.def"
(convert-standard-filename "~/.abbrev_defs"))
"*Default name of file to read abbrevs from.")