From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/14799 Path: main.gmane.org!not-for-mail From: Kim-Minh Kaplan Newsgroups: gmane.emacs.gnus.general Subject: Re: Gnus fails to show some email messages Date: 27 Mar 1998 21:59:23 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by SEMI MIME-Edit 0.91 - "Hinomiko") Content-Type: multipart/mixed; boundary="Multipart_Fri_Mar_27_21:59:23_1998-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035153932 18296 80.91.224.250 (20 Oct 2002 22:45:32 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:45:32 +0000 (UTC) Cc: bugs@gnus.org (The Gnus Bugfixing Girls + Boys) 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 NAA26790 for ; Fri, 27 Mar 1998 13:11:58 -0800 Original-Received: from sina.hpc.uh.edu (root@Sina.HPC.UH.EDU [129.7.3.5]) by xemacs.org (8.8.5/8.8.5) with ESMTP id PAA19349 for ; Fri, 27 Mar 1998 15:12:11 -0600 (CST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id PAH02923; Fri, 27 Mar 1998 15:12:01 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 27 Mar 1998 15:08:32 -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 PAA02907 for ; Fri, 27 Mar 1998 15:08:23 -0600 (CST) Original-Received: (qmail 4101 invoked by uid 504); 27 Mar 1998 21:08:08 -0000 Original-Received: (qmail 4095 invoked from network); 27 Mar 1998 21:08:06 -0000 Original-Received: from lombric.s-ip.eunet.fr (193.107.197.179) by claymore.vcinet.com with SMTP; 27 Mar 1998 21:07:46 -0000 Original-Received: (from kaplan@localhost) by lombric.s-ip.eunet.fr (8.8.5/8.8.5) id VAA00727; Fri, 27 Mar 1998 21:59:24 +0100 Original-To: ding@gnus.org In-Reply-To: Wes Hardaker's message of "26 Mar 1998 09:19:28 -0800" Original-Lines: 54 X-Mailer: Gnus v5.6.3/XEmacs 20.4 - "Emerald" X-Emacs: 20.4 "Emerald" XEmacs Lucid without mule Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:14799 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:14799 --Multipart_Fri_Mar_27_21:59:23_1998-1 Content-Type: text/plain; charset=US-ASCII >>>>> Wes Hardaker writes: Wes> it looks like my problem is quite possibly related to Wes> threading [...] Wes> [...] Wes> Definitly, this happens with references that contain duplicate ids. This should fix it. Kim-Minh. --Multipart_Fri_Mar_27_21:59:23_1998-1 Content-Type: text/plain; charset=US-ASCII --- /usr/local/lib/xemacs/gnus/lisp/gnus-sum.el-5.6.3 Fri Mar 27 21:14:05 1998 +++ /usr/local/lib/xemacs/gnus/lisp/gnus-sum.el Fri Mar 27 21:44:35 1998 @@ -2960,7 +2960,8 @@ (let ((headers gnus-newsgroup-headers) (deps gnus-newsgroup-dependencies) header references generation relations - cthread subject child end pthread relation new-child) + cthread subject child end pthread relation new-child + refs-uniq) ;; First we create an alist of generations/relations, where ;; generations is how much we trust the relation, and the relation ;; is parent/child. @@ -2972,17 +2973,21 @@ (not (string= references ""))) (insert references) (setq child (mail-header-id header) + refs-uniq (list child) subject (mail-header-subject header)) (setq generation 0) (while (search-backward ">" nil t) (setq end (1+ (point))) - (when (search-backward "<" nil t) - (unless (string= (setq new-child (buffer-substring (point) end)) - child) - (push (list (incf generation) - child (setq child new-child) - subject) - relations)))) + (when (and (search-backward "<" nil t) + (not (member (setq new-child + (buffer-substring (point) end)) + refs-uniq))) + (push new-child refs-uniq) + (push (list (incf generation) + child (setq child new-child) + subject) + relations))) (push (list (1+ generation) child nil subject) relations) (erase-buffer))) (kill-buffer (current-buffer))) --Multipart_Fri_Mar_27_21:59:23_1998-1--