Mercurial > emacs

diff lisp/gnus/nnweb.el @ 75149:0fd7f29f20d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 186-191) - Update from CVS Revision: emacs@sv.gnu.org/emacs--devo--0--patch-595
author Miles Bader <miles@gnu.org>
date Tue, 09 Jan 2007 05:40:39 +0000
parents 4fa1b5c6a34c
children e3694f1cb928
line wrap: on
line diff
--- a/lisp/gnus/nnweb.el	Tue Jan 09 05:04:15 2007 +0000
+++ b/lisp/gnus/nnweb.el	Tue Jan 09 05:40:39 2007 +0000
@@ -480,7 +480,7 @@
 		    (from (mail-header-from header))
 		    (subject (mail-header-subject header))
 		    (rfc2047-encoding-type 'mime))
-		(when (string-match " \\([^:]+\\):\\([0-9]+\\)" xref)
+		(when (string-match " \\([^:]+\\)[:/]\\([0-9]+\\)" xref)
 		  (mail-header-set-xref
 		   header
 		   (format "http://article.gmane.org/%s/%s/raw"
@@ -496,11 +496,8 @@
 					 (rfc2047-encode-string subject))
 
 		(unless (nnweb-get-hashtb (mail-header-xref header))
-		  (push
-		   (list
-		    (incf (cdr active))
-		    header)
-		   map)
+		  (mail-header-set-number header (incf (cdr active)))
+		  (push (list (mail-header-number header) header) map)
 		  (nnweb-set-hashtb (cadar map) (car map))))))
 	  (forward-line 1)))
       (nnheader-message 7 "Searching Gmane...done")