* gnus-group.el (gnus-group-tool-bar-gnome): Check if gnus-topic.el is loaded.

* gnus-sum.el (gnus-summary-tool-bar-gnome): Check if spam.el is loaded.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae61a70..6ac174b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2006-03-03  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-group.el (gnus-group-tool-bar-gnome): Check if gnus-topic.el
+       is loaded.
+
+       * gnus-sum.el (gnus-summary-tool-bar-gnome): Check if spam.el is
+       loaded.
+
 2006-03-03  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mm-decode.el (mm-get-part): Don't use

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 2c87ec9..cbca66d 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1060,8 +1060,12 @@ Pre-defined symbols include `gnus-group-tool-bar-gnome' and
                             :visible (or (not gnus-agent)
                                          gnus-plugged))
     ;; FIXME: gnus-*-read-group should have a better help text.
-    (gnus-topic-read-group "open" nil :visible gnus-topic-mode)
-    (gnus-group-read-group "open" nil :visible (not gnus-topic-mode))
+    (gnus-topic-read-group "open" nil
+                          :visible (and (boundp 'gnus-topic-mode)
+                                        gnus-topic-mode))
+    (gnus-group-read-group "open" nil
+                          :visible (not (and (boundp 'gnus-topic-mode)
+                                             gnus-topic-mode)))
     ;; (gnus-group-find-new-groups "???" nil)
     (gnus-group-save-newsrc "save")
     (gnus-group-describe-group "describe")

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 980c54b..876614e 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2700,10 +2700,14 @@ Pre-defined symbols include `gnus-summary-tool-bar-gnome' and
      :visible (gnus-check-backend-function 'request-expire-articles
                                           gnus-newsgroup-name))
     (gnus-summary-mark-as-spam
-     "mail/spam" t :visible (spam-group-ham-contents-p gnus-newsgroup-name)
+     "mail/spam" t
+     :visible (and (fboundp 'spam-group-ham-contents-p)
+                  (spam-group-ham-contents-p gnus-newsgroup-name))
      :help "Mark as spam")
     (gnus-summary-mark-as-read-forward
-     "mail/not-spam" nil :visible (spam-group-spam-contents-p gnus-newsgroup-name))
+     "mail/not-spam" nil
+     :visible (and (fboundp 'spam-group-spam-contents-p)
+                  (spam-group-spam-contents-p gnus-newsgroup-name)))
     ;;
     (gnus-summary-exit "exit")
     (gmm-customize-mode "preferences" t :help "Edit mode preferences")