Commit aa260d63 authored by Miles Bader's avatar Miles Bader
Browse files

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
parent 700b8e66
2007-02-15 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>
* nnweb.el (nnweb-google-parse-1): Fix date parsing to also match on
articles posted in the last 24 hours.
2007-02-14 Chong Yidong <cyd@stupidchicken.com>
* smiley.el (smiley-regexp-alist): Add "dead" smiley.
......
......@@ -367,13 +367,15 @@ Valid types include `google', `dejanews', and `gmane'.")
(goto-char (point-max))
(when
(re-search-backward
"^\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)? by \\(.*\\)"
"^\\(?:\\(\\w+\\) \\([0-9]+\\)\\|\\S-+\\)\\(?: \\([0-9]\\{4\\}\\)\\)? by \\(.*\\)"
nil t)
(setq Date (format "%s %s 00:00:00 %s"
(match-string 1)
(match-string 2)
(or (match-string 3)
(substring (current-time-string) -4))))
(setq Date (if (match-string 1)
(format "%s %s 00:00:00 %s"
(match-string 1)
(match-string 2)
(or (match-string 3)
(substring (current-time-string) -4)))
(current-time-string)))
(setq From (match-string 4)))
(widen)
(incf i)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment