diff options
author | Richard M. Stallman <[email protected]> | 1998-08-08 02:37:58 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1998-08-08 02:37:58 +0000 |
commit | 346e135fb38b1794e08d94d8576ec5b536919ad2 (patch) | |
tree | b5f885e6f3e826af0f410a35233e7a349d97815b /lisp/gnus/gnus-start.el | |
parent | 23c1c5525d8712d0a30a109297c6a14bfb164d8a (diff) |
(gnus-startup-file-coding-system): New variable.
(gnus-read-init-file, gnus-read-newsrc-el-file): Use that.
Diffstat (limited to 'lisp/gnus/gnus-start.el')
-rw-r--r-- | lisp/gnus/gnus-start.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 86841b1c01..29a1b80e3a 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -371,6 +371,9 @@ Can be used to turn version control on or off." :group 'gnus-newsrc :type 'hook) +(defvar gnus-startup-file-coding-system 'binary + "*Coding system for startup file.") + ;;; Internal variables (defvar gnus-newsrc-file-version nil) @@ -409,7 +412,9 @@ Can be used to turn version control on or off." (file-exists-p (concat file ".el")) (file-exists-p (concat file ".elc"))) (condition-case var - (load file nil t) + (let ((coding-system-for-read + gnus-startup-file-coding-system)) + (load file nil t)) (error (error "Error in %s: %s" file var))))))))) @@ -1842,7 +1847,8 @@ If FORCE is non-nil, the .newsrc file is read." (gnus-message 5 "Reading %s..." ding-file) (let (gnus-newsrc-assoc) (condition-case nil - (load ding-file t t t) + (let ((coding-system-for-read gnus-startup-file-coding-system)) + (load ding-file t t t)) (error (ding) (unless (gnus-yes-or-no-p |