From: Richard M. Stallman Date: Wed, 17 Jan 1996 00:24:29 +0000 (+0000) Subject: (gnus-group-make-help-group): Check whether X-Git-Tag: emacs-19.34~1662 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c208c8cd68026ca0a24927eeccd587697c33ac83;p=emacs.git (gnus-group-make-help-group): Check whether `installation-directory' is nil before using it. --- 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)