* gnus-diary.el: Don't use `easy-menu-add-item' if it is not available.

diff --git a/ChangeLog b/ChangeLog
index fc289df..06c41ec 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-17  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/gnus-diary.el: Don't use `easy-menu-add-item' if it is not
+       available.
+
 2001-09-17  Keiichi Suzuki  <keiichi@nanap.org>
 
        * lisp/gnus-bbdb.el (gnus-bbdb/insert-address-regexp):

diff --git a/lisp/gnus-diary.el b/lisp/gnus-diary.el
index dfdd57c..ecd3845 100644 (file)
--- a/lisp/gnus-diary.el
+++ b/lisp/gnus-diary.el
@@ -270,6 +270,14 @@ Optional prefix (or REVERSE argument) means sort in reverse order."
 
 (defvar gnus-summary-misc-menu)
 
+;; The function `easy-menu-add-item' is not available under Emacs
+;; versions prior to 20.3.  Could anyone try to emulate it?
+(if (eval-when-compile
+      (require 'easymenu)
+      (or (fboundp 'easy-menu-add-item)
+         (progn
+           (defalias 'easy-menu-add-item 'ignore)
+           nil)))
 (add-hook 'gnus-summary-menu-hook
          (lambda ()
            (easy-menu-add-item gnus-summary-misc-menu
@@ -280,6 +288,7 @@ Optional prefix (or REVERSE argument) means sort in reverse order."
                                           gnus-newsgroup-name))
                                     'nndiary)]
                                "Sort by number")))
+  )