* 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 709d6ff728e552343e6ef9022d9978e699d54515..5d065a617a6a3eae0ecabe6f829090efe384f839 100644 (file)
--- 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 4a5d86db12ac9e05803f785350886d72bb4f7215..f990c82e665ac911b020ce0e65b74999c7f82455 100644 (file)
--- 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 2b024e20740920f9864b3ae068849e2fd092bdf3..3c197b92b276c7e74e07ef9af6c43b0b0af910d0 100644 (file)
--- 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 f343809b79e87eb16b9e4caeb06cbe3905bd9e9c..ec5b3f4c5dd24ef41eb117b4f06451b5faa2d1f1 100644 (file)
--- 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")