(gnus-product-directory): Use `gnus-product-name'.

(gnus-product-variable-touch): Support multiple arguments.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 285bea8..32be0b1 100644 (file)
--- 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