From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/50236 Path: main.gmane.org!not-for-mail From: sigurd@12move.de (Karl =?iso-8859-1?q?Pfl=E4sterer?=) Newsgroups: gmane.emacs.gnus.general Subject: Proposed patch (was: Better definition for `gnus-article-refer-article') Date: Fri, 21 Feb 2003 18:59:59 +0100 Organization: Lemis World Sender: owner-ding@hpc.uh.edu Message-ID: References: <84isvfe05f.fsf@lucy.is.informatik.uni-duisburg.de> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1045850737 6761 80.91.224.249 (21 Feb 2003 18:05:37 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 21 Feb 2003 18:05:37 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18mHYD-0001kK-00 for ; Fri, 21 Feb 2003 19:05:33 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18mHWk-0003Gp-00; Fri, 21 Feb 2003 12:04:02 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 21 Feb 2003 12:05:00 -0600 (CST) Original-Received: from sclp3.sclp.com (sclp3.sclp.com [66.230.238.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id MAA27032 for ; Fri, 21 Feb 2003 12:04:47 -0600 (CST) Original-Received: (qmail 58313 invoked by alias); 21 Feb 2003 18:03:44 -0000 Original-Received: (qmail 58308 invoked from network); 21 Feb 2003 18:03:44 -0000 Original-Received: from quimby.gnus.org (80.91.224.244) by 66.230.238.6 with SMTP; 21 Feb 2003 18:03:44 -0000 Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian)) id 18mHkR-00084g-00 for ; Fri, 21 Feb 2003 19:18:11 +0100 Original-To: ding@gnus.org Original-Path: wintendo.pflaesterer.de!not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 64 Original-NNTP-Posting-Host: p62.246.146.200.tisdip.tiscali.de Original-X-Trace: quimby.gnus.org 1045851491 31041 62.246.146.200 (21 Feb 2003 18:18:11 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: 21 Feb 2003 18:18:11 GMT X-Face: #iIcL\6>Qj/G*F@AL9T*v/R$j@7Q`6#FU&Flg6u6aVsLdWf(H$U5>:;&*>oy>jOIWgA%8w* A!V7X`\fEGoQ[@D'@i^*p3FCC6&Rg~JT/H_*MOX;"o~flADb8^ Mail-Copies-To: never User-Agent: Oort Gnus v0.16 Hamster/2.0.0.1 Cancel-Lock: sha1:lt1Kwa3AkvHlnttfsC73XvGsAs8= Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:50236 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:50236 --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit On Thu, 20 Feb 2003, Karl Pflästerer <- sigurd@12move.de wrote: As noone yells I think I'll propose a patch for `gnus-art.el'. Here it is: --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=gnus-art.el.diff Content-Description: Patch for gnus-art.el Index: gnus-art.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-art.el,v retrieving revision 6.298 diff -u -r6.298 gnus-art.el --- gnus-art.el 21 Feb 2003 13:35:05 -0000 6.298 +++ gnus-art.el 21 Feb 2003 18:09:13 -0000 @@ -4772,15 +4772,15 @@ (defun gnus-article-refer-article () "Read article specified by message-id around point." (interactive) - (let ((point (point))) - (search-forward ">" nil t) ;Move point to end of "<....>". - (if (re-search-backward "\\(<[^<> \t\n]+>\\)" nil t) - (let ((message-id (gnus-replace-in-string (match-string 1) ""))) + (set-buffer gnus-summary-buffer) + (gnus-summary-refer-article msg-id))) + (t + (error "No references around point"))))) (defun gnus-article-show-summary () "Reconfigure windows to show summary buffer." --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit Please tell me if you also need something for the changelog. bye KP -- Der wahre Weltuntergang ist die Vernichtung des Geistes, der andere hängt von dem gleichgiltigen Versuch ab, ob nach der Vernichtung des Geistes noch eine Welt bestehen kann. Karl Kraus 'Untergang der Welt durch schwarze Magie' --=-=-=--