Mercurial > emacs

changeset 22942:39f23890e482

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-startup-file-coding-system): New variable. (gnus-read-init-file, gnus-read-newsrc-el-file): Use that.
author Richard M. Stallman <rms@gnu.org>
date Sat, 08 Aug 1998 02:37:58 +0000
parents b00170a05570
children 5493321d4526
files lisp/gnus/gnus-start.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-start.el	Sat Aug 08 02:34:05 1998 +0000
+++ b/lisp/gnus/gnus-start.el	Sat Aug 08 02:37:58 1998 +0000
@@ -371,6 +371,9 @@
   :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 @@
 		   (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 @@
     (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