From: teranisi <teranisi>
Date: Thu, 22 Jun 2000 02:19:13 +0000 (+0000)
Subject: (wl-draft-overload-menubar): Override menubar only when XEmacs has menubar
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d394fb29af32f1980d1ab2925b1167a550d4d0c4;p=elisp%2Fwanderlust.git

(wl-draft-overload-menubar): Override menubar only when XEmacs has menubar
 feature.
---

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 <teranisi@gohome.org>
 ;; 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)