--- a/lisp/hyperbole/hui-mini.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/hyperbole/hui-mini.el	Mon Aug 13 09:02:59 2007 +0200
@@ -6,15 +6,15 @@
 ;; KEYWORDS:     hypermedia, mouse
 ;;
 ;; AUTHOR:       Bob Weiner
-;; ORG:          InfoDock Associates
+;; ORG:          Brown U.
 ;;
 ;; ORIG-DATE:    15-Oct-91 at 20:13:17
-;; LAST-MOD:     17-Mar-97 at 21:28:26 by Bob Weiner
+;; LAST-MOD:      3-Nov-95 at 04:02:02 by Bob Weiner
 ;;
 ;; This file is part of Hyperbole.
 ;; Available for use and distribution under the same terms as GNU Emacs.
 ;;
-;; Copyright (C) 1991-1997, Free Software Foundation, Inc.
+;; Copyright (C) 1991-1995, Free Software Foundation, Inc.
 ;; Developed with support from Motorola Inc.
 ;;
 ;; DESCRIPTION:  
@@ -60,8 +60,6 @@
 		  "Activates button at point or prompts for explicit button.")
 		'("Butfile/"    (menu . butfile)
 		  "Quick access button files menus.")
-		'("Cust/"       (menu . cust)
-		  "Customizes Hyperbole by setting major options.")
 		'("Doc/"        (menu . doc)
 		  "Quick access to Hyperbole documentation.")
 		'("Ebut/"       (menu . ebut)
@@ -93,59 +91,8 @@
 			    (expand-file-name hbmap:filename hbmap:dir-user))
 	   "Edits user-specific button file.")
 	  ))
-       '(cust .
-         (("Customize>")
-	  ("Referent-Display/" (menu . cust-referents)
-	   "Sets where referents are displayed.")
-	  ("Smart-Key-at-Eol/" (menu . cust-eol)
-	   "Sets how scrolling via end of line presses works.")
-	  ("Toggle-Rolo-Dates"
-	   (if (and (boundp 'wrolo-add-hook) (listp wrolo-add-hook)
-		    (memq 'rolo-set-date wrolo-add-hook))
-	       (progn (remove-hook 'wrolo-add-hook 'rolo-set-date)
-		      (remove-hook 'wrolo-edit-hook 'rolo-set-date)
-		      (message "Rolodex date stamps are now turned off."))
-	     (add-hook 'wrolo-add-hook 'rolo-set-date)
-	     (add-hook 'wrolo-edit-hook 'rolo-set-date)
-	     (message "Rolodex date stamps are now turned on."))
-	   "Toggle whether date stamps are update when rolodex entries are edited.")
-	  ("URL-Display/" (menu . cust-urls) "Sets where URLs are displayed.")))
-       '(cust-eol .
-         (("Smart Key press at eol scrolls>")
-	  ("Proportionally" (setq smart-scroll-proportional t))
-	  ("Windowful"      (setq smart-scroll-proportional nil))))
-       '(cust-referents .
-         (("Ref display>")
-	  ("Any-Frame" (setq hpath:display-where 'other-frame))
-	  ("Current-Win" (setq hpath:display-where 'this-window))
-	  ("Diff-Frame-One-Win"
-	   (setq hpath:display-where 'other-frame-one-window))
-	  ("New-Frame" (setq hpath:display-where 'new-frame))
-	  ("Other-Win" (setq hpath:display-where 'other-window))
-	  ("Single-Win" (setq hpath:display-where 'one-window))))
-       '(cust-urls .
-         (("URL display>")
-	  ("Any-Netscape-Window"
-	   (setq action-key-url-function 'highlight-headers-follow-url-netscape
-		 highlight-headers-follow-url-function action-key-url-function
-		 highlight-headers-follow-url-netscape-new-window nil))
-	  ("New-Netscape-Window"
-	   (setq action-key-url-function 'highlight-headers-follow-url-netscape
-		 highlight-headers-follow-url-function action-key-url-function
-		 highlight-headers-follow-url-netscape-new-window t))
-	  ("Mosaic" (setq action-key-url-function
-			  'highlight-headers-follow-url-mosaic
-			  highlight-headers-follow-url-function
-			  action-key-url-function))
-	  ("W3-Browser"
-	   (setq action-key-url-function 'w3-fetch
-		 highlight-headers-follow-url-function
-		 action-key-url-function))))
        '(doc .
 	 (("Doc>")
-	  ("About"        (hypb:display-file-with-logo
-			   (expand-file-name "ABOUT" hyperb:dir))
-	   "Overview of Hyperbole and InfoDock Associates.")
 	  ("Demo"         (find-file-read-only
 			    (expand-file-name "DEMO" hyperb:dir))
 	   "Demonstrates Hyperbole features.")
@@ -210,7 +157,7 @@
 	  ))
        '(ibut .
 	 (("IButton>")
-	  ("Act"    hui:hbut-current-act  "Activates implicit button at point.") 
+	  ("Act"    hui:hbut-act    "Activates implicit button at point.") 
 	  ("DeleteIButType"   (hui:htype-delete 'ibtypes)
 	   "Deletes specified button type.")
 	  ("Help"   hui:hbut-help   "Reports on button's attributes.")
@@ -222,14 +169,14 @@
        '(msg .
 	 (("Msg>")
 	  ("Compose-Hypb-Mail"
-	   (hmail:compose "hyperbole@infodock.com" '(hact 'hyp-config))
+	   (hmail:compose "hyperbole@hub.ucsb.edu" '(hact 'hyp-config))
 	   "Send a message to the Hyperbole discussion list.")
 	  ("Edit-Hypb-List-Entry"
-	   (hmail:compose "hyperbole-request@infodock.com"
+	   (hmail:compose "hyperbole-request@hub.ucsb.edu"
 			  '(hact 'hyp-request))
 	   "Add, remove or change your entry on a the Hyperbole mail list.")
 	  ("Modify-Hypb-Announce-Entry"
-	   (hmail:compose "hyperbole-announce-request@infodock.com"
+	   (hmail:compose "hyperbole-announce-request@hub.ucsb.edu"
 			  '(hact 'hyp-request))
 	   "Add, remove or change your entry on the Hyperbole Announce mail list.")
 	  ))
@@ -319,7 +266,6 @@
 ;;; Used as autoloaded main entry point to Hyperbole (but hsite.el) is the
 ;;; file that is autoloaded when this is invoked.
 ;;; It brings up a menu of commands. 
-;;;###autoload
 (defun hyperbole (&optional menu menu-list)
   "Invokes default Hyperbole menu user interface when not already active.
 Suitable for binding to a key, e.g. {C-h h}.