From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/50187
Path: main.gmane.org!not-for-mail
From: sigurd@12move.de (Karl =?iso-8859-1?q?Pfl=E4sterer?=)
Newsgroups: gmane.emacs.gnus.general
Subject: Better definition for `gnus-article-refer-article'
Date: Wed, 19 Feb 2003 22:41:06 +0100
Organization: Lemis World
Sender: owner-ding@hpc.uh.edu
Message-ID: <m3znoskl7d.fsf@hamster.pflaesterer.de>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1045691115 1929 80.91.224.249 (19 Feb 2003 21:45:15 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 19 Feb 2003 21:45:15 +0000 (UTC)
Return-path: <owner-ding@hpc.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 18lc1f-0000Um-00
	for <ding-account@gmane.org>; Wed, 19 Feb 2003 22:45:11 +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 18lbzl-0005vH-00; Wed, 19 Feb 2003 15:43:13 -0600
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 19 Feb 2003 15:44:11 -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 PAA21270
	for <ding@hpc.uh.edu>; Wed, 19 Feb 2003 15:43:58 -0600 (CST)
Original-Received: (qmail 65084 invoked by alias); 19 Feb 2003 21:42:55 -0000
Original-Received: (qmail 65079 invoked from network); 19 Feb 2003 21:42:55 -0000
Original-Received: from quimby.gnus.org (80.91.224.244)
  by 66.230.238.6 with SMTP; 19 Feb 2003 21:42:55 -0000
Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian))
	id 18lcCa-00080M-00
	for <ding@gnus.org>; Wed, 19 Feb 2003 22:56:28 +0100
Original-To: ding@gnus.org
Original-Path: wintendo.pflaesterer.de!not-for-mail
Original-Newsgroups: gnus.ding
Original-Lines: 31
Original-NNTP-Posting-Host: p62.246.146.74.tisdip.tiscali.de
Original-X-Trace: quimby.gnus.org 1045691788 30772 62.246.146.74 (19 Feb 2003 21:56:28 GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: 19 Feb 2003 21:56:28 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:bqf8cbeX1W0/Vs0cVtfyggSEj/E=
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:50187
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:50187

Hi,
I noticed that the buttons react at the moment smarter if you press them
at a message-id in the article buffer than `gnus-article-refer-article'.
I looked at the definition for that function and wrote it a bit
different. What do you mean? IMO I must have forgotten something because
it seems to easy. I don't think it's necessary to check if we have a
message-id around point because a user would only use that function for
a message-id.

(defun gnus-article-refer-article ()
  "Read article specified by message-id around point."
  (interactive)
  (let ((point (point)) message-id)
    (re-search-backward "<?news:\\|<" nil t)
    (cond ((re-search-forward gnus-button-mid-or-mail-regexp nil t)
	    (setq message-id (concat "<" (match-string 0) ">"))
	    (goto-char point)
	    (set-buffer gnus-summary-buffer)
	    (gnus-summary-refer-article message-id))
	  (t
	    (goto-char point)
	    (error "No references around point")))))

bye
   KP

-- 
    'Twas brillig, and the slithy toves
        Did gyre and gimble in the wabe;
    All mimsy were the borogoves,
         And the mome raths outgrabe.   "Lewis Carroll" "Jabberwocky"