charles@tasis.utas.oz.au (Charles Lakos) (06/03/90)
Mews (a Hypercard stack for reading and posting both mail and news using
the MacTCP protocol driver) was announced to the net a few days ago.
Since then, feedback has indicated that the 30000 field character limit
of Hypercard was causing problems with longer newsgroup lists. The patch
attempts to improve the situation by making more efficient use of the
space available in the relevant field. (A simple test indicates that
the space requirements are about half of what they were before.)
Mews has been available as pub/mac/Mews_1.3.hqx by anonymous ftp from
from ftp.utas.edu.au (131.217.10.1). If you fetched Mews *after* Jun 2
at 13:22 (Australian Eastern Standard Time), then the patch was already
installed. If you fetched it before then, you may wish to fetch it again
or else install the patch as below.
The patch involves editing the script of card "GroupIndex", replacing the
script of the message handler "setView" by the following:
on setView change, discard
global nntp, allGroups
set cursor to busy
put allGroups <> change and not discard into allGroups
put field "Index" into newList
if allGroups then
put "All NewsGroups" into field "Title"
MakeRoom
inform "Requesting newsgroup list from server ..."
get Response(nntp,"list","2")
if it is not empty then get theMesg(nntp)
if it is not empty then
put format(" %?",it) after newList
put the short date into cd field "listDate"
end if
inform "Done"
else
put "Subscribed Newsgroups" into field "Title"
put alphaSort(newList, "a", 0) into newList
put offset("C", newList) into i
if i = 0 then put number of chars in newList + 1 into i
delete char 1 to i-1 of newList
end if
put alphaSort(newList, "a", 3, true) into field "Index"
put empty into newList
end setView
Sorry for any inconvenience.
---
Charles Lakos. charles@tasis.eecs.utas.edu.au
Electrical Engineering and Computer Science,
University of Tasmania,
Australia.