From: Glenn Morris <rgm@gnu.org>
Date: Thu, 24 May 2012 07:27:24 +0000 (-0700)
Subject: * paths.el (news-directory, news-path): Move to gnus/nnspool.el.
X-Git-Tag: emacs-24.2.90~471^2~6^2~110^2~12
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61a583cade865fa455cc4a533c44e48eb5ec9f30;p=emacs.git

* paths.el (news-directory, news-path): Move to gnus/nnspool.el.

* gnus/nnspool.el (news-directory, news-path): Move here from paths.el.
Don't see a need for these to be autoloaded.  This file is the only
place that uses them, to init another variable.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 709d6ff728e..5d065a617a6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-05-24  Glenn Morris  <rgm@gnu.org>
 
+	* paths.el (news-directory, news-path): Move to gnus/nnspool.el.
+
 	* paths.el (gnus-default-nntp-server): Remove (gnus.el defines it).
 
 	* paths.el (rmail-file-name, rmail-spool-directory): Move from here...
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4a5d86db12a..f990c82e665 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2012-05-24  Glenn Morris  <rgm@gnu.org>
 
+	* nnspool.el (news-directory, news-path): Move here from paths.el.
+	Don't see a need for these to be autoloaded.
+
 	* gnus.el (gnus-default-nntp-server): Make it a defcustom.
 	Merge in doc from paths.el version.  Don't see any need for this to be
 	autoloaded, or for the warning about users not setting it.
diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el
index 2b024e20740..3c197b92b27 100644
--- a/lisp/gnus/nnspool.el
+++ b/lisp/gnus/nnspool.el
@@ -31,6 +31,15 @@
 (require 'nnoo)
 (eval-when-compile (require 'cl))
 
+;; Probably this entire thing should be obsolete.
+;; It's only used to init nnspool-spool-directory, so why not just
+;; set that variable's default directly?
+(defvar news-directory (if (file-exists-p "/usr/spool/news/")
+			   "/usr/spool/news/"
+			 "/var/spool/news/")
+  "The root directory below which all news files are stored.")
+(defvaralias 'news-path 'news-directory)
+
 (nnoo-declare nnspool)
 
 (defvoo nnspool-inews-program news-inews-program
diff --git a/lisp/paths.el b/lisp/paths.el
index f343809b79e..ec5b3f4c5dd 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -101,13 +101,6 @@ This variable `Info-default-directory-list' is used as the default
 for initializing `Info-directory-list' when Info is started, unless
 the environment variable INFOPATH is set.")
 
-(defvar news-directory
-  (purecopy (if (file-exists-p "/usr/spool/news/")
-      "/usr/spool/news/"
-    "/var/spool/news/"))
-  "The root directory below which all news files are stored.")
-(defvaralias 'news-path 'news-directory)
-
 (defvar news-inews-program
   (purecopy
   (cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews")