procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge from gnus--rel--5.10

Browse source 
Patches applied:

 * gnus--rel--5.10  (patch 200-201)

   - Merge from emacs--devo--0
   - Update from CVS: lisp/nnweb.el (nnweb-google-parse-1): Update parser.

2007-02-01  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>

   * lisp/gnus/nnweb.el (nnweb-google-parse-1): Update parser.

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-629
This commit is contained in:
Miles Bader 2007-02-05 05:37:56 +00:00
parent 47dad44f54
commit c91f4b8310
2 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,3 +1,7 @@
2007-02-01 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>
* nnweb.el (nnweb-google-parse-1): Update parser.
2007-01-29 Juanma Barranquero <lekktu@gmail.com>
* gnus-art.el (gnus-button-prefer-mid-or-mail): Fix typo in docstring.

15
lisp/gnus/nnweb.el
View file

@ -360,23 +360,22 @@ Valid types include `google', `dejanews', and `gmane'.")
(goto-char (point-max))
(widen)
(narrow-to-region (point)
(search-forward "</td" nil t))
(search-forward "</table" nil t))
(mm-url-remove-markup)
(mm-url-decode-entities)
(search-backward " - ")
(when (looking-at
"\\W+\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)?")
(goto-char (point-max))
(when
(re-search-backward
"^\\(\\w+\\) \\([0-9]+\\)\\(?: \\([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))))
(goto-char (match-end 0)))
(when (looking-at "[^b]+by\\W+\\([^<\n]+\\)")
(setq From (match-string 1)))
(setq From (match-string 4)))
(widen)
(forward-line 1)
(incf i)
(unless (nnweb-get-hashtb url)
(push