From f5e4893fb93c6aa4733a01a03cd592ba77306914 Mon Sep 17 00:00:00 2001 From: keiichi Date: Tue, 11 Apr 2000 05:31:24 +0000 Subject: [PATCH] (gnus-product-directory): Use `gnus-product-name'. (gnus-product-variable-touch): Support multiple arguments. --- lisp/gnus-start.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 285bea8..32be0b1 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -41,8 +41,7 @@ :type 'file) (defcustom gnus-product-directory - (nnheader-concat gnus-directory - (concat "." (product-name (product-find 'gnus)))) + (nnheader-concat gnus-directory (concat "." gnus-product-name)) "Product depend data files directory." :group 'gnus-start :type '(choice directory (const nil))) @@ -2457,8 +2456,9 @@ If FORCE is non-nil, the .newsrc file is read." (gnus-prin1 (symbol-value variable)) (insert ")\n")))))) -(defun gnus-product-variable-touch (variable) - (put variable 'gnus-product-variable 'dirty)) +(defun gnus-product-variable-touch (&rest variables) + (while variables + (put (pop variables) 'gnus-product-variable 'dirty))) (defun gnus-product-variables-dirty-p (variables) (catch 'done -- 1.7.10.4