From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/43167
Path: main.gmane.org!not-for-mail
From: Mark Thomas <pgh_mthomas@yahoo.com>
Newsgroups: gmane.emacs.gnus.general
Subject: patch for gnus-parent-id
Date: Mon, 18 Feb 2002 13:33:27 -0500
Sender: owner-ding@hpc.uh.edu
Message-ID: <wf14rkewspv.fsf@svelte.home>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035178305 16126 80.91.224.250 (21 Oct 2002 05:31:45 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 05:31:45 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: (qmail 21547 invoked from network); 18 Feb 2002 18:36:03 -0000
Original-Received: from malifon.math.uh.edu (mail@129.7.128.13)
  by mastaler.com with SMTP; 18 Feb 2002 18:36:03 -0000
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 16csbj-000097-00; Mon, 18 Feb 2002 12:33:47 -0600
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 18 Feb 2002 12:33:46 -0600 (CST)
Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id MAA05851
	for <ding@hpc.uh.edu>; Mon, 18 Feb 2002 12:33:37 -0600 (CST)
Original-Received: (qmail 21514 invoked by alias); 18 Feb 2002 18:33:33 -0000
Original-Received: (qmail 21508 invoked from network); 18 Feb 2002 18:33:32 -0000
Original-Received: from dyn-76-131.wv.cc.cmu.edu (HELO svelte.home) (128.2.76.131)
  by gnus.org with SMTP; 18 Feb 2002 18:33:32 -0000
Original-Received: from mthomas by svelte.home with local (Exim 3.34 #1 (Debian))
	id 16csbP-0000x5-00
	for <ding@gnus.org>; Mon, 18 Feb 2002 13:33:27 -0500
Original-To: ding@gnus.org
Mail-Copies-To: nobody
Original-Lines: 24
User-Agent: Gnus/5.090006 (Oort Gnus v0.06) XEmacs/21.1 (Cuyahoga Valley,
 i686-pc-linux)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:43167
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:43167


2002-02-18  Mark Thomas  <mthomas@cmu.edu>

	* gnus-util.el (gnus-parent-id): Ignore trailing whitespace in the
	References: header

Index: lisp/gnus-util.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-util.el,v
retrieving revision 6.48
diff -u -r6.48 gnus-util.el
--- lisp/gnus-util.el	2002/02/15 13:17:53	6.48
+++ lisp/gnus-util.el	2002/02/18 18:43:23
@@ -484,8 +484,8 @@
 	  (while (nthcdr n ids)
 	    (setq ids (cdr ids)))
 	  (car ids))
-      (when (string-match "<[^<]+\\'" references)
-	(match-string 0 references)))))
+      (when (string-match "\\(<[^<]+>\\)[ \t]*\\'" references)
+	(match-string 1 references)))))
 
 (defun gnus-buffer-live-p (buffer)
   "Say whether BUFFER is alive or not."