ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /module/pop3.m/
# pop3 protocol independent access to an email server. Pop3: module { PATH: con "/dis/lib/pop3.dis"; # all functions return status (-ve when error) # open a connection with the pop3 server # requires the email server's name or address or nil if a default server is to be used # returns (status, errror string) open: fn(user, password, server: string) : (int, string); # stat the user's mailbox # returns (status, error string, no. messages, total no. bytes) stat: fn(): (int, string, int, int); # list the user's mailbox # returns (status, error string, list of (message no., bytes in message)) msglist: fn(): (int, string, list of (int, int)); # list as above but return (status, error string, list of message nos.) msgnolist: fn(): (int, string, list of int); # top of a message given it's no. # returns (status, error string, message top) top: fn(m: int) : (int, string, string); # full text of a message given it's no. # returns (status, error string, message) get: fn(m: int) : (int, string, string); # delete a message given it's no. # returns (status, error string) delete: fn(m: int) : (int, string); # close the connection # returns (status, error string) close: fn(): (int, string); };