Mercurial > emacs

comparison lisp/gnus.el @ 16645:52eb67172ca0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-read-init-file): Don't load anything if init-file-user is nil.
author Richard M. Stallman <rms@gnu.org>
date Sun, 08 Dec 1996 22:00:45 +0000
parents 3e58cf777864
children
comparison
equal deleted inserted replaced
16644:3a93437adce1 16645:52eb67172ca0
2265 (defun gnus-read-init-file (&optional inhibit-next) 2265 (defun gnus-read-init-file (&optional inhibit-next)
2266 (if gnus-init-inhibit 2266 (if gnus-init-inhibit
2267 (setq gnus-init-inhibit nil) 2267 (setq gnus-init-inhibit nil)
2268 (setq gnus-init-inhibit inhibit-next) 2268 (setq gnus-init-inhibit inhibit-next)
2269 (and gnus-init-file 2269 (and gnus-init-file
2270 ;; Don't load .gnus if -q option was used.
2271 init-file-user
2270 (or (and (file-exists-p gnus-init-file) 2272 (or (and (file-exists-p gnus-init-file)
2271 ;; Don't try to load a directory. 2273 ;; Don't try to load a directory.
2272 (not (file-directory-p gnus-init-file))) 2274 (not (file-directory-p gnus-init-file)))
2273 (file-exists-p (concat gnus-init-file ".el")) 2275 (file-exists-p (concat gnus-init-file ".el"))
2274 (file-exists-p (concat gnus-init-file ".elc"))) 2276 (file-exists-p (concat gnus-init-file ".elc")))