Post by thread:[PICLIST] [ADMIN]:Problem reading PICLISTDigest

--Message-Boundary-10219 Content-type: text/plain; charset=US-ASCII Content-transfer-encoding: 7BIT Content-description: Mail message body I am surprised there are so few complaints about the changes that occured to the PICLIST Digest around May 26th. At that time blank lines after the first message were replaced with a single space and then the CR-LF characters to move to the next line. I use Pegasus Mail and it responded to this change by only showing a single message and ignoring the rest. This is consistent with what several others have reported. I wrote a script file for Winedit (http://www.winedit.com) that removes the extra spaces and makes everything visible and viewable again. It is attached to this post. I use Winedit 2000 build 2000b. I assume it will also work with newer versions. The only change you will need is to change the first line which calls out the directory in which the email files are located. I usually run it and sort the files in the list box by date and select the most recent to process the latest digest file. Running the script again on an already "fixed" file doesen's hurt anything. If anyone wants to do this another way just search for the hex pattern "0D 0A 20 0D 0A" and replace it with "0D 0A 0D 0A". I will also send this message in private email to several PIClisters that said they could not "see" the digest anymore. --Message-Boundary-10219 Content-type: text/plain; charset=US-ASCII Content-transfer-encoding: 7BIT Content-description: Text from file 'PIClist convert.wbt' file=AskFileName("SelectFile", "C:\pmail\mail\", "Mime Files|*.cnm", "", 1) fs=FileSize(file) binbuf = BinaryAlloc(fs) binbuf2 = BinaryAlloc(fs) BinaryRead(binbuf, file) endfile = BinaryEodGet( binbuf ) b= BinaryStrCnt( binbuf, 0,endfile-1, "%@CRLF% %@CRLF%") start=0 finish=0 while finish != -1 finish = BinaryIndexEx( binbuf, finish+3, "%@CRLF% %@CRLF%", @FWDSCAN,1 ) if finish != -1 endfile2 = BinaryEodGet( binbuf2 ) BinaryCopy(binbuf2,endfile2,binbuf,start,finish+2-start) start=finish+3 else endfile2 = BinaryEodGet( binbuf2 ) BinaryCopy(binbuf2,endfile2,binbuf, start,endfile-start) endif endwhile BinaryWrite(binbuf2, file) BinaryFree(binbuf) BinaryFree(binbuf2) Message( "Results", "Total invalid chars %b%" ) Exit --Message-Boundary-10219-- -- http://www.piclist.com hint: The PICList is archived three different ways. See http://www.piclist.com/#archives for details.