From xemacs-m  Sun Apr 13 12:36:19 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 MAA03759
	for <xemacs-beta@xemacs.org>; Sun, 13 Apr 1997 12:36:18 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id TAA08237; Sun, 13 Apr 1997 19:36:18 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Custom patch for id-select.el and time.el
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: 13 Apr 1997 19:36:15 +0200
Message-ID: <kig7mi6ygds.fsf@jagor.srce.hr>
Lines: 56
X-Mailer: Gnus v5.4.42/XEmacs 19.15

Here is the patch that makes XEmacs not see the defgroups of
id-select.el and time.el until after they are loaded.  This is to
prevent changing the state of XEmacs by just browsing the menus.

BTW, does anyone know why we ship both reportmail.el and time.el?
They seem to overlap freely.  I felt kind of stupid when I almost
finished the customization of reportmail.el, to see that time.el
contains the (almost) exact same stuff.

--- lisp/packages/time.el.orig	Sun Apr 13 19:32:04 1997
+++ lisp/packages/time.el	Sun Apr 13 19:33:12 1997
@@ -62,6 +62,10 @@
 				       display-time-version-number)
   "The full version string for time.el")
 
+;; We need the progn to kill off the defgroup-tracking mechanism.
+;; This package changes the state of XEmacs by loading it, which is
+;; why it's potentially dangerous.
+(progn
 (defgroup display-time nil
   "Facilities to display the current time/date/load and a new-mail indicator
 in the XEmacs mode line or echo area."
@@ -71,7 +75,7 @@
   "Fancy add-ons to display-time for using the `balloon-help' feature.
 balloon-help must be loaded before these settings take effect."
   :group 'display-time)
-
+) ;progn
 
 (defcustom display-time-mail-file nil
   "*File name of mail inbox file, for indicating existence of new mail.
--- lisp/utils/id-select.el.orig	Sun Apr 13 19:30:49 1997
+++ lisp/utils/id-select.el	Sun Apr 13 19:31:54 1997
@@ -164,9 +164,13 @@
 ;;; Public variables
 ;;; ************************************************************************
 
-(defgroup id-select nil
-  "Select larger and larger syntax-driven regions in a buffer"
-  :group 'mouse)
+;; We need the progn to kill off the defgroup-tracking mechanism.
+;; This package changes the state of XEmacs by loading it, which is
+;; why it's potentially dangerous.
+(progn
+  (defgroup id-select nil
+    "Select larger and larger syntax-driven regions in a buffer"
+    :group 'mouse))
 
 
 (defcustom id-select-brace-modes

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Then...  his face does a complete change of expression.  It goes from
a "Vengeance is mine" expression, to a "What the fuck" blank look.

