%!
% 
% Date: 19 Jun 89 13:15:05 GMT
% From: mcvax!kth!sunic!ifi!is.uu.no!m2cs!frode@uunet.uu.net  (Frode Odegard)
% Subject: mail-sender
% To: news-makers@brillig.umd.edu
% 
% After installing newsbiff I was irritated by the fact that I had to
% use mail to reply to messages, so I hacked a small utility called
% mail-sender. It is a small NeWS program which opens up a window with
% two items; a text item where the user can enter an email address and
% a "compose and send" button".
% 
% To send mail you enter an email address into the "To:" field
% (TextItem) and click the "compose and send" button. The program will
% then use forkunix to start "mail" in a psterm window (in which the
% mail is composed and sent).
% 
% This is just a quick hack and no attempt to create a NeWS variant of
% mailtool.  It works well if you have newsbiff installed, except from
% the fact that messages are not removed from the mail queue (newsbiff
% is just a biff program).
% 
% Sometimes the message written seems to just disappear into a black
% hole, I suspect that this is due to some bug in the code for the
% TextItem class (does it include control characters in the ItemValue,
% maybe?)
% 
% 			- Frode
% PS: This is ugly code - I know - pls. don't flame me ;-)
% _____________________________________________________________________
% Frode L. Odegard, Modula-2 CASE Systems, Maridalsveien 139, N-0461
% OSLO 4, NORWAY. Email: frode@m2cs.uu.no. For a full resume send mail
% to info@m2cs.uu.no (message must contain the command "resume frode").
% 
% Anyway, here's the code:

%
% mail-sender.ps
%

systemdict /Item known not {
   (NeWS/liteitem.ps) run
} if

/notify {
   items /userName get /ItemValue get /toUser exch def
   (psterm -t sun -xy 300 300 -il "compose-mail" -co 80 -li 25 -fl "compose-mail" mail )
   toUser append
   forkunix
} def

/win framebuffer /new DefaultWindow send def
{
   /FrameLabel (mail-sender v0.1) def
   /PaintClient {items paintitems} def
   /IconImage /bulb def
} win send
300 700 280 100 /reshape win send
/map win send
/can win /ClientCanvas get def

/items 50 dict dup begin
   /button (compose and send) /notify can 15 15 /new ButtonItem send
      20 10 /move 3 index send def
   /userName (To: ) () /Right {} can 220 0 /new TextItem send dup
      /Itemframe 1 put 20 55 /move 3 index send def
end def

/myProcess items forkitems def