From: morioka <morioka>
Date: Tue, 10 Feb 1998 07:58:24 +0000 (+0000)
Subject: Merge qgnus-0.23.
X-Git-Tag: gnus-6_7-tomo-199811302358~215
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b6045a935dd83addc6668f2737a1b17630ef02fe;p=elisp%2Fgnus.git-

Merge qgnus-0.23.
---

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 5b7da45..6a99b9d 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -166,7 +166,7 @@ on your system, you could say something like:
   (let ((case-fold-search t)
 	(cur (current-buffer))
 	(buffer-read-only nil)
-	in-reply-to lines p)
+	in-reply-to lines p ref)
     (goto-char (point-min))
     (when naked
       (insert "\n"))
@@ -231,8 +231,14 @@ on your system, you could say something like:
 	       (if (and (search-forward "\nin-reply-to: " nil t)
 			(setq in-reply-to (nnheader-header-value))
 			(string-match "<[^>]+>" in-reply-to))
-		   (substring in-reply-to (match-beginning 0)
-			      (match-end 0))
+		   (let (ref2)
+		     (setq ref (substring in-reply-to (match-beginning 0)
+					  (match-end 0)))
+		     (while (string-match "<[^>]+>" in-reply-to (match-end 0))
+		       (setq ref2 (substring in-reply-to (match-beginning 0)
+					     (match-end 0)))
+		       (when (> (length ref2) (length ref))
+			 (setq ref ref2))))
 		 "")))
 	   ;; Chars.
 	   0