nnweb fix

[Andreas Seltenreich <andreas+ding@gate450.dyndns.org>]

[-- Attachment #1: Type: text/plain, Size: 498 bytes --]

Hi,

the google part of nnweb recently broke for me again (both, web groups
and referring articles). The attached patch seems to fix it.

I don't know if is related to the problems recently reported on
<info-gnus-english@gnu.org> though. While the symptoms are the same
(blank articles), I wasn't able to reproduce it back then, and web
groups weren't affected.

Thanks,
andreas

2006-04-22  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>

	* nnweb.el (nnweb-google-wash-article): Update regexp.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: nnweb.patch --]
[-- Type: text/x-patch, Size: 943 bytes --]

Index: nnweb.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nnweb.el,v
retrieving revision 7.19
diff -c -r7.19 nnweb.el
*** nnweb.el	4 Apr 2006 21:35:07 -0000	7.19
--- nnweb.el	22 Apr 2006 09:57:25 -0000
***************
*** 307,314 ****
  (defun nnweb-google-wash-article ()
    ;; We have Google's masked e-mail addresses here.  :-/
    (let ((case-fold-search t)
! 	(start-re "<pre>\n *")
! 	(end-re "\n *</pre>"))
      (goto-char (point-min))
      (if (save-excursion
  	  (or (re-search-forward "The requested message.*could not be found."
--- 307,314 ----
  (defun nnweb-google-wash-article ()
    ;; We have Google's masked e-mail addresses here.  :-/
    (let ((case-fold-search t)
! 	(start-re "<pre>[\r\n ]*")
! 	(end-re "[\r\n ]*</pre>"))
      (goto-char (point-min))
      (if (save-excursion
  	  (or (re-search-forward "The requested message.*could not be found."