From 31c17cd02931acbd15089dcb094943b5173fa224 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 17 Jan 1996 00:24:29 +0000 Subject: (gnus-group-make-help-group): Check whether `installation-directory' is nil before using it. --- lisp/gnus.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/gnus.el') diff --git a/lisp/gnus.el b/lisp/gnus.el index 7fab728a264..e7506466f38 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -4259,7 +4259,9 @@ ADDRESS." (defun gnus-group-make-help-group () "Create the Gnus documentation group." (interactive) - (let ((path (cons (concat installation-directory "etc/") load-path)) + (let ((path (if installation-directory + (cons (concat installation-directory "etc/") load-path) + (cons data-directory load-path))) (name (gnus-group-prefixed-name "gnus-help" '(nndoc "gnus-help"))) file) (and (gnus-gethash name gnus-newsrc-hashtb) -- cgit v1.2.1