From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/16063 Path: main.gmane.org!not-for-mail From: Hallvard B Furuseth Newsgroups: gmane.emacs.gnus.general Subject: Warn if gnus-directory is set in .gnus Date: Sat, 15 Aug 1998 00:16:36 +0200 (MET DST) Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035154995 25632 80.91.224.250 (20 Oct 2002 23:03:15 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:03:15 +0000 (UTC) Return-Path: Original-Received: from gwyn.tux.org (gwyn.tux.org [207.96.122.8]) by altair.xemacs.org (8.9.1/8.9.1) with ESMTP id PAA11296 for ; Fri, 14 Aug 1998 15:26:18 -0700 Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by gwyn.tux.org (8.8.8/8.8.8) with ESMTP id SAA01836 for ; Fri, 14 Aug 1998 18:20:05 -0400 Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id QAT15844; Fri, 14 Aug 1998 16:50:53 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 14 Aug 1998 17:17:05 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id RAA15817 for ; Fri, 14 Aug 1998 17:16:58 -0500 (CDT) Original-Received: from pat.uio.no (6089@pat.uio.no [129.240.130.16]) by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id SAA13208 for ; Fri, 14 Aug 1998 18:16:55 -0400 (EDT) Original-Received: from bombur2.uio.no (actually bombur2.uio.no [129.240.200.72]) by pat.uio.no with SMTP (PP); Sat, 15 Aug 1998 00:16:37 +0200 Original-Received: by bombur2.uio.no ; Sat, 15 Aug 1998 00:16:36 +0200 (MET DST) Original-To: ding@gnus.org Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:16063 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:16063 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