From xemacs-m  Mon Apr 14 05:24:59 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id FAA09385
	for <xemacs-beta@xemacs.org>; Mon, 14 Apr 1997 05:24:57 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id MAA11980; Mon, 14 Apr 1997 12:24:56 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Re: easymenu.el
References: <kign2r2kshw.fsf@jagor.srce.hr> <m23esurqhu.fsf@altair.xemacs.org>
X-URL: ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/
X-Attribution: Hrv
X-Face: &}4JQk=L;e.~x+|eo]#DGk@x3~ed!.~lZ}YQcYb7f[WL9L'Z*+OyA\nA
        EL1M(".[qvI#a2E6WYI5>>e7'@_)3Ol9p|Nn2wNa/;~06jL*B%tTcn/X
        vhAu7qeES0\|MF%$;sI#yn1+y"
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 14 Apr 1997 12:24:55 +0200
In-Reply-To: Steven L Baur's message of 14 Apr 1997 00:51:57 -0700
Message-ID: <kig4td9lx54.fsf@jagor.srce.hr>
Lines: 43
X-Mailer: Gnus v5.4.42/XEmacs 19.15

Steven L Baur <steve@miranova.com> writes:

> I agree.  This has bugged me for a long time.  With the way the menu
> items on the menubar march beyond the border of the frame in Gnus+
> Message mode, having stuff on the menubar and not in the frame menu
> means menus can get lost.

This message seems to fix it.  It's not ideal, but it seems like a
good way to go.  Please try it out.

Problems: have something smart instead of "Local Menu" (see FSF -- how
do they do it?).

Also, remove the default "XEmacs commands" -- they shouldn't be here
(we have `global-popup-menu', for a persistent menu).  Both should be
fairly easy to solve.

--- easymenu.el.orig	Mon Apr 14 12:11:17 1997
+++ easymenu.el	Mon Apr 14 12:20:38 1997
@@ -171,7 +171,7 @@
 	(if easy-menu-all-popups
 	    (setq easy-menu-all-popups (cons menu easy-menu-all-popups))
 	  (setq easy-menu-all-popups (list menu mode-popup-menu)))
-	(setq mode-popup-menu menu)
+	(setq mode-popup-menu (cons "Local Menu" easy-menu-all-popups))
   
 	(cond ((null current-menubar)
 	       ;; Don't add it to a non-existing menubar.
@@ -192,7 +192,7 @@
   (if (featurep 'menubar)
       (progn
 	(setq easy-menu-all-popups (delq menu easy-menu-all-popups)
-	      mode-popup-menu (car easy-menu-all-popups))
+	      mode-popup-menu (cons "Local Menu" easy-menu-all-popups))
 	(and current-menubar
 	     (assoc (car menu) current-menubar)
 	     (delete-menu-item (list (car menu)))))))


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
ED WILL NOT CORRUPT YOUR PRECIOUS BODILY FLUIDS!!

