XEROX MTP 2 4 1 MTP 1 4 By: Doug Cutting (DOUG@CSLI.STANFORD.EDU) Uses: LAFITE Internal INTRODUCTION This pacakge implements the PUP protocol MTP (Mail Transfer Protocol) as a Lafite mode. To use MTP, after loading the file, give the command LAFITEMODE(MTP). MTP differs from other Lafite modes in that the protocol is not workstation oriented. MTP must be told the name of the host which the user wishes to read mail on and send mail via. In this respect using MTP is equivalent to chatting to that host and reading/sending mail. MTP.SERVER [Variable] Should be set to the name of a PUP host running an MTP server. MTP will look here for new mail for the logged in user and deliver mail via this host. FILLING TEdit only requires end-of-line characters at the end of paragraphs, which works fine within Interlisp, but is incompatable with most other systems. Thus one's mail to non-Lafite-users is likely to run off the edge of it's recipients' screen. To fix this MTP provides a filling option. MTP.FILLMSGFLG [Variable] Determines whether the text of messages will be filled prior to delivery. Accepted values are ALWAYS, ASK or NEVER. Initially ASK. MTP.LINELENGTH [Variable] Determines the column at which an end-of-line character will be inserted at or before. Ininially 70. MTP.RIGHTMARGINWIDTH [Variable] Determines how many columns after MTP.LINELENGTH a line can extend before it will be broken. Initially 10. This variable's purpose should become apparent below. Answer Insertion When answering a message MTP provides the option of inserting the text of that message into the response form. MTP.INSERTANSWERFLG [Variable] If non-NIL the user will be asked whether message insertion is desired upon giving the Answer command. Initially T. MTP.INSERTANSWERNSPACES [Variable] Determines how many spaces the text of the inserted message will be indented. Initially 3. If MTP.INSERTANSWERNSPACES is non-zero, inserted messages are likely to extend past the margin determined by MTP.LINELENGTH. Were not MTP.RIGHTMARGINWIDTH provided, the inserted message would be clipped upon delivery. One mis-feature of this scheme is that the final lines of TEdit paragraphs are allowed to extend longer than the preceding lines. With the default settings, this will be apparent on one in seven paragraphs. CAVEATS ÿÿïf ÿI have not tested this w/ other than the Stanford PUP mtpser (January '85 release) running in 4.2 BSD UNIX. Hint w/ this server: If you get breaks upon fetching mail it is likly that the server does not have access to your mailbox. mtpser sets uid to daemon, so either daemon must be able to read & write files on /usr/spool/mail, or the setuid must be commented out of mspser.c. ÿÿïfÿ TEdit formatting in messages is not supported. I could not get the UNIX mailer to send a binary message. ÿÿïfÿ Outgoing addresses are not checked at all. We depend on the server to mail back error messages. (LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 1144 1430) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 12 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (256 44 440 44) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (124 1350 674 44) NIL) (TEXT NIL NIL (124 140 710 1130) NIL))) (PAGE NIL NIL (0 0 1144 1430) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 12 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (432 52 110 44) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (124 1350 674 44) NIL) (TEXT NIL NIL (124 140 710 1130) NIL))) (PAGE NIL NIL (0 0 1144 1430) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 12 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (432 52 110 44) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (124 1350 674 44) NIL) (TEXT NIL NIL (124 140 710 1130) NIL)))))(È1ÈÈ(ŠŠ8(È(ŠŠ8DÈÈPAGEHEADINGRUNNINGHEAD HELVETICA MODERN MODERN MODERNMODERNLOGOHRULE.GETFNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERN HRULE.GETFNMODERNHRULE.GETFNMODERN+ XF — …f £ou#\¬ ‚ne…Uzº