From b992b03a0d0d353f02aa8f65bde32ad2f45f43a3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 17 Sep 2001 04:11:53 +0000 Subject: [PATCH] * gnus-diary.el: Don't use `easy-menu-add-item' if it is not available. --- ChangeLog | 5 +++++ lisp/gnus-diary.el | 9 +++++++++ 2 files changed, 14 insertions(+) diff --git a/ChangeLog b/ChangeLog index fc289df..06c41ec 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-09-17 Katsumi Yamaoka + + * lisp/gnus-diary.el: Don't use `easy-menu-add-item' if it is not + available. + 2001-09-17 Keiichi Suzuki * 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"))) + ) -- 1.7.10.4