395 |
|
|
396 |
;;; Internal variables |
;;; Internal variables |
397 |
|
|
398 |
(defvar gnus-startup-file-coding-system 'binary |
(defvar gnus-ding-file-coding-system mm-universal-coding-system |
399 |
"*Coding system for startup file.") |
"Coding system for ding file.") |
|
|
|
|
(defvar gnus-ding-file-coding-system 'emacs-mule |
|
|
"*Coding system for ding file.") |
|
400 |
|
|
401 |
(defvar gnus-newsrc-file-version nil) |
(defvar gnus-newsrc-file-version nil) |
402 |
(defvar gnus-override-subscribe-method nil) |
(defvar gnus-override-subscribe-method nil) |
424 |
(if gnus-init-inhibit |
(if gnus-init-inhibit |
425 |
(setq gnus-init-inhibit nil) |
(setq gnus-init-inhibit nil) |
426 |
(setq gnus-init-inhibit inhibit-next) |
(setq gnus-init-inhibit inhibit-next) |
427 |
(let ((files (list gnus-site-init-file gnus-init-file)) |
(dolist (file (list gnus-site-init-file gnus-init-file)) |
428 |
file) |
(when (and file |
429 |
(while files |
(locate-library file)) |
430 |
(and (setq file (pop files)) |
(if (or debug-on-error debug-on-quit) |
431 |
(or (and (file-exists-p file) |
(load file nil t) |
432 |
;; Don't try to load a directory. |
(condition-case var |
433 |
(not (file-directory-p file))) |
(load file nil t) |
434 |
(file-exists-p (concat file ".el")) |
(error |
435 |
(file-exists-p (concat file ".elc"))) |
(error "Error in %s: %s" file var))))))))) |
|
(condition-case var |
|
|
(let ((coding-system-for-read |
|
|
gnus-startup-file-coding-system)) |
|
|
(load file nil t)) |
|
|
(error |
|
|
(error "Error in %s: %s" file var))))))))) |
|
436 |
|
|
437 |
;; For subscribing new newsgroup |
;; For subscribing new newsgroup |
438 |
|
|