Warn if gnus-directory is set in .gnus

Warn if gnus-directory is set in .gnus

[Hallvard B Furuseth]

Since gnus-directory must be set before Gnus is started, I suggest Gnus
warns if it is set in .gnus.  (Maybe there are some other variables that
must be set earlier too, I don't know.)

--- lisp/gnus-start.el~	Tue Aug 11 19:53:51 1998
+++ lisp/gnus-start.el	Fri Aug 14 17:35:34 1998
@@ -421,5 +421,7 @@
       (setq gnus-init-inhibit inhibit-next)
       (let ((files (list gnus-site-init-file gnus-init-file))
-	    file)
+	    (prev (list (cons 'gnus-directory gnus-directory)
+			(cons 'gnus-home-directory gnus-home-directory)))
+	    file wait)
 	(while files
 	  (and (setq file (pop files))
@@ -434,5 +436,14 @@
 		     (load file nil t))
 		 (error
-		  (error "Error in %s: %s" file var)))))))))
+		  (error "Error in %s: %s" file var)))))
+	(while prev
+	  (unless (equal (symbol-value (car (car prev))) (cdr (car prev)))
+	    (message "Set %s in %s, not in %s!" (car (car prev))
+		     (file-name-nondirectory (or user-init-file ".emacs"))
+		     (file-name-nondirectory gnus-init-file))
+	    (setq wait t))
+	  (setq prev (cdr prev)))
+	(if wait
+	    (sit-for 1))))))
 
 ;; For subscribing new newsgroup

-- 
Hallvard

Re: Warn if gnus-directory is set in .gnus

[Lars Magne Ingebrigtsen]

Hallvard B Furuseth <h.b.furuseth@usit.uio.no> writes:

> Since gnus-directory must be set before Gnus is started, I suggest Gnus
> warns if it is set in .gnus.

gnus-directory can legitimately be set in .gnus.el.  However, that
means that variables that are initialized from the variable (like
gnus-article-save-directory) may not be set "correctly", if that is
what the user is trying to do.

However, that may not be what they are trying to do, so I think it
would be wrong to "warn" the user when they do something that might be
right. 

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen