⟦c20bb063b⟧

E3 Source Code



with System_Utilities;

package Mail is

    procedure Create (Mailbox : String := ">>SIMPLE NAME<<";
                      For_User : String := "");

    -- Create a mailbox.  For_User defaults to current user.
    -- The user is added to the local machine name map.
    --


    procedure Edit (Mailbox : String := "MAIN"; For_User : String := "");

    -- Enters the mail object editor.  If no window exists for the given
    -- mailbox, a new window will be created.
    -- For_User defaults to current user.

    procedure Expunge;

    --  This command is only valid in a command window off of a mailbox
    --  window.  The given mailbox is expunged.


    procedure Answer (To_All : Boolean := False);

    --  This command may be used in a mailbox window or a read mail window.
    --  It causes an answer window to be created with certain fields
    --  initialized with appropriate default values.
    --  In a mailbox window, the selected message is answered.  In a read
    --  mail window, the current message is answered.


    procedure Reply (To_All : Boolean := False) renames Answer;


    procedure Forward;

    --  Same as answer, except a forward window is created.


    procedure Remail;

    --  Same as answer, except a remail window is created.


    procedure Send;

    --  Brings up a send window.


    procedure Reload_Name_Map;


    --  Causes the mail object editor to read in the name map.


    function New_Messages return Natural;

    -- returns number of unread messages in the mailbox;  if the mailbox is
    -- locked by another session or user the function returns 99999999.


    procedure Send_Message (To : String := ">>USER_NAMES<<";
                            Subject : String := "";
                            Text : String := "";
                            Cc : String := "";
                            From : String := System_Utilities.User_Name;
                            Response : String := "<PROFILE>");

    -- Composes and sends a message with content as specified by the parameters

    procedure Notify;

    -- Display the number of unread messages in the message window banner.

    ---------------------------------------------------------------------

    --  The mail object editor manages three types of windows:
    --      1)  Mailbox windows
    --      2)  Read message windows and
    --      3)  Transmit windows (answer, forward, remail, and send).
    --  The following is a list of supported common commands per window type.

    --  Mailbox window common commands:
    --
    --  Release (obj-x and obj-g).  Deletes the window and closes the mailbox.
    --  Any windows on objects within this mailbox will also be deleted.


    --  Copy.  Copy the selected message(s) from one mailbox to another.

    --  Delete.  Delete the selected message(s).  If the selected message(s)
    --  is already flagged for deletion, the message(s) are expunged.

    --  Definition.  If the cursor is on a message header, brings up a window
    --  on the underlying message.  If the cursor is on a mailbox name, brings
    --  up a window on the underlying mailbox.

    --  Format.  Reads in new messages, and positions the cursor on the first
    --  new message.
    --
    --  Insert.  Bring up a send window.
    --
    --  Move.  Move selected message from one mailbox to another.

    --  Redo.  If the selected message is an undeliverable notification a
    --  send window is brought up with the original message ready to be
    --  resent.  Otherwise a reply window is brought up.

    --  Revert.  Same as format.

    --  Sort_Image.  Change the sort order in which the messages are displayed.

    --  Undo.  Undeleted selected message(s).




    --  Read message window common commands:

    --  Release.  Delete the window, and position the cursor on the next
    --  undeleted message in the mailbox window.

    --  Delete.  Same as Release, but underlying message is deleted.

    --  Enclosing.  Go to enclosing mailbox window.

    --  Redo.  Same as redo in a mailbox window.

    --  Transmit window common commands:

    --  Release.  Obj-G deletes the window.  Obj-X send the message, then
    --  deletes the window.

    --  Edit.  Make the window editable.

    --  Enclosing.  If in a send window, goes to the users main mailbox.
    --  Otherwise goes to the message being answered, forwarded or remailed.

    --  Promote.  Sends the message, and makes the window read only.

    --  Semanticize.  Check names in the to and cc lists, and underlines
    --  names which can't be found.


    -- The sort fields specified by the format parameter are as follows:
    -- 1  From
    -- 2  Date Received
    -- 3  Date Sent
    -- 4  Read/Unread
    -- 5  Deleted/Non-deleted
    -- Use the negatives of these numbers for reverse sorting.


    -- Mail Switches:

    --  Mail_Multiple_Message_Windows
    --    Boolean indicating whether read window should be reused
    --
    --  Mail_Default_Sort_Order
    --    Integer  (see comment on sort orders)

    pragma Subsystem (Mail);
    pragma Module_Name (4, 3604);
    pragma Bias_Key (15);

end Mail;
DataMuseum.dk

Rational R1000/400

⟦c20bb063b⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
