🚀 go-pugleaf

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.