From d394fb29af32f1980d1ab2925b1167a550d4d0c4 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 22 Jun 2000 02:19:13 +0000 Subject: [PATCH] (wl-draft-overload-menubar): Override menubar only when XEmacs has menubar feature. --- wl/wl-xmas.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el index 9ad923f..d82a5f9 100644 --- a/wl/wl-xmas.el +++ b/wl/wl-xmas.el @@ -4,7 +4,7 @@ ;; Author: Yuuichi Teranishi ;; Keywords: mail, net news -;; Time-stamp: <00/03/24 14:44:00 teranisi> +;; Time-stamp: <00/06/22 11:17:27 teranisi> ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen). @@ -412,13 +412,13 @@ (wl-summary-prev t))))) (defun wl-draft-overload-menubar () - (add-menu-item '("Mail") "Send, Keep Editing" - 'wl-draft-send t "Send Mail") - (add-menu-item '("Mail") "Send Message" - 'wl-draft-send-and-exit t "Send and Exit") - (delete-menu-item '("Mail" "Send Mail")) - (delete-menu-item '("Mail" "Send and Exit")) - ) + (when (featurep 'menubar) + (add-menu-item '("Mail") "Send, Keep Editing" + 'wl-draft-send t "Send Mail") + (add-menu-item '("Mail") "Send Message" + 'wl-draft-send-and-exit t "Send and Exit") + (delete-menu-item '("Mail" "Send Mail")) + (delete-menu-item '("Mail" "Send and Exit")))) (defun wl-draft-mode-setup () (require 'derived) -- 1.7.10.4