Re: Does nnweb with Google work any more?

[Reiner Steib <reinersteib+gmane@imap.cc>]

[-- Attachment #1: Type: text/plain, Size: 623 bytes --]

On Sat, Feb 25 2012, Lars Magne Ingebrigtsen wrote:

> Has the Google Groups thing where you could request stuff from
>
> http://www.google.com/groups?as_umsgid=%s&hl=en&dmode=source
>
> totally gone away now?  I can't get it to work, at least...

I have a modified version of nnweb.el which supports MID searching via
http://howardk.freenix.org/ (which now redirects to
http://al.howardknight.net/).

The code was last modified and tested in 2010, so you might need to
adjust it.  And I am not sure if all hunks in the diff are relevant,
because I didn't have enough spare time to bring my diffs from the old
cvs to git.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: rs-nnweb-howardknight.patch --]
[-- Type: text/x-diff, Size: 1917 bytes --]

--- nnweb.el	2012-01-07 19:25:08.000000000 +0100
+++ nnweb.el	2010-01-16 13:31:22.000000000 +0100
@@ -70,6 +71,11 @@
      (address . "http://groups.google.com/groups")
      (base    . "http://groups.google.com")
      (identifier . nnweb-google-identity))
+    (howardk
+     (id . "http://howardk.freenix.org/msgid.cgi?STYPE=msgid&MSGI=<%s>&GOOGLE=on")
+     (article . nnweb-howardk-wash-article)
+     (reference . identity)
+     (identifier . nnweb-howardk-identity))
     (gmane
      (article . nnweb-gmane-wash-article)
      (id . "http://gmane.org/view.php?group=%s")
@@ -296,7 +308,27 @@
 ;;; groups.google.com
 ;;;
 
+;; Updated for Google's changed interface 2008-11
 (defun nnweb-google-wash-article ()
+  (let ((case-fold-search t) url)
+    (goto-char (point-min))
+    (if (or (re-search-forward "The requested message.*could not be found."
+			       nil t)
+	    (re-search-forward
+	     (concat "href=\"\\(/group/[^/]+/msg/[[:alnum:]]+"
+		     "\\?dmode=source\\)\">Show original</a>") nil t))
+	(setq url (format "%s%s&output=gplain"
+			  (nnweb-definition 'base) (match-string 1)))
+      (gnus-message 3 "Requested article not found"))
+    (gnus-message 9 "URL: %s" url)
+    (erase-buffer)
+    (mm-with-unibyte-current-buffer
+      (mm-url-insert-file-contents url))
+    (unless (re-search-forward "^Message-ID:")
+      (gnus-message 3 "Requested article not found")
+      (erase-buffer))))
+
+(defun nnweb-howardk-wash-article ()
   ;; We have Google's masked e-mail addresses here.  :-/
   (let ((case-fold-search t)
 	(start-re "<pre>[\r\n ]*")
@@ -305,6 +337,7 @@
     (if (save-excursion
 	  (or (re-search-forward "The requested message.*could not be found."
 				 nil t)
+	      (re-search-forward "Couldn't find article" nil t)
 	      (not (and (re-search-forward start-re nil t)
 			(re-search-forward end-re nil t)))))
 	;; FIXME: Don't know how to indicate "not found".

[-- Attachment #3: Type: text/plain, Size: 114 bytes --]


Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/