/[emacs]/emacs/lisp/gnus/nnweb.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnweb.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by miles, Mon Sep 5 23:58:07 2005 UTC revision 1.18 by miles, Fri Sep 9 01:47:33 2005 UTC
# Line 319  Valid types include `google', `dejanews' Line 319  Valid types include `google', `dejanews'
319    ;; We have Google's masked e-mail addresses here.  :-/    ;; We have Google's masked e-mail addresses here.  :-/
320    (let ((case-fold-search t))    (let ((case-fold-search t))
321      (goto-char (point-min))      (goto-char (point-min))
322      (delete-region (point-min)      (if (save-excursion
323                     (1+ (re-search-forward "^<pre>" nil t)))            (or (re-search-forward "The requested message.*could not be found."
324      (goto-char (point-min))                                   nil t)
325      (delete-region (- (re-search-forward "^</pre>" nil t) (length "</pre>"))                (not (and (re-search-forward "^<pre>" nil t)
326                     (point-max))                          (re-search-forward "^</pre>" nil t)))))
327      (mm-url-decode-entities)))          ;; FIXME: Don't know how to indicate "not found".
328            ;; Should this function throw an error?  --rsteib
329            (progn
330              (gnus-message 3 "Requested article not found")
331              (erase-buffer))
332          (delete-region (point-min)
333                         (1+ (re-search-forward "^<pre>" nil t)))
334          (goto-char (point-min))
335          (delete-region (- (re-search-forward "^</pre>" nil t) (length "</pre>"))
336                         (point-max))
337          (mm-url-decode-entities))))
338    
339  (defun nnweb-google-parse-1 (&optional Message-ID)  (defun nnweb-google-parse-1 (&optional Message-ID)
340    (let ((i 0)    (let ((i 0)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26