Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-start.el @ 28:1917ad0d78d7 r19-15b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b97
author cvs
date Mon, 13 Aug 2007 08:51:55 +0200
parents 441bb1e64a06
children ec9a17fef872
comparison
equal deleted inserted replaced
27:0a3286277d9b 28:1917ad0d78d7
392 (defvar gnus-group-line-format) 392 (defvar gnus-group-line-format)
393 393
394 ;; Suggested by Brian Edmonds <edmonds@cs.ubc.ca>. 394 ;; Suggested by Brian Edmonds <edmonds@cs.ubc.ca>.
395 (defvar gnus-init-inhibit nil) 395 (defvar gnus-init-inhibit nil)
396 (defun gnus-read-init-file (&optional inhibit-next) 396 (defun gnus-read-init-file (&optional inhibit-next)
397 ;; Don't load .gnus if -q option was used. 397 ;; Don't load .gnus if the -q option was used.
398 (when init-file-user 398 (when init-file-user
399 (if gnus-init-inhibit 399 (if gnus-init-inhibit
400 (setq gnus-init-inhibit nil) 400 (setq gnus-init-inhibit nil)
401 (setq gnus-init-inhibit inhibit-next) 401 (setq gnus-init-inhibit inhibit-next)
402 (let ((files (list gnus-site-init-file gnus-init-file)) 402 (let ((files (list gnus-site-init-file gnus-init-file))