Mercurial > emacs

comparison lisp/gnus/nnweb.el @ 90737:95d0cdf160ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 586-614) - Update from CVS - Update from erc--emacs--22 - Merge from gnus--rel--5.10 - Merge from erc--main--0 - Make byte compiler correctly write circular constants * gnus--rel--5.10 (patch 186-196) - Update from CVS - Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-162
author Miles Bader <miles@gnu.org>
date Fri, 26 Jan 2007 06:16:11 +0000
parents 7f3f771c85fa e3694f1cb928
children 52a7f3f50b89
comparison
equal deleted inserted replaced
90736:ef1369583937 90737:95d0cdf160ea
1 ;;; nnweb.el --- retrieving articles via web search engines 1 ;;; nnweb.el --- retrieving articles via web search engines
2 2
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
4 ;; 2004, 2005, 2006 Free Software Foundation, Inc. 4 ;; 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
5 5
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Keywords: news 7 ;; Keywords: news
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
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)))))