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) |