Changeset 1139 for GuiMail/trunk/p/CWMAIL.m

Timestamp:

Apr 10, 2011, 10:44:11 PM (13 years ago)

Author:

George Lilly

Message:

version 2.3 of GuiMail

File:

• GuiMail/trunk/p/CWMAIL.m (modified) (2 diffs)

GuiMail/trunk/p/CWMAIL.m

@@ -1 @@
-CWMAIL  ;INDPLS/PLS- DELPHI VISTA MAIL SERVER ;16-Sep-1999 07:47;PS
-        ;;2.1;CWMA GuiMail;;Jan 06, 1999
+CWMAIL  ;INDPLS/PLS- DELPHI VISTA MAIL SERVER ;22-Jul-2005 06:59;CLC
+        ;;2.3;CWMAIL;;Jul 19, 2005
         Q   ;ROUTINE CAN'T BE CALLED DIRECTLY
 ENTRY(CWDATA,CWINPUT,CWTEXT)    ;CALL WITH CWINPUT=CALL;DUZ;MSG;BASKET;NEW BASKET;NEWMAIL, TEXT=TEXT ARRAY
@@ -133 +133 @@
         Q
         ;
+%OPENATT(CWDATA,CWINPUT,CWTEXT) ;ALLOW OPENING OF ATTACHMENTS
+        ;
+        D %OPENATT^CWMAILD(.CWDATA,CWINPUT),RETGNAM
+        Q
+%TIMEROF(CWDATA,CWINPUT,CWTEXT) ;TIMER OFF
+        ;
+        D %TIMEROF^CWMAILD(.CWDATA,CWINPUT),RETGNAM
+        Q
+%TIMERVA(CWDATA,CWINPUT,CWTEXT) ;SET TIME-OUT VALUE
+        ;
+        D TIMERVAL^CWMAILD(.CWDATA,CWINPUT),RETGNAM
+        Q