Commit c208c8cd authored by Richard M. Stallman's avatar Richard M. Stallman

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

`installation-directory' is nil before using it.
parent 7e8fa774
...@@ -4259,7 +4259,9 @@ ADDRESS." ...@@ -4259,7 +4259,9 @@ ADDRESS."
(defun gnus-group-make-help-group () (defun gnus-group-make-help-group ()
"Create the Gnus documentation group." "Create the Gnus documentation group."
(interactive) (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"))) (name (gnus-group-prefixed-name "gnus-help" '(nndoc "gnus-help")))
file) file)
(and (gnus-gethash name gnus-newsrc-hashtb) (and (gnus-gethash name gnus-newsrc-hashtb)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment