Gnus development mailing list
 help / color / mirror / Atom feed
From: Hallvard B Furuseth <h.b.furuseth@usit.uio.no>
Subject: Warn if gnus-directory is set in .gnus
Date: Sat, 15 Aug 1998 00:16:36 +0200 (MET DST)	[thread overview]
Message-ID: <HBF.980815mxdt@bombur2.uio.no> (raw)

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


             reply	other threads:[~1998-08-14 22:16 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1998-08-14 22:16 Hallvard B Furuseth [this message]
1998-08-15 20:42 ` Lars Magne Ingebrigtsen

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=HBF.980815mxdt@bombur2.uio.no \
    --to=h.b.furuseth@usit.uio.no \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).