Mercurial > emacs

comparison lisp/gnus/nnweb.el @ 76001:73e575b86f8a

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 202) - Update from CVS 2007-02-15 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> * lisp/gnus/nnweb.el (nnweb-google-parse-1): Fix date parsing to also match on articles posted in the last 24 hours. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-642
author Miles Bader <miles@gnu.org>
date Mon, 19 Feb 2007 00:49:13 +0000
parents 17f71e8e8472
children 24202b793a08 dd7c098af727
comparison
equal deleted inserted replaced
76000:8d61685ee62b 76001:73e575b86f8a
365 (mm-url-remove-markup) 365 (mm-url-remove-markup)
366 (mm-url-decode-entities) 366 (mm-url-decode-entities)
367 (goto-char (point-max)) 367 (goto-char (point-max))
368 (when 368 (when
369 (re-search-backward 369 (re-search-backward
370 "^\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)? by \\(.*\\)" 370 "^\\(?:\\(\\w+\\) \\([0-9]+\\)\\|\\S-+\\)\\(?: \\([0-9]\\{4\\}\\)\\)? by \\(.*\\)"
371 nil t) 371 nil t)
372 (setq Date (format "%s %s 00:00:00 %s" 372 (setq Date (if (match-string 1)
373 (match-string 1) 373 (format "%s %s 00:00:00 %s"
374 (match-string 2) 374 (match-string 1)
375 (or (match-string 3) 375 (match-string 2)
376 (substring (current-time-string) -4)))) 376 (or (match-string 3)
377 (substring (current-time-string) -4)))
378 (current-time-string)))
377 (setq From (match-string 4))) 379 (setq From (match-string 4)))
378 (widen) 380 (widen)
379 (incf i) 381 (incf i)
380 (unless (nnweb-get-hashtb url) 382 (unless (nnweb-get-hashtb url)
381 (push 383 (push