browsing URL's with rgnus-0.11 & Xemacs-19.14

browsing URL's with rgnus-0.11 & Xemacs-19.14

[Hugues Lafarge]

I'm not sure this is not due to my setup but i had to apply the
following patch to make it work:

--- rgnus-0.11/lisp/custom.el.orig	Thu Jul 18 20:48:21 1996
+++ rgnus-0.11/lisp/custom.el	Wed Aug 14 14:57:16 1996
@@ -153,6 +153,14 @@
 into the buffer visible in the event's window."
       (posn-point (event-start event))))
 
+(or (fboundp 'event-window)
+    ;; Missing in Emacs 19.29.
+    (defun event-window (event)
+      "Return the window of the given mouse event.
+This may be nil if the event occurred in the border or over a toolbar.
+The modeline is considered to be in the window it represents."
+      (posn-window (event-start event))))
+
 (eval-when-compile
   (defvar x-colors nil)
   (defvar custom-button-face nil)
--- rgnus-0.11/lisp/gnus-art.el.orig	Mon Aug 12 03:31:44 1996
+++ rgnus-0.11/lisp/gnus-art.el	Wed Aug 14 14:50:43 1996
@@ -1374,8 +1374,8 @@
 If the text under the mouse pointer has a `gnus-callback' property,
 call it with the value of the `gnus-data' text property."
   (interactive "e")
-  (set-buffer (window-buffer (posn-window (event-start event))))
-  (let* ((pos (posn-point (event-start event)))
+  (set-buffer (window-buffer (event-window event)))
+  (let* ((pos (event-point event))
          (data (get-text-property pos 'gnus-data))
 	 (fun (get-text-property pos 'gnus-callback)))
     (if fun (funcall fun data))))


Did i miss something obvious?

-- 
Hugues Lafarge                    || Email: Hugues.Lafarge@afp.com
Agence France Presse              ||   WWW: http://www.mygale.org/08/hugues
Ingenierie informatique           || Phone: +33 1 40 41 77 15
13 pl de la bourse, 75002 Paris   ||   Fax: +33 1 40 41 77 02