From: yamaoka <yamaoka>
Date: Mon, 17 Sep 2001 04:11:53 +0000 (+0000)
Subject: * gnus-diary.el: Don't use `easy-menu-add-item' if it is not available.
X-Git-Tag: semi-gnus~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b992b03a0d0d353f02aa8f65bde32ad2f45f43a3;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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")))
+  )