patch for gnus-parent-id

patch for gnus-parent-id

[Mark Thomas]

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."

Re: patch for gnus-parent-id

[Paul Jarc]

Mark Thomas <pgh_mthomas@yahoo.com> wrote:
> 2002-02-18  Mark Thomas  <mthomas@cmu.edu>
>
> 	* gnus-util.el (gnus-parent-id): Ignore trailing whitespace in the
> 	References: header

Have you come across real-world References fields that had trailing
whitespace?


paul

Re: patch for gnus-parent-id

[Mark Thomas]

On Mon, 18 Feb 2002, prj@po.cwru.edu wrote:

> Have you come across real-world References fields that had trailing
> whitespace?

Yes, see my "threading problem" posts:
  <wf1ofinj6ra.fsf@svelte.home>
  <wf11yfkkl9t.fsf@svelte.home>
OR
  http://www.gnus.org/list-archives/ding/200202/msg00302.html

-Mark

Re: patch for gnus-parent-id

[Paul Jarc]

Mark Thomas <pgh_mthomas@yahoo.com> wrote:
> On Mon, 18 Feb 2002, prj@po.cwru.edu wrote:
>> Have you come across real-world References fields that had trailing
>> whitespace?
>
> Yes, see my "threading problem" posts:
>   <wf1ofinj6ra.fsf@svelte.home>
>   <wf11yfkkl9t.fsf@svelte.home>

Ah, oops.  Ok, I've commited your patch.


paul