[patch] fetchyahoo patch

fetch_moreIDs.patch (text/plain), 736 bytes, created by Luke-Jr on 2004-12-18 11:52:51 UTC

--- fetchyahoo	2004-09-20 17:18:55.000000000 +0000
+++ /usr/bin/fetchyahoo	2004-12-18 19:36:07.026151000 +0000
@@ -823,7 +823,7 @@
   my $tmpLine = '';
 
   # the long regex matches and removes a single message
-  while ( $tmpPage =~ s/^.*?^<tr class=msg(new|old).*?^<td .*?name="Mid" value="([0-9_-]+)".*?^<td>(.*?)<.*?^<td>.*?^<a href=.*?ShowLetter\?MsgId=([0-9_-]+).*?\n(.*?)\n.*?^<td .*?>(.*?)<.*?^<td>(.*?)<//ms ) {
+  while ( $tmpPage =~ s/^.*?^<tr class=msg(new|old).*?^<td .*?name="Mid" value="([^"]+)".*?^<td>(.*?)<.*?^<td>.*?^<a href=.*?ShowLetter\?MsgId=([^"]+).*?\n(.*?)\n.*?^<td .*?>(.*?)<.*?^<td>(.*?)<//ms ) {
     if (! $2 eq $4) {
         print "\nWarning: message ID's $2 and $4 don't match.\n" unless $quiet;
     }