mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

Merge from gnus--rel--5.10

Browse Source 
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
This commit is contained in:
Miles Bader 2007-02-19 00:49:13 +00:00
parent 700b8e6647
commit aa260d631b
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
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.

14
lisp/gnus/nnweb.el
View File

@ -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)