From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/7590 Path: main.gmane.org!not-for-mail From: Hugues Lafarge Newsgroups: gmane.emacs.gnus.general Subject: browsing URL's with rgnus-0.11 & Xemacs-19.14 Date: 14 Aug 1996 15:09:42 +0200 Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.78) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035147881 7730 80.91.224.250 (20 Oct 2002 21:04:41 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:04:41 +0000 (UTC) Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id HAA03309 for ; Wed, 14 Aug 1996 07:44:37 -0700 Original-Received: from s2.iway.fr (root@s2.iway.fr [194.98.0.2]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Wed, 14 Aug 1996 15:12:24 +0200 Original-Received: from ns.afp.com (ns2.afp.com [158.50.204.4]) by s2.iway.fr (8.6.12/8.6.12) with ESMTP id PAA06037 for ; Wed, 14 Aug 1996 15:12:23 +0200 Original-Received: from ns.afp.com (hugues@pinot.par.afp.com [158.50.140.55]) by ns.afp.com (8.7.5/8.7.5) with ESMTP id PAA20042 for ; Wed, 14 Aug 1996 15:09:26 +0200 (FRE) Original-Received: (from hugues@localhost) by ns.afp.com (8.7.5/8.7.5) id PAA02616; Wed, 14 Aug 1996 15:09:43 +0200 (FRE) Original-To: The GNUS mailing list Original-Lines: 42 X-Mailer: Red Gnus v0.11/XEmacs 19.14 Xref: main.gmane.org gmane.emacs.gnus.general:7590 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:7590 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