From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/27213 Path: main.gmane.org!not-for-mail From: nospam2159@daimi.au.dk (Peter von der =?iso-8859-1?q?Ah=E9?=) Newsgroups: gmane.emacs.gnus.general Subject: PATCH: Browse URLs in new window Date: 24 Nov 1999 21:46:35 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035164279 23401 80.91.224.250 (21 Oct 2002 01:37:59 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:37:59 +0000 (UTC) Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id PAA24318 for ; Wed, 24 Nov 1999 15:47:22 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id OAB20243; Wed, 24 Nov 1999 14:47:03 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 24 Nov 1999 14:47:17 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id OAA17220 for ; Wed, 24 Nov 1999 14:47:05 -0600 (CST) Original-Received: from ufleku.daimi.au.dk (ufleku.daimi.au.dk [130.225.19.182]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id PAA24311 for ; Wed, 24 Nov 1999 15:46:37 -0500 (EST) Original-Received: (from pahe@localhost) by ufleku.daimi.au.dk (8.9.3/8.8.4) id VAA17347; Wed, 24 Nov 1999 21:46:35 +0100 Original-To: ding@gnus.org X-Attribution: Ahe Original-Lines: 13 User-Agent: Gnus/5.070098 (Pterodactyl Gnus v0.98) Emacs/20.4 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:27213 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:27213 --=-=-= Hi! I have noticed that Gnus ignores the variable browse-url-new-window-p. Please apply the attached patch. /Peter --=-=-= Content-Type: text/x-patch; charset=iso-8859-1 Content-Disposition: attachment; filename=browse-in-new-window.patch Content-Transfer-Encoding: 8bit Content-Description: Browse in new window diff -rc pgnus-0.98-orig/lisp/ChangeLog pgnus-0.98/lisp/ChangeLog *** pgnus-0.98-orig/lisp/ChangeLog Fri Nov 5 20:13:54 1999 --- pgnus-0.98/lisp/ChangeLog Wed Nov 24 21:39:09 1999 *************** *** 1,3 **** --- 1,8 ---- + 1999-11-24 Peter von der Ahé + + * gnus-art.el (gnus-button-url): Use browse-url-new-window-p + (gnus-button-embedded-url): Ditto + Fri Nov 5 19:10:02 1999 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.98 is released. diff -rc pgnus-0.98-orig/lisp/gnus-art.el pgnus-0.98/lisp/gnus-art.el *** pgnus-0.98-orig/lisp/gnus-art.el Fri Nov 5 20:13:54 1999 --- pgnus-0.98/lisp/gnus-art.el Wed Nov 24 21:33:47 1999 *************** *** 4384,4397 **** ;; In Emacs 20, `browse-url-browser-function' may be an alist. (if (listp browse-url-browser-function) (browse-url address) ! (funcall browse-url-browser-function address))) (defun gnus-button-embedded-url (address) "Browse ADDRESS." ;; In Emacs 20, `browse-url-browser-function' may be an alist. (if (listp browse-url-browser-function) (browse-url (gnus-strip-whitespace address)) ! (funcall browse-url-browser-function (gnus-strip-whitespace address)))) ;;; Next/prev buttons in the article buffer. --- 4384,4397 ---- ;; In Emacs 20, `browse-url-browser-function' may be an alist. (if (listp browse-url-browser-function) (browse-url address) ! (funcall browse-url-browser-function address browse-url-new-window-p))) (defun gnus-button-embedded-url (address) "Browse ADDRESS." ;; In Emacs 20, `browse-url-browser-function' may be an alist. (if (listp browse-url-browser-function) (browse-url (gnus-strip-whitespace address)) ! (funcall browse-url-browser-function (gnus-strip-whitespace address) browse-url-new-window-p))) ;;; Next/prev buttons in the article buffer. --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit -- · Peter von der Ahé · Systems programmer · · Office phone: +45 89 42 31 41 · Office: 540.030 · · · --=-=-=--