Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
75148:bdffb0038313 75149:0fd7f29f20d1
478 (let ((header (nnheader-parse-nov))) 478 (let ((header (nnheader-parse-nov)))
479 (let ((xref (mail-header-xref header)) 479 (let ((xref (mail-header-xref header))
480 (from (mail-header-from header)) 480 (from (mail-header-from header))
481 (subject (mail-header-subject header)) 481 (subject (mail-header-subject header))
482 (rfc2047-encoding-type 'mime)) 482 (rfc2047-encoding-type 'mime))
483 (when (string-match " \\([^:]+\\):\\([0-9]+\\)" xref) 483 (when (string-match " \\([^:]+\\)[:/]\\([0-9]+\\)" xref)
484 (mail-header-set-xref 484 (mail-header-set-xref
485 header 485 header
486 (format "http://article.gmane.org/%s/%s/raw" 486 (format "http://article.gmane.org/%s/%s/raw"
487 (match-string 1 xref) 487 (match-string 1 xref)
488 (match-string 2 xref)))) 488 (match-string 2 xref))))
494 494
495 (mail-header-set-subject header 495 (mail-header-set-subject header
496 (rfc2047-encode-string subject)) 496 (rfc2047-encode-string subject))
497 497
498 (unless (nnweb-get-hashtb (mail-header-xref header)) 498 (unless (nnweb-get-hashtb (mail-header-xref header))
499 (push 499 (mail-header-set-number header (incf (cdr active)))
500 (list 500 (push (list (mail-header-number header) header) map)
501 (incf (cdr active))
502 header)
503 map)
504 (nnweb-set-hashtb (cadar map) (car map)))))) 501 (nnweb-set-hashtb (cadar map) (car map))))))
505 (forward-line 1))) 502 (forward-line 1)))
506 (nnheader-message 7 "Searching Gmane...done") 503 (nnheader-message 7 "Searching Gmane...done")
507 (setq nnweb-articles 504 (setq nnweb-articles
508 (sort (nconc nnweb-articles map) 'car-less-than-car))))) 505 (sort (nconc nnweb-articles map) 'car-less-than-car)))))