DataMuseum.dk

top - download

    Length: 5150 (0x141e)
    Types: TextFile
    Names: »V«

└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦12c68c704⟧ 
                └─⟦this⟧ 
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦220843204⟧ 
                └─⟦this⟧ 
└─⟦6c4f54b10⟧ Bits:30000747 8mm tape, Rational 1000, ACCESS 0_8_0 INTERNAL RELEASE
    └─ ⟦5d1d5404f⟧ »DATA« 
        └─⟦ab9f224fa⟧ 
└─⟦6ac9a67ca⟧ Bits:30000548 8mm tape, Rational 1000, access 1_0_1
    └─ ⟦78f173837⟧ »DATA« 
        └─⟦687a7d38f⟧ 
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦687a7d38f⟧ 
            └─⟦ab9f224fa⟧ 
                └─⟦this⟧ 

TextFile

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;