Skip to content

Invalid argument list error when delivering Lafite message over NS/Dodo #2667

Description

@pamoroso

When I deliver a formatted Lafite message over NS with Dodo I get a break window with the error:

INVALID-ARGUMENT-LIST
In \ILLEGAL-ARG:
Invalid argument: 61286

To Reproduce

Steps to reproduce the behavior:

  1. launch Dodo
  2. launch Medley built with support for Ethernet, PCAP, and NetHub
  3. evaluate (FILESLOAD LAFITE)
  4. evaluate (FILESLOAD LAFITE-NEWNSMAIL)
  5. evaluate (LAFITEMODE 'NS)
  6. evaluate (LAFITE 'ON)
  7. compose a new message with text like in the screenshot (the heading is Helvetica 14)
  8. click Deliver

Expected behavior

The message is delivered with no errors.

Screenshots

The break window and Medley:

Image

Context (please complete the following information):

  • Are you using online.interlisp.org? no
  • OS: Linux
  • OS Version: Mint 22.1 Cinnamon
  • Display/window system: X11/VNC
  • Host arch: x86_64 (System76 Merkaat)
  • Maiko version: b50f976
  • IL:MAKESYSDATE: 17-Jun-2026 20:35:06 (Maiko: nhb-pcap-ethernet/b50f976); Medley: master/5688f31)

Additional context

The stack trace:

MESSAGESENDER/9(debug)BTV
COPYBYTES
\NSMAIL.POST.BODY.PARTA0001
   SI::*DUMMY-FOR-CATCH* T
   SI::*CATCH-RETURN-FROM* :BULKDATA
\COURIER.HANDLE.BULKDATAA0001A0002
   SI::*CLEANUP-FORMS* \COURIER.HANDLE.BULKDATAA0003
SI::*UNWIND-PROTECT*
   DATASTREAM 
#<Output Courier.Bulk.Data Stream/136,171200>
   BULKDATAFN \NSMAIL.POST.BODY.PARTA0001
   NOERRORFLG RETURNERRORS
\COURIER.HANDLE.BULKDATA
   STREAM #<Input Spp Stream/136,171000>
   PROGRAM NEW.MAILTRANSPORT
   PGMDEF ((17 5) TYPES (& & & & & & & & & --) 
PROCEDURES (& & & & &) ERRORS (& & & & & & &))
   PROCEDURE POST.ONE.BODY.PART
   PROCDEF (8 (SESSION BODY.PART.TYPE BULK.DATA.SOURCE) 
RETURNS NIL REPORTS (AUTHENTICATION.ERROR SERVICE.ERROR 
OTHER.ERROR SESSION.ERROR TRANSFER.ERROR))
   ARGLIST ((& &) 5 \NSMAIL.POST.BODY.PARTA0001)
   ARGTYPES (SESSION BODY.PART.TYPE BULK.DATA.SOURCE)
   NOERRORFLG RETURNERRORS
   OUTSTREAM #<Output Spp Stream/136,171100>
   SOURCEFLG T
   SINKFLG NIL
   BULKDATAFN \NSMAIL.POST.BODY.PARTA0001
   DATASTREAM 
#<Output Courier.Bulk.Data Stream/136,171200>
COURIER.EXECUTE.CALL
   ARGS 7
   STREAM #<Input Spp Stream/136,171000>
   PROGRAM NEW.MAILTRANSPORT
   PROCEDURE POST.ONE.BODY.PART
   NARGS 3
   ARGLIST ((& &) 5 \NSMAIL.POST.BODY.PARTA0001)
   NOERRORFLG RETURNERRORS
   PGMDEF ((17 5) TYPES (& & & & & & & & & --) 
PROCEDURES (& & & & &) ERRORS (& & & & & & &))
   PROCDEF (8 (SESSION BODY.PART.TYPE BULK.DATA.SOURCE) 
RETURNS NIL REPORTS (AUTHENTICATION.ERROR SERVICE.ERROR 
OTHER.ERROR SESSION.ERROR TRANSFER.ERROR))
   ARGTYPES (SESSION BODY.PART.TYPE BULK.DATA.SOURCE)
COURIER.CALL
   PARTSTREAM #<IO Tedit Stream/130,35700>
   START 90
   ATTRIBUTES NIL
\NSMAIL.POST.BODY.PART
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
SI::*UNWIND-PROTECT*
   MSG #<IO Tedit Stream/130,35700>
   PARSE ("TEdit formatting test" (Paolo Amoroso:) 90 
NIL (Subject . "TEdit formatting test") (To 
Paolo Amoroso:) (cc Paolo Amoroso:))
   EDITORWINDOW {WINDOW}#117,126570
   ABORTWINDOW {WINDOW}#117,126664
   LISPXHIST NIL
   SI::*RESETFORMS* ((& NIL) (&) (&))
   RESETSTATE NIL
\NSMAIL.NEW.SEND
   SI::*CLEANUP-FORMS* SI::RESETUNWIND
SI::*UNWIND-PROTECT*
   SI::*DUMMY-FOR-CATCH* T
   SI::*CATCH-RETURN-FROM* (&)
   LISPXHIST NIL
   SI::*RESETFORMS* NIL
   RESETSTATE NIL
\SENDMESSAGE0A0009
   TEXTSTREAM #<IO Tedit Stream/130,35700>
   WINDOW {WINDOW}#117,126570
   PARSE ("TEdit formatting test" (Paolo Amoroso:) 90 
NIL (Subject . "TEdit formatting test") (To 
Paolo Amoroso:) (cc Paolo Amoroso:))
   *LAFITE-MODE-DATA* ((NS 1 \NSMAIL.NEW.SEND.PARSE 
\NSMAIL.NEW.SEND \NSMAIL.MAKEANSWERFORM 
\NSMAIL.NEW.AUTHENTICATE \NSMAIL.MESSAGE.P 
\NSMAIL.MESSAGE.FROM.SELF.P \NSMAIL.LOGIN) (
"Paolo Amoroso:dev:hawala" & Paolo Amoroso: 
"Paolo Amoroso:" NIL) (&))
   MENUW {WINDOW}#117,126664
   SI::NLSETQ-VALUE NIL
   *PROCEED-CASES* (&)
   SI::*NLSETQFLAG* NIL
\SENDMESSAGE0
\SENDMESSAGE.RESTARTABLE
\SENDMESSAGE
   *FORM* (\SENDMESSAGE (QUOTE 
#<IO Tedit Stream/130,35700>) NIL NIL)
   *ARGVAL* NIL
   *TAIL* NIL
   *FN* \SENDMESSAGE
\EVALFORM
   %#FORM# (\SENDMESSAGE (QUOTE 
#<IO Tedit Stream/130,35700>) NIL NIL)
   *CURRENT-PROCESS* #<Process MESSAGESENDER/172,14000>
   HELPFLAG BREAK!
   \CURRENTDISPLAYLINE 0
   \#DISPLAYLINES 1
   \LINEBUF.OFD #<IO Linebuffer Stream/117,60700>
   *READTABLE* #<ReadTable INTERLISP/172,57714>
   \PRIMTERMTABLE {TERMTABLEP}#172,52740
   \PRIMTERMSA {CHARTABLE}#172,53000
   TtyDisplayStream #<Output Display Stream/136,171300>
   SI::*RESETFORMS* ((& NIL))
   \INTERRUPTABLE T
   \TTYWINDOW NIL
   READBUF NIL
   \TERM.OFD #<Output Display Stream/166,112400>
   *STANDARD-OUTPUT* #<Output Display Stream/166,112400>
   *STANDARD-INPUT* #<IO Linebuffer Stream/117,60700>
\MAKE.PROCESS0
T

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions