mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

* paths.el (news-inews-program): Move to gnus/nnspool.el.

Browse Source 
* gnus/nnspool.el (news-inews-program): Move here from paths.el.
Don't see a need for this to be autoloaded.  (Or even to exist; it is
only used to init another variable.)
This commit is contained in:
Glenn Morris 2012-05-24 00:31:45 -07:00
parent 61a583cade
commit ee2f89a665
4 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,6 +1,7 @@
2012-05-24 Glenn Morris <rgm@gnu.org>
* paths.el (news-directory, news-path): Move to gnus/nnspool.el.
* paths.el (news-directory, news-path, news-inews-program):
Move to gnus/nnspool.el.
* paths.el (gnus-default-nntp-server): Remove (gnus.el defines it).

4
lisp/gnus/ChangeLog
View File

@ -1,7 +1,7 @@
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.
* nnspool.el (news-directory, news-path, news-inews-program):
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

10
lisp/gnus/nnspool.el
View File

@ -40,6 +40,16 @@
"The root directory below which all news files are stored.")
(defvaralias 'news-path 'news-directory)
;; Ditto re obsolescence.
(defvar news-inews-program
(cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews")
((file-exists-p "/usr/local/inews") "/usr/local/inews")
((file-exists-p "/usr/local/bin/inews") "/usr/local/bin/inews")
((file-exists-p "/usr/contrib/lib/news/inews") "/usr/contrib/lib/news/inews")
((file-exists-p "/usr/lib/news/inews") "/usr/lib/news/inews")
(t "inews"))
"Program to post news.")
(nnoo-declare nnspool)
(defvoo nnspool-inews-program news-inews-program

10
lisp/paths.el
View File

@ -101,16 +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-inews-program
(purecopy
(cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews")
((file-exists-p "/usr/local/inews") "/usr/local/inews")
((file-exists-p "/usr/local/bin/inews") "/usr/local/bin/inews")
((file-exists-p "/usr/contrib/lib/news/inews") "/usr/contrib/lib/news/inews")
((file-exists-p "/usr/lib/news/inews") "/usr/lib/news/inews")
(t "inews")))
"Program to post news.")
(defcustom remote-shell-program
(purecopy
(cond