From xemacs-m  Sat Dec 28 11:33:05 1996
Received: from cdc.noaa.gov (manager.Colorado.EDU [128.138.218.210])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with SMTP
	  id LAA05445 for <xemacs-beta@xemacs.org>; Sat, 28 Dec 1996 11:33:05 -0600 (CST)
Received: from suomi by cdc.noaa.gov (SMI-8.6/SMI-SVR4)
	id KAA02436; Sat, 28 Dec 1996 10:33:05 -0700
Received: by suomi (SMI-8.6) id KAA13013; Sat, 28 Dec 1996 10:33:04 -0700
Sender: mdb@cdc.noaa.gov
To: xemacs-beta@xemacs.org
Cc: Steven L Baur <steve@miranova.com>
Subject: [19.15-b5] VM-5.97 patch (was Re: anomalous font-locking in 19.15b4 ?)
References: <9612272035.AA17037@euler.alphatech.com>
	<m27mm3xmry.fsf@altair.xemacs.org>
Organization: CIRES, University of Colorado
X-Attribution: mb
From: Mark Borges <mdb@cdc.noaa.gov>
Date: 28 Dec 1996 10:33:03 -0700
In-Reply-To: Steven L Baur's message of 27 Dec 1996 21:26:09 -0800
Message-ID: <vkrakaing0.fsf_-_@cdc.noaa.gov>
Lines: 48
X-Mailer: Gnus v5.2.40/XEmacs 19.15

>> On 27 Dec 1996 21:26:09 -0800,
>> Steven L Baur(sb) wrote:
sb> Try it out with the new vm in beta6 and see if that makes things
sb> any better.

Speaking of which, could you possibly sneak this patch for vm-5.97
into beta6/beta33 today?

I don't know why Kyle took it out,  but I much prefer using browse-url
instead of the vm alternative. The former is asynchronous, and I get
consistent browsing behavior with Gnus-5 using one setting.

--- vm-vars.el.orig	Sun Dec 15 20:08:02 1996
+++ vm-vars.el	Sat Dec 28 10:10:43 1996
@@ -1340,13 +1340,17 @@
 
 Nil means don't move the mouse cursor.")
 
-(defvar vm-url-browser
-  (cond ((fboundp 'w3-fetch-other-frame)
-	 'w3-fetch-other-frame)
-	((fboundp 'w3-fetch)
-	 'w3-fetch)
-	(t 'vm-mouse-send-url-to-netscape))
-  "*Non-nil value means VM should enable URL passing.
+;; if browse-url is around (always will be in XEmacs 19.14 or later) use it;
+;; otherwise do our own support.
+(if (boundp 'browse-url-browser-function)
+    (defvaralias 'vm-url-browser 'browse-url-browser-function)
+  (defvar vm-url-browser
+    (cond ((fboundp 'w3-fetch-other-frame)
+	   'w3-fetch-other-frame)
+	  ((fboundp 'w3-fetch)
+	   'w3-fetch)
+	  (t 'vm-mouse-send-url-to-netscape))
+    "*Non-nil value means VM should enable URL passing.
 This means that VM will search for URLs (Universal Resource
 Locators) in messages and make it possible for you to pass them
 to a World Wide Web browser.
@@ -1376,7 +1380,7 @@
 for Mosaic.  The advantage of using them is that they will display
 an URL using on existing Mosaic or Netscape process, if possible.
 
-A nil value means VM should not enable URL passing to browsers.")
+A nil value means VM should not enable URL passing to browsers."))
 
 (defvar vm-highlight-url-face 'bold-italic
   "*Non-nil value should be a face to use display URLs found in messages.

