From b6045a935dd83addc6668f2737a1b17630ef02fe Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 10 Feb 1998 07:58:24 +0000 Subject: [PATCH] Merge qgnus-0.23. --- lisp/nnheader.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) 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 -- 1.7.10.4