comparison lisp/gnus/nnweb.el @ 75678:17f71e8e8472

Merge from gnus--rel--5.10 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 <[e-mail]> * lisp/gnus/nnweb.el (nnweb-google-parse-1): Update parser. Revision: [e-mail]/emacs--devo--0--patch-629

75677:459c3d0ca3f8

      (mm-url-decode-entities)
      (setq Subject (buffer-string))
      (goto-char (point-max))
      (widen)
      (narrow-to-region (point)
			(search-forward "</td" nil t))

      (mm-url-remove-markup)
      (mm-url-decode-entities)
      (search-backward " - ")
      (when (looking-at
	     "\\W+\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)?")
	(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)))
      (widen)
      (forward-line 1)
      (incf i)
      (unless (nnweb-get-hashtb url)
	(push
	 (list
	  (incf (cdr active))

75678:17f71e8e8472

      (mm-url-decode-entities)
      (setq Subject (buffer-string))
      (goto-char (point-max))
      (widen)
      (narrow-to-region (point)
			(search-forward "</table" nil t))

      (mm-url-remove-markup)
      (mm-url-decode-entities)
      (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))))
	(setq From (match-string 4)))
      (widen)
      (incf i)
      (unless (nnweb-get-hashtb url)
	(push
	 (list
	  (incf (cdr active))