[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el |
Date: |
Thu, 08 Sep 2005 21:47:34 -0400 |
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)