/[emacs]/emacs/lisp/gnus/gnus-start.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-start.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by gerd, Wed Aug 1 10:46:23 2001 UTC revision 1.18 by zsh, Wed Jan 9 03:38:01 2002 UTC
# Line 395  Can be used to turn version control on o Line 395  Can be used to turn version control on o
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)
# Line 427  Can be used to turn version control on o Line 424  Can be used to turn version control on o
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    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26