101 |
for initializing `Info-directory-list' when Info is started, unless |
for initializing `Info-directory-list' when Info is started, unless |
102 |
the environment variable INFOPATH is set.") |
the environment variable INFOPATH is set.") |
103 |
|
|
104 |
(defvar news-path |
(defvar news-directory |
105 |
(if (file-exists-p "/usr/spool/news/") |
(if (file-exists-p "/usr/spool/news/") |
106 |
"/usr/spool/news/" |
"/usr/spool/news/" |
107 |
"/var/spool/news/") |
"/var/spool/news/") |
108 |
"The root directory below which all news files are stored.") |
"The root directory below which all news files are stored.") |
109 |
|
(defvaralias 'news-path 'news-directory) |
110 |
|
|
111 |
(defvar news-inews-program |
(defvar news-inews-program |
112 |
(cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews") |
(cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews") |
137 |
:group 'rmail |
:group 'rmail |
138 |
:version "21.1") |
:version "21.1") |
139 |
|
|
140 |
(defconst rmail-spool-directory |
(defvar rmail-spool-directory |
141 |
(cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) |
(cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) |
142 |
"/usr/spool/mail/") |
"/usr/spool/mail/") |
143 |
;; On The Bull DPX/2 /usr/spool/mail is used although |
;; On The Bull DPX/2 /usr/spool/mail is used although |
158 |
"Name of directory used by system mailer for delivering new mail. |
"Name of directory used by system mailer for delivering new mail. |
159 |
Its name should end with a slash.") |
Its name should end with a slash.") |
160 |
|
|
161 |
(defconst sendmail-program |
(defcustom sendmail-program |
162 |
(cond |
(cond |
163 |
((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail") |
((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail") |
164 |
((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail") |
((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail") |
165 |
((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail") |
((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail") |
166 |
(t "fakemail")) ;In ../etc, to interface to /bin/mail. |
(t "fakemail")) ;In ../etc, to interface to /bin/mail. |
167 |
"Program used to send messages.") |
"Program used to send messages." |
168 |
|
:group 'mail |
169 |
|
:type 'file) |
170 |
|
|
171 |
(defconst remote-shell-program |
(defcustom remote-shell-program |
172 |
(cond |
(cond |
173 |
;; Some systems use rsh for the remote shell; others use that name for the |
;; Some systems use rsh for the remote shell; others use that name for the |
174 |
;; restricted shell and use remsh for the remote shell. Let's try to guess |
;; restricted shell and use remsh for the remote shell. Let's try to guess |
189 |
((file-exists-p "/bin/rsh") "/bin/rsh") |
((file-exists-p "/bin/rsh") "/bin/rsh") |
190 |
((file-exists-p "/usr/bin/rsh") "/usr/bin/rsh") |
((file-exists-p "/usr/bin/rsh") "/usr/bin/rsh") |
191 |
(t "rsh")) |
(t "rsh")) |
192 |
"File name for remote-shell program (often rsh or remsh).") |
"File name for remote-shell program (often rsh or remsh)." |
193 |
|
:group 'environment |
194 |
|
:type 'file) |
195 |
|
|
196 |
(defconst term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/") "\ |
(defvar term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/") "\ |
197 |
If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\"))) |
If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\"))) |
198 |
You may set this variable to nil in your `.emacs' file if you do not wish |
You may set this variable to nil in your `.emacs' file if you do not wish |
199 |
the terminal-initialization file to be loaded.") |
the terminal-initialization file to be loaded.") |
200 |
|
|
201 |
(defconst abbrev-file-name |
(defvar abbrev-file-name |
202 |
(if (eq system-type 'vax-vms) |
(if (eq system-type 'vax-vms) |
203 |
"~/abbrev.def" |
"~/abbrev.def" |
204 |
(convert-standard-filename "~/.abbrev_defs")) |
(convert-standard-filename "~/.abbrev_defs")) |