From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/13305 Path: main.gmane.org!not-for-mail From: Stephen Zander Newsgroups: gmane.emacs.gnus.general Subject: Re: (Missed) threaded mail entries Date: Thu, 18 Dec 1997 14:01:43 -0800 Sender: owner-ding@hpc.uh.edu Message-ID: References: <199712182138.QAA27520@alderaan.gsfc.nasa.gov> Reply-To: stephen.zander@interlock.mckesson.com NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035152697 8606 80.91.224.250 (20 Oct 2002 22:24:57 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:24:57 +0000 (UTC) Cc: ding@gnus.org Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id OAA23736 for ; Thu, 18 Dec 1997 14:42:18 -0800 Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by xemacs.org (8.8.5/8.8.5) with ESMTP id QAA02200 for ; Thu, 18 Dec 1997 16:44:07 -0600 (CST) Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id QAN22046; Thu, 18 Dec 1997 16:42:29 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 18 Dec 1997 16:02:12 -0600 (CST) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id QAA00477 for ; Thu, 18 Dec 1997 16:02:04 -0600 (CST) Original-Received: (qmail 1131 invoked by uid 504); 18 Dec 1997 22:01:49 -0000 Original-Received: (qmail 1128 invoked from network); 18 Dec 1997 22:01:49 -0000 Original-Received: from interlock.mckesson.com (199.221.43.2) by claymore.vcinet.com with SMTP; 18 Dec 1997 22:01:48 -0000 Original-Received: by interlock.mckesson.com id AA24568 (InterLock SMTP Gateway 3.0 for ding@gnus.org); Thu, 18 Dec 1997 14:01:47 -0800 Original-Received: by interlock.mckesson.com (Internal Mail Agent-1); Thu, 18 Dec 1997 14:01:47 -0800 X-Mailer: exmh version 2.0zeta 7/24/97 Original-To: "Edward J. Sabol" Organisation: speaking through but not for McKesson Corp. In-Reply-To: Your message of "Thu, 18 Dec 1997 16:38:35 EST." <199712182138.QAA27520@alderaan.gsfc.nasa.gov> Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:13305 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:13305 "Edward J. Sabol" wrote: > Please post this patch! Sure, here you go. This patch just makes 'gnus-get-newsgroup-headers' use the same rules regardless of the field being a References or an In-Reply-To. Specifically, this fixes a problem with mailers that use In-Reply-To lines like the following: In-reply-to: Message from Ben Pfaff of 13 Dec 1997 10:15:57 EST. <87oh2lclzm.fsf@pfaffben.user.msu.edu> The current code would incorrectly assume the reference was . --- gnus-sum.el.orig Mon Dec 15 23:26:41 1997 +++ gnus-sum.el Thu Dec 18 13:48:45 1997 @@ -4113,7 +4113,7 @@ (subst-char-in-region (point-min) (point-max) ?\t ? t) (run-hooks 'gnus-parse-headers-hook) (let ((case-fold-search t) - in-reply-to header p lines) + header p lines) (goto-char (point-min)) ;; Search to the beginning of the next header. Error messages ;; do not begin with 2 or 3. @@ -4166,7 +4166,11 @@ ;; References. (progn (goto-char p) - (if (search-forward "\nreferences: " nil t) + ;; Get the references from the in-reply-to header if there + ;; were no references and the in-reply-to header looks + ;; promising. + (if (or (search-forward "\nreferences: " nil t) + (search-forward "\nin-reply-to: " nil t)) (progn (setq end (point)) (prog1 @@ -4180,15 +4184,7 @@ (progn (search-backward "<" end t) (point)))))) - ;; Get the references from the in-reply-to header if there - ;; were no references and the in-reply-to header looks - ;; promising. - (if (and (search-forward "\nin-reply-to: " nil t) - (setq in-reply-to (nnheader-header-value)) - (string-match "<[^>]+>" in-reply-to)) - (setq ref (substring in-reply-to (match-beginning 0) - (match-end 0))) - (setq ref nil)))) + (setq ref nil))) ;; Chars. 0 ;; Lines. Stephen --- "Normality is a statistical illusion." -- me