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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6bfae3113be5cc34570bbedaf21d990a48e3f997..0d0d3e33f594a855ea930f5c77d4a595b20ddd52 100644 (file)
--- 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 fcded84e40273fccd2c0fe99f60f830e4830af22..07ffb0dbd403ad9fe3a0e35245555ca0f468e57e 100644 (file)
--- 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))