(ffap-newsgroup-p): Test for non-nil symbol-value of htb.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6bfae3113be..0d0d3e33f59 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-07  Markus Rost  <rost@math.ohio-state.edu>
+
+        * ffap.el (ffap-newsgroup-p): Test for non-nil symbol-value of htb.
+
 2002-02-07  Richard M. Stallman  <rms@gnu.org>
 
         * terminal.el (terminal-map): Define [menu-bar] so global def is seen.
diff --git a/lisp/ffap.el b/lisp/ffap.el
index fcded84e402..07ffb0dbd40 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -549,7 +549,8 @@ Looks at `ffap-ftp-default-user', returns \"\" for \"localhost\"."
            (progn
              ;; errs: htb symbol may be unbound, or not a hash-table.
              ;; gnus-gethash is just a macro for intern-soft.
-             (and (intern-soft string (symbol-value htb))
+             (and (symbol-value htb)
+                  (intern-soft string (symbol-value htb))
                   (setq ret string htbs nil))
              ;; If we made it this far, gnus is running, so ignore "heads":
              (setq heads nil))