* Fetching by MID with new Google Groups
@ 2005-09-02 16:35 Reiner Steib
2005-09-06 8:44 ` Yair Friedman
0 siblings, 1 reply; 6+ messages in thread
From: Reiner Steib @ 2005-09-02 16:35 UTC (permalink / raw)
Hi,
here's a patch to support fetching article by MID from Google Groups
interface (see `gnus-refer-article-method').
I'm not sure if the function `nnweb-google-wash-article' does anything
useful these days (and/or is used elsewhere), so I added used a
different name (`nnweb-google-wash-article-source'). If
`nnweb-google-wash-article' isn't useful, I'd replace it by my new
function.
Does `gnus-group-make-web-group' (G w) work with the current code?
--8<---------------cut here---------------start------------->8---
--- nnweb.el 26 Aug 2005 00:05:03 -0000 7.8
+++ nnweb.el 2 Sep 2005 16:25:22 -0000
@@ -54,13 +54,13 @@
(defvar nnweb-type-definition
'((google
- (article . ignore)
- (id . "http://groups.google.de/groups?selm=%s&output=gplain")
+ (id . "http://www.google.com/groups?as_umsgid=%s&hl=en&dmode=source")
+ (article . nnweb-google-wash-article-source)
(reference . identity)
(map . nnweb-google-create-mapping)
(search . nnweb-google-search)
- (address . "http://groups.google.de/groups")
- (base . "http://groups.google.de")
+ (address . "http://groups.google.com/groups")
+ (base . "http://groups.google.com")
(identifier . nnweb-google-identity))
(dejanews ;; alias of google
(article . ignore)
@@ -335,6 +335,17 @@
(delete-region (point) (point-max))
(mm-url-remove-markup)
(widen)))
+
+(defun nnweb-google-wash-article-source ()
+ ;; 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)
--8<---------------cut here---------------end--------------->8---
Bye, Reiner.
--
,,,
(o o)
---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Fetching by MID with new Google Groups
2005-09-02 16:35 Fetching by MID with new Google Groups Reiner Steib
@ 2005-09-06 8:44 ` Yair Friedman
2005-09-06 19:05 ` Reiner Steib
0 siblings, 1 reply; 6+ messages in thread
From: Yair Friedman @ 2005-09-06 8:44 UTC (permalink / raw)
On Fri, 02 Sep 2005 18:35:20 +0200,
Reiner Steib <reinersteib+gmane@imap.cc> writes:
> Hi,
>
> here's a patch to support fetching article by MID from Google Groups
> interface (see `gnus-refer-article-method').
>
> I'm not sure if the function `nnweb-google-wash-article' does anything
> useful these days (and/or is used elsewhere), so I added used a
> different name (`nnweb-google-wash-article-source'). If
> `nnweb-google-wash-article' isn't useful, I'd replace it by my new
> function.
>
> Does `gnus-group-make-web-group' (G w) work with the current code?
It seems that this patch doesn't work with gnus-refer-article-method
i.e. I am not able to fetch articles that doesn't exist in the default
nntp server and exist on google.
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Fetching by MID with new Google Groups
2005-09-06 8:44 ` Yair Friedman
@ 2005-09-06 19:05 ` Reiner Steib
2005-09-07 9:55 ` Yair Friedman
0 siblings, 1 reply; 6+ messages in thread
From: Reiner Steib @ 2005-09-06 19:05 UTC (permalink / raw)
On Tue, Sep 06 2005, Yair Friedman wrote:
> It seems that this patch doesn't work with gnus-refer-article-method
> i.e. I am not able to fetch articles that doesn't exist in the default
> nntp server and exist on google.
Show me the output of `C-h v gnus-refer-article-method RET' and the
MID(s) you tried.
Bye, Reiner.
--
,,,
(o o)
---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Fetching by MID with new Google Groups
2005-09-06 19:05 ` Reiner Steib
@ 2005-09-07 9:55 ` Yair Friedman
2005-09-07 14:04 ` Reiner Steib
0 siblings, 1 reply; 6+ messages in thread
From: Yair Friedman @ 2005-09-07 9:55 UTC (permalink / raw)
Cc: Reiner Steib
On Tue, 06 Sep 2005 21:05:29 +0200,
Reiner Steib <reinersteib+gmane@imap.cc> writes:
> On Tue, Sep 06 2005, Yair Friedman wrote:
>
>> It seems that this patch doesn't work with gnus-refer-article-method
>> i.e. I am not able to fetch articles that doesn't exist in the default
>> nntp server and exist on google.
>
> Show me the output of `C-h v gnus-refer-article-method RET' and the
> MID(s) you tried.
gnus-refer-article-method's value is
(current
(nntp "my.local.nntp.com")
(nnweb "google"
(nnweb-type google))
(nntp "news.gmane.org"))
I was trying to fetch this article Google web interface shows it:
m3u0hhp8md (dot) fsf (at) algebraic (dot) algebraic (dot) org
Running gnus-summary-goto-article (j) give the following messages:
Opening nnweb server on google...done
Generating summary...done
Opening nntp server on news.gmane.org...done
Fetched article <m3u0hhp8md.fsf@algebraic.algebraic.org>
No such article (may have expired or been canceled)
Where can I put a break with edebug?
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Fetching by MID with new Google Groups
2005-09-07 9:55 ` Yair Friedman
@ 2005-09-07 14:04 ` Reiner Steib
2005-09-08 8:25 ` Yair Friedman
0 siblings, 1 reply; 6+ messages in thread
From: Reiner Steib @ 2005-09-07 14:04 UTC (permalink / raw)
On Wed, Sep 07 2005, Yair Friedman wrote:
> I was trying to fetch this article Google web interface shows it:
> m3u0hhp8md (dot) fsf (at) algebraic (dot) algebraic (dot) org
(No need to obfuscate the MID if you print it in clear text later. :-))
I don't see any problems with fetching this MID here, but I use wget
to fetch the URL:
(setq
;; for testing:
gnus-refer-article-method
'((nnweb "google" (nnweb-type google)))
;; Use wget instead of url.el (for nnweb-type google), seems to work more
;; reliable.
mm-url-use-external t
mm-url-program 'wget)
Independent to your problem, I improved `nnweb-google-wash-article' in
current CVS for the case that the article is not present on Google.
Please retry after updating from CVS. Maybe with and without
`mm-url-use-external' and `mm-url-program'.
BTW, I'm not sure how indicate "not found" in `nnweb-google-wash-article':
;; FIXME: Don't know how to indicate "not found".
;; Should this function throw an error? --rsteib
Anyone?
> Running gnus-summary-goto-article (j) give the following messages:
>
> Opening nnweb server on google...done
> Generating summary...done
> Opening nntp server on news.gmane.org...done
> Fetched article <m3u0hhp8md.fsf@algebraic.algebraic.org>
> No such article (may have expired or been canceled)
>
> Where can I put a break with edebug?
Maybe you can edebug `nnweb-google-wash-article'. The fetched HTML
should be in the buffer " *nntpd*" while this function is called.
Bye, Reiner.
--
,,,
(o o)
---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Fetching by MID with new Google Groups
2005-09-07 14:04 ` Reiner Steib
@ 2005-09-08 8:25 ` Yair Friedman
0 siblings, 0 replies; 6+ messages in thread
From: Yair Friedman @ 2005-09-08 8:25 UTC (permalink / raw)
On Wed, 07 Sep 2005 16:04:02 +0200,
Reiner Steib <reinersteib+gmane@imap.cc> writes:
>
> I don't see any problems with fetching this MID here, but I use wget
> to fetch the URL:
>
> (setq
> ;; for testing:
> gnus-refer-article-method
> '((nnweb "google" (nnweb-type google)))
> ;; Use wget instead of url.el (for nnweb-type google), seems to work more
> ;; reliable.
> mm-url-use-external t
> mm-url-program 'wget)
I had other setting during my unsuccessful tries to make new google interface
work I forgot to remove.
Now everything work again!
Thank you
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2005-09-08 8:25 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2005-09-02 16:35 Fetching by MID with new Google Groups Reiner Steib
2005-09-06 8:44 ` Yair Friedman
2005-09-06 19:05 ` Reiner Steib
2005-09-07 9:55 ` Yair Friedman
2005-09-07 14:04 ` Reiner Steib
2005-09-08 8:25 ` Yair Friedman
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).