From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/60869 Path: news.gmane.org!not-for-mail From: Reiner Steib Newsgroups: gmane.emacs.gnus.general Subject: Fetching by MID with new Google Groups Date: Fri, 02 Sep 2005 18:35:20 +0200 Organization: Dept. of Theoretical Physics, University of Ulm Message-ID: Reply-To: Reiner Steib NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1125679220 28893 80.91.229.2 (2 Sep 2005 16:40:20 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 2 Sep 2005 16:40:20 +0000 (UTC) Original-X-From: ding-owner+m9401=ding+2daccount=gmane.org@lists.math.uh.edu Fri Sep 02 18:40:11 2005 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1EBEYN-0001aZ-Dz for ding-account@gmane.org; Fri, 02 Sep 2005 18:38:11 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1EBEYM-0004gb-01 for ding-account@gmane.org; Fri, 02 Sep 2005 11:38:10 -0500 Original-Received: from nas02.math.uh.edu ([129.7.128.40]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1EBEY1-0004gT-00 for ding@lists.math.uh.edu; Fri, 02 Sep 2005 11:37:49 -0500 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas02.math.uh.edu with esmtp (Exim 4.52) id 1EBEXw-0006BC-1u for ding@lists.math.uh.edu; Fri, 02 Sep 2005 11:37:48 -0500 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1EBEXu-0007OB-00 for ; Fri, 02 Sep 2005 18:37:42 +0200 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1EBEWt-0001FO-8g for ding@gnus.org; Fri, 02 Sep 2005 18:36:39 +0200 Original-Received: from bridgekeeper.physik.uni-ulm.de ([134.60.10.123]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 02 Sep 2005 18:36:39 +0200 Original-Received: from Reiner.Steib by bridgekeeper.physik.uni-ulm.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 02 Sep 2005 18:36:39 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-To: ding@gnus.org Original-Lines: 59 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: bridgekeeper.physik.uni-ulm.de X-Face: :6KQZ[nyoS_edmB.%gw-=)BYth^|2+Y+^cu%I$FSx!&>-'om>3H7A|M&n(V7fIo3P.;yo.b yq4$p;ZaBtkv)\}biaiBQe"mD}iib1AA@99-fZ7i*bLhNRVC&0Wkxg9)SH?oWc@{ Mail-Copies-To: nobody User-Agent: Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) Cancel-Lock: sha1:OxIbCdUtb4LYm7k+lA9QGKKMMY4= X-Spam-Score: 0.0 (/) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: news.gmane.org gmane.emacs.gnus.general:60869 Archived-At: 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 "^
" nil t)))
+    (goto-char (point-min))
+    (delete-region (- (re-search-forward "^
" nil t) (length "")) + (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/