Mercurial > emacs

changeset 8439:e3040f870f4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-kill-files-directory): New variable. (gnus-Newsgroup-kill-file, gnus-newsgroup-kill-file): Use it.
author Richard M. Stallman <rms@gnu.org>
date Thu, 04 Aug 1994 03:26:33 +0000
parents 579232f9f99d
children 863e05092c58
files lisp/=gnus.el
diffstat 1 files changed, 11 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=gnus.el	Thu Aug 04 02:43:58 1994 +0000
+++ b/lisp/=gnus.el	Thu Aug 04 03:26:33 1994 +0000
@@ -158,6 +158,10 @@
   "*A directory name to save articles to (default to ~/News).
 Initialized from the SAVEDIR environment variable.")
 
+(defvar gnus-kill-files-directory (getenv "SAVEDIR")
+  "*A directory name to save kill files to (default to ~/News).
+Initialized from the SAVEDIR environment variable.")
+
 (defvar gnus-default-article-saver (function gnus-summary-save-in-rmail)
   "*A function to save articles in your favorite format.
 The function must be interactively callable (in other words, it must
@@ -809,9 +813,6 @@
 (autoload 'metamail-buffer "metamail"
 	  "Process current buffer through 'metamail'." t)
 
-(autoload 'timezone-make-sortable-date "timezone")
-(autoload 'timezone-parse-date "timezone")
-
 (autoload 'rmail-output "rmailout"
 	  "Append this message to Unix mail file named FILE-NAME." t)
 (autoload 'mail-position-on-field "sendmail")
@@ -1243,6 +1244,7 @@
   "Read network news.
 If optional argument CONFIRM is non-nil, ask NNTP server."
   (interactive "P")
+  (require 'timezone)
   (unwind-protect
       (progn
 	(switch-to-buffer (get-buffer-create gnus-group-buffer))
@@ -4994,17 +4996,17 @@
 	     (string-equal newsgroup ""))
 	 ;; The global KILL file is placed at top of the directory.
 	 (expand-file-name gnus-kill-file-name
-			   (or gnus-article-save-directory "~/News")))
+			   (or gnus-kill-files-directory "~/News")))
 	(gnus-use-long-file-name
 	 ;; Append ".KILL" to capitalized newsgroup name.
 	 (expand-file-name (concat (gnus-capitalize-newsgroup newsgroup)
 				   "." gnus-kill-file-name)
-			   (or gnus-article-save-directory "~/News")))
+			   (or gnus-kill-files-directory "~/News")))
 	(t
 	 ;; Place "KILL" under the hierarchical directory.
 	 (expand-file-name (concat (gnus-newsgroup-directory-form newsgroup)
 				   "/" gnus-kill-file-name)
-			   (or gnus-article-save-directory "~/News")))
+			   (or gnus-kill-files-directory "~/News")))
 	))
 
 (defun gnus-newsgroup-kill-file (newsgroup)
@@ -5014,16 +5016,16 @@
 	     (string-equal newsgroup ""))
 	 ;; The global KILL file is placed at top of the directory.
 	 (expand-file-name gnus-kill-file-name
-			   (or gnus-article-save-directory "~/News")))
+			   (or gnus-kill-files-directory "~/News")))
 	(gnus-use-long-file-name
 	 ;; Append ".KILL" to newsgroup name.
 	 (expand-file-name (concat newsgroup "." gnus-kill-file-name)
-			   (or gnus-article-save-directory "~/News")))
+			   (or gnus-kill-files-directory "~/News")))
 	(t
 	 ;; Place "KILL" under the hierarchical directory.
 	 (expand-file-name (concat (gnus-newsgroup-directory-form newsgroup)
 				   "/" gnus-kill-file-name)
-			   (or gnus-article-save-directory "~/News")))
+			   (or gnus-kill-files-directory "~/News")))
 	))
 
 ;; For subscribing new newsgroup