(gnus-read-init-file): Don't force coding system

for ~/.gnus.  From Dave Love <fx@gnu.org>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d22acce..ac8b97e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-03  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * gnus-start.el (gnus-read-init-file): Don't force coding system
+       for ~/.gnus.  From Dave Love <fx@gnu.org>.
+
 2002-01-03  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nntp.el (nntp-send-buffer): Use mm-with-unibyte-current-buffer.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 01d5351..d267c03 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -441,25 +441,14 @@ Can be used to turn version control on or off."
     (if gnus-init-inhibit
        (setq gnus-init-inhibit nil)
       (setq gnus-init-inhibit inhibit-next)
-      (let ((files (list gnus-site-init-file gnus-init-file))
-           file)
-       (while files
-         (and (setq file (pop files))
-              (or (and (file-exists-p file)
-                       ;; Don't try to load a directory.
-                       (not (file-directory-p file)))
-                  (file-exists-p (concat file ".el"))
-                  (file-exists-p (concat file ".elc")))
-              (if (or debug-on-error debug-on-quit)
-                  (let ((coding-system-for-read
-                         gnus-startup-file-coding-system))
-                    (load file nil t))
-                (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))))))))))
+      (let ((files (list gnus-site-init-file gnus-init-file)))
+       (dolist (file files)
+         (and file
+              (locate-library file)
+              (condition-case var
+                  (load file nil t)
+                (error
+                 (error "Error in %s: %s" file var)))))))))
 
 ;; For subscribing new newsgroup