Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!usc!wuarchive!uunet!comp.vuw.ac.nz!actrix!Bruce.Hoult
From: Bruce.Hoult@bbs.actrix.gen.nz
Newsgroups: comp.sys.mac.comm
Subject: Re: modem/serial news and mail readers
Message-ID: <1990Dec16.175510.16867@actrix.gen.nz>
Date: 16 Dec 90 17:55:10 GMT
References: <1990Dec14.225113.14671@ux1.cso.uiuc.edu>
Sender: Bruce.Hoult@actrix.gen.nz (Bruce Hoult)
Organization: Actrix Information Exchange, Wellington, New Zealand
Lines: 42
Comment-To: eer36024@uxa.cso.uiuc.edu


I think we've all got the same problem.  I use a bbs that gets a netfeed,
have it save new messages into a file, and then get it to compress and
zmodem everything to me as one file.  Then I use MPW and a couple of simple
macros to page back and forth through the file.

Here are the macros for next msg/prev msg.  If anyone improves them, please
send me a copy.

# Press <cmd>-<spacebar> to find next message
AddMenu News 'Next Msg/ ' '\d
   if "`sizewindow "{active}"`" <> "{newsWindowSize}";\d
      set newsWindowSize "`sizewindow "{active}"`";\d
      (evaluate "{newsWindowSize}" =~ /sizewindow [0-9]+ ([0-9]+)\r1 \x/) \wdev:null;\d
      set newsLineOffset `evaluate ({\r1}-19) \/ (\d`format -x s "{active}"\d`*5\/4)\/2`;\d
   end;\d
   mark -y /\8From: (\x\dn)\`0,{newsLineOffset}\|/\j "<-Current Msg->" "{active}";\d
   find \\\8Subject: \\\j:/\5/ "{active}"\d
'
 
# Press <cmd>-<option>-<spacebar> to find prev message
AddMenu News 'Prev Msg/\ ' '\d
   if "`sizewindow "{active}"`" <> "{newsWindowSize}";\d
      set newsWindowSize "`sizewindow "{active}"`";\d
      (evaluate "{newsWindowSize}" =~ /sizewindow [0-9]+ ([0-9]+)\r1 \x/) \wdev:null;\d
      set newsLineOffset `evaluate ({\r1}-19) \/ (\d`format -x s "{active}"\d`*5\/4)\/2`;\d
   end;\d
   find \j\\\8From: \\ "{active}";\d
   mark -y \\\8From: (\x\dn)\`{newsLineOffset}\|\\\j "<-Current Msg->" "{active}";\d
   find \\\8Subject: \\\j:/\5/ "{active}"\d
'

I've used Lawrence D'Oliveiro's (ldo@waikato.ac.nz) MPW2ASCII program to
convert these to something the net can handle -- it was posted here recently.
If you don't have it you can convert back manually without *too* much trouble.
The general rule is: replace \x with <option>x.  There are a few ecceptions,
of which the main ones are probably \\ becomes \ and \` becomes <option>\


-- 
Bruce.Hoult@bbs.actrix.gen.nz   Twisted pair: +64 4 772 116
BIX: brucehoult                 Last Resort:  PO Box 4145 Wellington, NZ