(gnus-group-make-help-group): Check whether

`installation-directory' is nil before using it.

(gnus-group-make-help-group): Check whether
`installation-directory' is nil before using it.
c208c8cd · Richard M. Stallman · 7e8fa774 · c208c8cd
Commit c208c8cd authored Jan 17, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/gnus.el lisp/gnus.el +3 -1

No files found.
--- 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)