From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/67791 Path: news.gmane.org!not-for-mail From: Reiner Steib Newsgroups: gmane.emacs.gnus.general Subject: nnweb: Search for MID via Google Groups broken Date: Sat, 15 Nov 2008 23:50:44 +0100 Message-ID: <87bpwgtxh7.fsf@marauder.physik.uni-ulm.de> Reply-To: Reiner Steib NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1226789542 8046 80.91.229.12 (15 Nov 2008 22:52:22 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 15 Nov 2008 22:52:22 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M16240@lists.math.uh.edu Sat Nov 15 23:53:25 2008 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1L1U16-0002kC-Px for ding-account@gmane.org; Sat, 15 Nov 2008 23:53:25 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1L1TzY-0008NE-MZ; Sat, 15 Nov 2008 16:51:48 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1L1TzV-0008Mp-KV for ding@lists.math.uh.edu; Sat, 15 Nov 2008 16:51:45 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1L1TzQ-0002xI-Qg for ding@lists.math.uh.edu; Sat, 15 Nov 2008 16:51:45 -0600 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1L1TzZ-0007oJ-00 for ; Sat, 15 Nov 2008 23:51:49 +0100 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1L1TzN-0002qs-8h for ding@gnus.org; Sat, 15 Nov 2008 22:51:37 +0000 Original-Received: from p4fd46223.dip.t-dialin.net ([79.212.98.35]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 15 Nov 2008 22:51:37 +0000 Original-Received: from Reiner.Steib by p4fd46223.dip.t-dialin.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 15 Nov 2008 22:51:37 +0000 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-Lines: 81 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: p4fd46223.dip.t-dialin.net X-Face: .*T0'iU(sujq_j9\J>-d4fg;N/1++U#U$_5ii6k.=|"-n'?5O:Hyz&wi'-!I~,}7~GgT=0S /&-R5sbkNy5+Xo1y{Tw2KKxi@Xh"g@]Qc|.U<*]WDd)qvGowFDvfU1F]{EDho:7P0@|oOD=Bc{K4?> WP68K[Mx:}=`ZT'6g4'f+g?;`vri2!)xGy}3:=l'(/Cea0l4lo^H5#@/Z3ev Mail-Copies-To: nobody User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/22.1 (gnu/linux) Cancel-Lock: sha1:nOb4fednuL7kt+UhX5EiT4oPMvI= X-Spam-Score: -3.6 (---) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:67791 Archived-At: --=-=-= Hi, Google Groups' search output changed once again. Previously, "http://www.google.com/groups?as_umsgid=%s&hl=en&dmode=source" (%s -> Message-Id w/o "<" and ">") used to return the original article (within 
...
tags of an html page). Now, this URL returns a page where you need to go thru "More Options" and "Show Original" to get there. Replacing `nnweb-google-wash-article' with the following code seems to fix the problem, but the approach is ugly because it is not really a wash function anymore. Testing and suggestions for a more clear approach welcome... --8<---------------cut here---------------start------------->8--- (defun nnweb-google-wash-article () (let ((case-fold-search t) url) (goto-char (point-min)) (re-search-forward (concat "href=\"\\(/group/[^/]+/msg/[[:alnum:]]+" "\\?dmode=source\\)\">Show original") nil t) (setq url (format "%s%s&output=gplain" (nnweb-definition 'base) (match-string 1))) (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)))) --8<---------------cut here---------------end--------------->8--- The attached patch include this plus a definition and wash for the article lookup on (via Google). Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/ --=-=-= Content-Type: text/x-patch Content-Disposition: inline Index: message.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v retrieving revision 7.251 retrieving revision 7.252 diff -u -u -r7.251 -r7.252 --- message.el 24 Mar 2008 18:09:11 -0000 7.251 +++ message.el 24 Mar 2008 18:16:27 -0000 7.252 @@ -5059,12 +5059,16 @@ ;; Check the length of the signature. (message-check 'signature (goto-char (point-max)) - (if (> (count-lines (point) (point-max)) 5) - (y-or-n-p - (format - "Your .sig is %d lines; it should be max 4. Really post? " - (1- (count-lines (point) (point-max))))) - t)) + (if (not (re-search-backward message-signature-separator nil t)) + t + (if (>= (count-lines (1+ (point-at-eol)) (point-max)) 5) + (if (message-gnksa-enable-p 'signature) + (y-or-n-p + (format "Signature is excessively long (%d lines). Really post? " + (count-lines (1+ (point-at-eol)) (point-max)))) + (message "Denied posting -- Excessive signature.") + nil) + t))) ;; Ensure that text follows last quoted portion. (message-check 'quoting-style (goto-char (point-max)) --=-=-=--