diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/ffap.el | 3 |
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)) |