Change the custom group to `hypermedia'.

(browse-url-netscape-version): New variable.
(browse-url-netscape-reload): Use it to account for reported
backwards incompatibility.

diff --git a/lisp/browse-url.el b/lisp/browse-url.el
index 8296d14d7056f88a38ffebadf17610794b01da6a..df5a04a0f25c0aa0356dd7f3d77f8f582190d839 100644 (file)
--- a/lisp/browse-url.el
+++ b/lisp/browse-url.el
@@ -218,7 +218,7 @@
 ;;;###autoload
 (defgroup browse-url nil
   "Use a web browser to look at a URL."
-  :group 'applications)
+  :group 'hypermedia)
 
 ;;;###autoload
 (defcustom browse-url-browser-function
@@ -381,6 +381,14 @@ set this to somewhere with restricted read permissions for privacy's sake."
   :type 'string
   :group 'browse-url)
 
+(defcustom browse-url-netscape-version
+  3
+  "*The version of Netscape you are using.
+This affects how URL reloading is done; the mechanism changed
+incompatibly at version 4."
+  :type 'number
+  :group 'browse-url)
+
 (defvar browse-url-temp-file-list '())
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -660,7 +668,11 @@ used instead of `browse-url-new-window-p'."
 (defun browse-url-netscape-reload ()
   "Ask Netscape to reload its current document."
   (interactive)
-  (browse-url-netscape-send "reload"))
+  ;; Backwards incompatibility reported by
+  ;; <peter.kruse@psychologie.uni-regensburg.de>.
+  (browse-url-netscape-send (if (>= browse-url-netscape-version 4)
+                               "xfeDoCommand(reload)"
+                               "reload")))
 
 (defun browse-url-netscape-send (command)
   "Send a remote control command to Netscape."