[Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el

[Miles Bader]

Index: emacs/lisp/gnus/nnweb.el
diff -c emacs/lisp/gnus/nnweb.el:1.17 emacs/lisp/gnus/nnweb.el:1.18
*** emacs/lisp/gnus/nnweb.el:1.17       Mon Sep  5 23:58:07 2005
--- emacs/lisp/gnus/nnweb.el    Fri Sep  9 01:47:33 2005
***************
*** 319,330 ****
    ;; We have Google's masked e-mail addresses here.  :-/
    (let ((case-fold-search t))
      (goto-char (point-min))
!     (delete-region (point-min)
!                  (1+ (re-search-forward "^<pre>" nil t)))
!     (goto-char (point-min))
!     (delete-region (- (re-search-forward "^</pre>" nil t) (length "</pre>"))
!                  (point-max))
!     (mm-url-decode-entities)))
  
  (defun nnweb-google-parse-1 (&optional Message-ID)
    (let ((i 0)
--- 319,340 ----
    ;; We have Google's masked e-mail addresses here.  :-/
    (let ((case-fold-search t))
      (goto-char (point-min))
!     (if (save-excursion
!         (or (re-search-forward "The requested message.*could not be found."
!                                nil t)
!             (not (and (re-search-forward "^<pre>" nil t)
!                       (re-search-forward "^</pre>" nil t)))))
!       ;; FIXME: Don't know how to indicate "not found".
!       ;; Should this function throw an error?  --rsteib
!       (progn
!         (gnus-message 3 "Requested article not found")
!         (erase-buffer))
!       (delete-region (point-min)
!                    (1+ (re-search-forward "^<pre>" nil t)))
!       (goto-char (point-min))
!       (delete-region (- (re-search-forward "^</pre>" nil t) (length "</pre>"))
!                    (point-max))
!       (mm-url-decode-entities))))
  
  (defun nnweb-google-parse-1 (&optional Message-ID)
    (let ((i 0)