home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / winsock / wvnsc926 / rcs / wvmail.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-05-19  |  36.0 KB  |  1,785 lines
  1. head     1.24;
  2. branch   ;
  3. access   ;
  4. symbols  V80:1.6 V76d:1.1;
  5. locks    ; strict;
  6. comment  @ * @;
  7.  
  8.  
  9. 1.24
  10. date     94.09.19.01.15.21;  author jcooper;  state Exp;
  11. branches ;
  12. next     1.23;
  13.  
  14. 1.23
  15. date     94.09.18.22.49.31;  author jcooper;  state Exp;
  16. branches ;
  17. next     1.22;
  18.  
  19. 1.22
  20. date     94.09.16.01.05.02;  author jcooper;  state Exp;
  21. branches ;
  22. next     1.21;
  23.  
  24. 1.21
  25. date     94.08.24.18.40.15;  author mrr;  state Exp;
  26. branches ;
  27. next     1.20;
  28.  
  29. 1.20
  30. date     94.05.27.01.29.29;  author rushing;  state Exp;
  31. branches ;
  32. next     1.19;
  33.  
  34. 1.19
  35. date     94.05.27.01.18.47;  author rushing;  state Exp;
  36. branches ;
  37. next     1.18;
  38.  
  39. 1.18
  40. date     94.02.24.21.32.14;  author jcoop;  state Exp;
  41. branches ;
  42. next     1.17;
  43.  
  44. 1.17
  45. date     94.02.09.18.39.32;  author rushing;  state Exp;
  46. branches ;
  47. next     1.16;
  48.  
  49. 1.16
  50. date     94.02.09.18.01.08;  author cnolan;  state Exp;
  51. branches ;
  52. next     1.15;
  53.  
  54. 1.15
  55. date     94.01.24.17.40.28;  author jcoop;  state Exp;
  56. branches ;
  57. next     1.14;
  58.  
  59. 1.14
  60. date     94.01.15.20.32.30;  author jcoop;  state Exp;
  61. branches ;
  62. next     1.13;
  63.  
  64. 1.13
  65. date     94.01.11.18.26.19;  author cnolan;  state Exp;
  66. branches ;
  67. next     1.12;
  68.  
  69. 1.12
  70. date     93.12.08.01.28.38;  author rushing;  state Exp;
  71. branches ;
  72. next     1.11;
  73.  
  74. 1.11
  75. date     93.08.25.18.54.36;  author mbretherton;  state Exp;
  76. branches ;
  77. next     1.10;
  78.  
  79. 1.10
  80. date     93.06.29.00.22.35;  author rushing;  state Exp;
  81. branches ;
  82. next     1.9;
  83.  
  84. 1.9
  85. date     93.06.28.17.51.39;  author rushing;  state Exp;
  86. branches ;
  87. next     1.8;
  88.  
  89. 1.8
  90. date     93.06.22.19.09.14;  author rushing;  state Exp;
  91. branches ;
  92. next     1.7;
  93.  
  94. 1.7
  95. date     93.06.22.16.45.51;  author bretherton;  state Exp;
  96. branches ;
  97. next     1.6;
  98.  
  99. 1.6
  100. date     93.06.11.00.11.26;  author rushing;  state Exp;
  101. branches ;
  102. next     1.5;
  103.  
  104. 1.5
  105. date     93.05.19.23.49.08;  author rushing;  state Exp;
  106. branches ;
  107. next     1.4;
  108.  
  109. 1.4
  110. date     93.05.18.22.10.45;  author rushing;  state Exp;
  111. branches ;
  112. next     1.3;
  113.  
  114. 1.3
  115. date     93.04.27.21.29.23;  author rushing;  state Exp;
  116. branches ;
  117. next     1.2;
  118.  
  119. 1.2
  120. date     93.03.30.20.09.08;  author rushing;  state Exp;
  121. branches ;
  122. next     1.1;
  123.  
  124. 1.1
  125. date     93.02.16.20.54.22;  author rushing;  state Exp;
  126. branches ;
  127. next     ;
  128.  
  129.  
  130. desc
  131. @winvn version 0.76 placed into RCS
  132. @
  133.  
  134.  
  135. 1.24
  136. log
  137. @ignore MAPI in auto-select if using win32s
  138. @
  139. text
  140. @/*--- WVMAIL.C ------------------------------------------------------------
  141.  *
  142.  *    This file contains the window procedure for the windows
  143.  *    used to edit outgoing mail messages.
  144.  *
  145.  *    Mark Riordan   11 June 1991
  146.  *
  147.  *    MAPI interface implemented by MAtthew Bretherton  March 1993
  148.  */
  149.  
  150.  
  151. /*
  152.  * $Id: wvmail.c 1.23 1994/09/18 22:49:31 jcooper Exp $
  153.  * $Log: wvmail.c $
  154.  * Revision 1.23  1994/09/18  22:49:31  jcooper
  155.  * support for cascading windows
  156.  * 
  157.  * Revision 1.22  1994/09/16  01:05:02  jcooper
  158.  * General cleanup for 92.6
  159.  * 
  160.  * Revision 1.21  1994/08/24  18:40:15  mrr
  161.  * authorization enables post/mail
  162.  *
  163.  * Revision 1.20  1994/05/27  01:29:29  rushing
  164.  * unnecessary winundoc.h
  165.  *
  166.  * Revision 1.19  1994/05/27  01:18:47  rushing
  167.  * new smtp
  168.  *
  169.  * Revision 1.18  1994/02/24  21:32:14  jcoop
  170.  * jcoop changes
  171.  *
  172.  * Revision 1.17  1994/02/09  18:39:32  rushing
  173.  * ':' missing on case
  174.  *
  175.  * Revision 1.16  1994/02/09  18:01:08  cnolan
  176.  * cnolan 90.2 changes
  177.  *
  178.  * Revision 1.15  1994/01/24  17:40:28  jcoop
  179.  * 90.2 changes
  180.  *
  181.  * Revision 1.14  1994/01/15  20:32:30  jcoop
  182.  * Attachments, color/font, global editWnd, bugfix in WM_SEND
  183.  *
  184.  * Revision 1.13  1994/01/11  18:26:19  cnolan
  185.  * from conor nolan (missed changes)
  186.  * 
  187.  * Revision 1.12  1993/12/08  01:28:38  rushing
  188.  * new version box and cr lf consistency
  189.  *
  190.  * Revision 1.11  1993/08/25  18:54:36  mbretherton
  191.  * MRB merge, mail & post logging
  192.  *
  193.  * Revision 1.10  1993/06/29  00:22:35  rushing
  194.  * make smtp headers have Date: header
  195.  *
  196.  * Revision 1.9  1993/06/28  17:51:39  rushing
  197.  * fixed compiler warnings
  198.  *
  199.  * Revision 1.8  1993/06/22  19:09:14  rushing
  200.  * mail force type selection via dialog
  201.  *
  202.  * Revision 1.7  1993/06/22  16:45:51  bretherton
  203.  * *** empty log message ***
  204.  *
  205.  * Revision 1.xx MBretherton - auto close mail window on
  206.  *               successful dispatch of mail
  207.  *               & tweak smtp/mapi cotnrol
  208.  * Revision 1.6  1993/06/11  00:11:26  rushing
  209.  * second merge from Matt Bretherton sources
  210.  *
  211.  * Revision 1.5  1993/05/19  23:49:08  rushing
  212.  * notify user after succesfull forward_smtp_message
  213.  *
  214.  * Revision 1.4  1993/05/18  22:10:45  rushing
  215.  * smtp support
  216.  *
  217.  * Revision 1.3  1993/04/27  21:29:23  rushing
  218.  * added rcs log and id magikstrings
  219.  *
  220.  *
  221.  */
  222.  
  223. #include <windows.h>
  224. #include <windowsx.h>
  225. #include "wvglob.h"
  226. #include "winvn.h"
  227. #pragma hdrstop
  228.  
  229. mlSMTPSend (HWND hWnd, char *mBuf);
  230. mlSMTPForward (HWND hWnd, TypDoc *Doc);
  231.  
  232. long FAR PASCAL 
  233. WinVnMailWndProc (hWnd, message, wParam, lParam)
  234.      HWND hWnd;
  235.      unsigned message;
  236.      WPARAM wParam;
  237.      LPARAM lParam;
  238. {
  239.   WndEdit * WndMail;
  240. //  int ih, found;
  241.  
  242.   WndMail = getWndEdit(WndMails,hWnd,MAXMAILWNDS) ;
  243.  
  244.   if ((!WndMail) && message == WM_CREATE)
  245.     {
  246.       for (ih = 0; ih < MAXMAILWNDS; ih++)
  247.    {
  248.      if (!WndMails[ih].hWnd)
  249.        {
  250.          WndMail = &WndMails[ih];
  251.          WndMail->hWnd = hWnd;
  252.          WndMail->Doc = MailDoc ;
  253.  
  254.          break;
  255.        }
  256.    }
  257.     }
  258.  
  259.   switch (message)
  260.     {
  261.     case WM_SYSCOMMAND:
  262.       return (DefWindowProc (hWnd, message, wParam, lParam));
  263.  
  264.     case WM_CREATE:
  265.       if (CreateEditWnd (WndMail) == FAIL)
  266.          break;
  267.       
  268.       NumMailWnds++;
  269.   
  270.       SendMessage (WndMail->hWndEdit, WM_SETFONT, (WPARAM)hFontArtNormal, TRUE);
  271.   
  272.       if (!Attaching)
  273.          CreatePostingText (MailDoc, hWnd, WndMail->hWndEdit, DOCTYPE_MAIL);
  274.  
  275.       /* Subclass the edit window to pass accelerators to parent */
  276.       SetWindowLong (WndMail->hWndEdit,
  277.            GWL_WNDPROC,
  278.            (long) lpfnEditSubClass);
  279.       break;
  280.  
  281. #ifdef _WIN32
  282.     case WM_CTLCOLOREDIT:
  283. #else
  284.    case WM_CTLCOLOR:    //WIN32 doesn't handle this message anymore
  285.       // Set foreground and background colors of edit control
  286.       if (HIWORD(lParam) == CTLCOLOR_EDIT)
  287. #endif
  288.       {
  289.          SetTextColor((HDC)wParam, ArticleTextColor);
  290.          SetBkColor((HDC)wParam, ArticleBackgroundColor);
  291.          // Return handle to background brush for the edit control
  292.          return (LRESULT)hArticleBackgroundBrush;
  293.       }
  294.       break;
  295.  
  296.     case WM_SIZE:
  297.  
  298.      MoveWindow (WndMail->hWndEdit, 0, 0, LOWORD (lParam),
  299.         HIWORD (lParam), TRUE);
  300.  
  301.       break;
  302.  
  303.     case WM_SETFOCUS:
  304.       SetFocus (WndMail->hWndEdit);
  305.       break;
  306.  
  307.     case WM_KEYDOWN:
  308.       if (wParam == VK_F6)
  309.    {
  310.      NextWindow (WndMail->Doc);
  311.    }
  312.       break;
  313.  
  314.     case WM_INITMENUPOPUP:
  315.       prepareEditMenu (hWnd, WndMail->hWndEdit);
  316.       break;
  317.  
  318.     case WM_COMMAND:
  319.     // Edit Window notifications to parent
  320.     if ((HWND)(UINT)lParam == WndMail->hWndEdit){     
  321. #ifdef WIN32
  322.        if (HIWORD(wParam) == EN_CHANGE)
  323. #else
  324.        if (HIWORD(lParam) == EN_CHANGE)
  325. #endif
  326.         WndMail->dirty = DT_DIRTY ;
  327.        return(0L) ;
  328.     }
  329.  
  330.       switch (LOWORD(wParam))
  331.    {
  332.    case IDM_CANCEL:
  333.    case IDV_EXIT:
  334.      DoEditClose(WndMail->hWnd,WndMail->dirty);
  335.      break;
  336.  
  337.    case IDM_SEND:
  338.      StartMail (WndMail);
  339.      break;
  340.  
  341.    case IDM_ATTACH:
  342.      if (TestDecodeBusy(hWndConf, "Can't make attachment"))
  343.        break;
  344.  
  345.      if (AskForExistingFileName (hWnd, AttachFileName, "Open file to attach") == FAIL)
  346.       break;
  347.            if (DialogBox (hInst, "WinVnAttach", hWnd, lpfnWinVnAttachDlg))
  348.            Attach (WndMail, AttachFileName, DOCTYPE_MAIL);
  349.      
  350.      InvalidateRect (hWnd, NULL, TRUE);
  351.           break;
  352.    
  353.    default:
  354.      DoEditCommands (WndMail->hWndEdit, wParam, lParam);
  355.      break;
  356.    }
  357.       break;
  358.  
  359.  
  360.     case WM_DESTROY:
  361.       WndMail->hWnd = 0;                       
  362.       WndMail->hWndEdit = 0;
  363.       NumMailWnds--;
  364.       break;
  365.  
  366.     case WM_CLOSE:
  367.       if (CommBusy && MailEdit == WndMail)
  368.    MessageBox (hWnd,
  369.      "Please wait until mail send is complete",
  370.      "Cannot close mail window", MB_OK|MB_ICONSTOP);
  371.       else
  372.     DoEditClose(WndMail->hWnd,WndMail->dirty);
  373.       break;
  374.  
  375.     default:
  376.       return (DefWindowProc (hWnd, message, wParam, lParam));
  377.     }
  378.   return (0L);
  379. }
  380.  
  381. /*---- function MailLogout---------------------------------------------
  382.  *
  383.  *   Finish up the mail session
  384.  *
  385.  */
  386. int
  387. MailClose (hWnd) 
  388.     HWND hWnd;
  389. {  
  390.   return ((MailCtrl.fnMlClose)(hWnd)) ;
  391. }
  392.  
  393. /*---- function MailInit ----------------------------------------------
  394.  *
  395.  *
  396.  *
  397.  */
  398. int MailInit (HWND hWnd) 
  399. {  
  400.   int Mapi_Type;
  401.  
  402.   if (MailForceType >= 0)
  403.     { /* Accept Private Profile directive to override Mail negotiation */
  404.       MailCtrl.MailType = MailForceType;
  405.     }
  406.   else
  407.     { /* MAPI is next on the negotiation list */
  408. #ifdef WIN32
  409.       if (GetVersion() == 1) /* win32s */
  410.          Mail_Type = 0
  411.       else
  412. #endif
  413.          Mapi_Type =  GetProfileInt("Mail","MAPI",0) ;
  414.  
  415.       if (Mapi_Type > 0)
  416.    { 
  417.      MailCtrl.MailType = MT_MAPI ;
  418.    } else
  419.    if (strcmp(SMTPHost,""))
  420.    {  /* SMTP next on the negotiation list
  421.          and assume that if SMTP host is specified use it */
  422.      MailCtrl.MailType = MT_SMTP;
  423.    } else 
  424.    {
  425.      MailCtrl.MailType = MT_NONE ;
  426.    } ;
  427.     }
  428.  
  429.   SetMailType (MailCtrl.MailType) ;
  430.  
  431.   (MailCtrl.fnMlInit)(hWnd);
  432.  
  433.   return (0);
  434. }
  435.  
  436. /* -------------- MailCrashClose -----------------
  437.  *
  438.  *  On serious error in mail interface crash mail and
  439.  * disable mail interface - winvn Ok to run without mail
  440.  *
  441.  * -----------------------------------------------*/
  442.  
  443. void
  444. MailCrashExit(HWND hWnd)
  445. {
  446.   MailCtrl.fnMlClose(hWnd) ;  // clear down mail resources in use
  447.   SetMailType(MT_NONE)  ;
  448. }
  449.  
  450. /*---- function MailxxxDefProc -------------------------------------------
  451.  *
  452.  *  Default Proc to support generic nature of dealing with multiple 
  453.  *  mailing interfaces
  454.  *                                                       
  455.  */
  456. MailDefCtlProc (HWND hWnd) {return (0);}
  457. MailDefChrProc (HWND hWnd, char *mBuf) {return (0);}
  458. MailDefDocProc (HWND hWnd, TypDoc * Doc, int DocType) {return (0);}
  459. MailDefDocProc2 (HWND hWnd, TypDoc * Doc) { return 0; }
  460.  
  461. /* --- SetMailType  ----------------------------------------------------
  462.  *
  463.  *  set up logic attributes for selected mail interface
  464.  *
  465.  */ 
  466.  
  467. void
  468. SetMailType (int mailType)
  469. { 
  470.  static BOOL (*NoHeaderFuncs[])(TypDoc * Doc, char *Buf, long int BufLen) =
  471.      {
  472.       NULL
  473.       };
  474.  static BOOL (*MAPIHeaderFuncs[])(TypDoc * Doc, char *Buf, long int BufLen) =
  475.      {
  476.       GetArtHeaderTo, 
  477.       GetArtHeaderSubject,
  478.       NULL 
  479.      };
  480.  static BOOL (*SMTPHeaderFuncs[])(TypDoc * Doc, char *Buf, long int BufLen) =
  481.      {
  482.       MakeArtHeaderTo,
  483.       MakeArtHeaderFrom,
  484.       MakeArtHeaderSubject,
  485.       MakeArtHeaderOrganization,
  486.       MakeArtHeaderDate,
  487.       MakeArtHeaderReplyTo,
  488.       MakeArtHeaderXmailer,
  489.       NULL
  490.      };
  491.  
  492.  
  493.   switch (mailType)
  494.   {  
  495.      case MT_MAPI :
  496.    MailCtrl.enableMail = MF_ENABLED ;
  497.    MailCtrl.enableLogout = MF_GRAYED ;
  498.    MailCtrl.enableForward = MF_GRAYED ;
  499.    MailCtrl.fnMlInit=mlMAPIInit ;
  500.    MailCtrl.fnMlLogout=mlMAPILogout ;
  501.    MailCtrl.fnMlClose=mlMAPIClose;
  502.    MailCtrl.fnMlSend=MailDefChrProc;
  503.    MailCtrl.fnMlForward=MailDefDocProc2;
  504.    MailCtrl.fnMlWinCreate=mlMAPISend ;
  505.    MailCtrl.MailHeaderFuncs = MAPIHeaderFuncs ;
  506.    break ;
  507.       case MT_SMTP :
  508.    MailCtrl.enableMail = MF_ENABLED ;
  509.    MailCtrl.enableLogout = MF_GRAYED;
  510.    MailCtrl.enableForward = MF_ENABLED ;   
  511.    MailCtrl.fnMlInit=MailCtrl.fnMlLogout=MailDefCtlProc ;
  512.    MailCtrl.fnMlLogout=MailDefCtlProc;
  513.    MailCtrl.fnMlClose=MailDefCtlProc;
  514.    MailCtrl.fnMlSend=mlSMTPSend;
  515.    MailCtrl.fnMlForward=mlSMTPForward;
  516.    MailCtrl.fnMlWinCreate=(int (*)(HWND, TypDoc *, int))CreatePostingWnd;
  517.    MailCtrl.MailHeaderFuncs = SMTPHeaderFuncs;
  518.    break;
  519.    /* error handling for Fall through case message box plus */
  520.    /* default to none */ 
  521.      case MT_NONE :
  522.      default:
  523.    MailCtrl.enableMail = MF_GRAYED ;
  524.    MailCtrl.enableLogout = MF_GRAYED;
  525.    MailCtrl.enableForward = MF_GRAYED ;
  526.    MailCtrl.fnMlClose=MailDefCtlProc;
  527.    MailCtrl.fnMlInit=MailCtrl.fnMlLogout=MailDefCtlProc ;
  528.    MailCtrl.fnMlSend=MailDefChrProc ;
  529.    MailCtrl.fnMlForward=MailDefDocProc2;
  530.    MailCtrl.fnMlWinCreate=MailDefDocProc;
  531.    MailCtrl.MailHeaderFuncs = NoHeaderFuncs ;
  532.    break ;
  533.   } ;
  534. }
  535.  
  536. /* -------------- MailEnableLogout ------------------------
  537.  *
  538.  *  Allow discard (freeing) of mail resources during
  539.  *  the session - Not necessarily available to all mail
  540.  *  services
  541.  *
  542.  *--------------------------------------------------------*/  
  543. void
  544. MailEnableLogout(BOOL enable)
  545. {
  546.   if (enable) MailCtrl.enableLogout = MF_ENABLED ;
  547.   else        MailCtrl.enableLogout = MF_GRAYED ;
  548. }
  549.  
  550. /*--- function StartMail ----------------------------------------------
  551.  *
  552.  *    Start the Mailing procedure for an article that has been created
  553.  *    by the user.
  554.  */
  555. BOOL
  556. StartMail (WndEdit *thisMail)
  557. {
  558.   BOOL MailOK = FALSE ;
  559.   char *editptr;
  560.   char title[MAXINTERNALLINE];
  561.   
  562.   GetWindowText(thisMail->hWnd, title, MAXINTERNALLINE-1);
  563.   strcpy(str, title);
  564.   strcat(str, "  [Mailing...]");
  565.   SetWindowText (thisMail->hWnd, str);
  566.  
  567.   MailEdit = thisMail;
  568.   /* If authentication was required, stuff a header line into
  569.    * the beginning of the message so that people reading it can
  570.    * know who really posted it.  (The From: line may be a lie.)
  571.    */
  572.   if(AuthReqMail) {
  573.     AddAuthHeader(MailEdit->hWndEdit);
  574.   }
  575.   
  576.   // lock out changes
  577.   SendMessage(MailEdit->hWndEdit, EM_SETREADONLY, TRUE, 0L);
  578.  
  579.   editptr = GetEditText (MailEdit->hWndEdit);
  580.   
  581.   MailOK=(MailCtrl.fnMlSend)(MailEdit->hWnd, editptr) ;
  582.  
  583.   if (!MailOK)
  584.      // unlock to allow user modification
  585.      SendMessage(MailEdit->hWndEdit, EM_SETREADONLY, FALSE, 0L);
  586.  
  587.   GlobalFreePtr (editptr);         
  588.   
  589.   SetWindowText (thisMail->hWnd, title);
  590.   return (MailOK);
  591. }
  592.  
  593. /*--- function GetMailHeaderString ------------------------------------
  594.  *
  595.  *    mailMsg   points to the mail message buffer (null terminated 
  596.  *              string)
  597.  *
  598.  *              Prefix   is the character string which will identify the
  599.  *                       line we are seeking.  It is the first word
  600.  *                       (blank-delimited) in a line in the header.
  601.  *              BufSize   is the number of bytes left in the buffer Buf.
  602.  *
  603.  *    Exit      Returns  TRUE if we returned a line of this prefix.
  604.  *              Buf      if line was found, contains the line less
  605.  *                       the Prefix null terminated.
  606.  * 
  607.   */
  608. BOOL
  609. GetMailHeaderString (mailMsg, Prefix, Buf, BufSize)
  610.      char *mailMsg;
  611.      char *Prefix;
  612.      char *Buf;
  613.      int BufSize;
  614. {
  615.   BOOL found = FALSE, got_To = FALSE;
  616.   char outline[MAXOUTLINE];
  617.   char  *outptr;
  618.   int linelen;
  619.  
  620.  
  621.       while (!got_To && *mailMsg)
  622.    {
  623.      for (linelen = 0, outptr = outline; *mailMsg && *mailMsg != '\r' &&
  624.           linelen < MAXOUTLINE; linelen++)
  625.        *(outptr++) = *(mailMsg++);
  626.      *outptr = '\0';
  627.  
  628.      if (CompareStringNoCase (outline, Prefix, strlen(Prefix)) == 0)
  629.        {
  630.          got_To = TRUE;
  631.       }
  632.      if (*mailMsg='\r')
  633.       {
  634.      mailMsg++ ; mailMsg++ ;  /* jump CRLF */
  635.      }
  636.    }
  637.  
  638.       if (got_To)
  639.    {
  640.      outptr = outline;
  641.      NextToken (&outptr);
  642.      while (--BufSize > 1 && (*(Buf++) = *(outptr++)));
  643.      found = TRUE;
  644.    }
  645.    *Buf = '\0';       /* whatever happens Buf is null delim string */
  646.        
  647.   return (found);
  648. }
  649.  
  650. mlSMTPSend (HWND hWnd, char *mBuf )
  651. {
  652.   BOOL Addressed = FALSE;
  653.   char Addressee[MAXOUTLINE];
  654. // int res ;
  655.  
  656.   Addressed=GetMailHeaderString (mBuf, "To: ", Addressee, MAXOUTLINE) ;
  657.  
  658.   if (!Addressed)
  659.     {
  660.       MessageBox (hWnd, "Fill in the \"To:\" line", "Need a recipient",
  661.         MB_OK | MB_ICONHAND);
  662.       return(FALSE) ; 
  663.     }
  664.    
  665.   if (!send_smtp_message (Addressee,mBuf))
  666.   {
  667.  //   res=MessageBox (hWnd, "Mail delivered to server", "WinVN", MB_OKCANCEL);
  668.  //   if (res==ID_OK)
  669.      if (MailLog) WriteEditLog(hWnd,MailLogFile,mBuf, lstrlen (mBuf)) ;
  670.      
  671.      MailEdit->dirty=DT_CLEAN ;
  672.      MailEdit = (WndEdit *) NULL;
  673.      
  674.      DestroyWindow(hWnd) ;
  675.      
  676.      if (nextBatchIndex)      // if we're sending a batch, send the next
  677.         BatchSend (DOCTYPE_MAIL);
  678.      
  679.      return (TRUE);
  680.   }
  681.   else
  682.   {
  683.     nextBatchIndex = 0;
  684.     return (FALSE);
  685.   }
  686. }
  687.  
  688. int mlSMTPForward (HWND hWnd, TypDoc * Doc)
  689. {
  690.  
  691.   DialogString[0]=(char)NULL;
  692.   while (!strcmp(DialogString,""))
  693.     if (!DialogBox (hInst, "WinVnMail", hWndConf, lpfnWinVnMailDlg))
  694.       return (0);
  695.  
  696.   if (!forward_smtp_message (DialogString, Doc)) {
  697.     MessageBox (hWnd, "Mail delivered to server", "WinVN", MB_OK);
  698.     return (1);
  699.   }
  700.   else 
  701.     return (0);
  702.   
  703. //  else {
  704. //    MessageBox (hWndConf, "You must enter a recipient", "WinVN", MB_OK);
  705. //    return (0);
  706. //  }
  707. }
  708. @
  709.  
  710.  
  711. 1.23
  712. log
  713. @support for cascading windows
  714. @
  715. text
  716. @d13 1
  717. a13 1
  718.  * $Id: wvmail.c 1.22 1994/09/16 01:05:02 jcooper Exp $
  719. d15 3
  720. d269 6
  721. a274 1
  722.       Mapi_Type =  GetProfileInt("Mail","MAPI",0) ;
  723. @
  724.  
  725.  
  726. 1.22
  727. log
  728. @General cleanup for 92.6
  729. @
  730. text
  731. @d13 1
  732. a13 1
  733.  * $Id: wvmail.c 1.21 1994/08/24 18:40:15 mrr Exp $
  734. d15 3
  735. d125 2
  736. d221 1
  737. a221 1
  738.  
  739. @
  740.  
  741.  
  742. 1.21
  743. log
  744. @authorization enables post/mail
  745. @
  746. text
  747. @d13 1
  748. a13 1
  749.  * $Id: wvmail.c 1.20 1994/05/27 01:29:29 rushing Exp $
  750. d15 3
  751. d78 2
  752. a79 2
  753. #include "windows.h"
  754. #include <windowsx.h>   // for GlobalFreePtr
  755. d82 1
  756. d123 1
  757. a123 1
  758.       SendMessage (WndMail->hWndEdit, WM_SETFONT, hFontArtNormal, TRUE);
  759. d145 1
  760. a145 1
  761.          return (DWORD)hArticleBackgroundBrush;
  762. d195 3
  763. d302 1
  764. a302 1
  765.  *
  766. d364 1
  767. a364 1
  768.    MailCtrl.fnMlWinCreate=CreatePostingWnd ;
  769. d408 6
  770. d437 1
  771. d541 1
  772. a541 1
  773.     if (!DialogBoxParam (hInst, "WinVnMail", hWndConf, lpfnWinVnMailDlg, (LPARAM) NULL))
  774. @
  775.  
  776.  
  777. 1.20
  778. log
  779. @unnecessary winundoc.h
  780. @
  781. text
  782. @d13 1
  783. a13 1
  784.  * $Id: wvmail.c 1.19 1994/05/27 01:18:47 rushing Exp rushing $
  785. d15 3
  786. d76 1
  787. a76 1
  788. #include <windowsx.h>    // for GlobalFreePtr
  789. d98 10
  790. a107 10
  791.     {
  792.       if (!WndMails[ih].hWnd)
  793.         {
  794.            WndMail = &WndMails[ih];
  795.           WndMail->hWnd = hWnd;
  796.           WndMail->Doc = MailDoc ;
  797.  
  798.           break;
  799.         }
  800.     }
  801. d126 2
  802. a127 2
  803.              GWL_WNDPROC,
  804.              (long) lpfnEditSubClass);
  805. d133 1
  806. a133 1
  807.       case WM_CTLCOLOR:        //WIN32 doesn't handle this message anymore
  808. d148 1
  809. a148 1
  810.           HIWORD (lParam), TRUE);
  811. d158 3
  812. a160 3
  813.     {
  814.       NextWindow (WndMail->Doc);
  815.     }
  816. d175 1
  817. a175 1
  818.          WndMail->dirty = DT_DIRTY ;
  819. d180 17
  820. a196 17
  821.     {
  822.     case IDM_CANCEL:
  823.     case IDV_EXIT:
  824.       DoEditClose(WndMail->hWnd,WndMail->dirty);
  825.       break;
  826.  
  827.     case IDM_SEND:
  828.       StartMail (WndMail);
  829.       break;
  830.  
  831.     case IDM_ATTACH:
  832.       if (AskForExistingFileName (hWnd, AttachFileName, "Open file to attach") == FAIL)
  833.           break;
  834.              if (DialogBox (hInst, "WinVnAttach", hWnd, lpfnWinVnAttachDlg))
  835.               Attach (WndMail, AttachFileName, DOCTYPE_MAIL);
  836.       
  837.       InvalidateRect (hWnd, NULL, TRUE);
  838. d198 5
  839. a202 5
  840.     
  841.     default:
  842.       DoEditCommands (WndMail->hWndEdit, wParam, lParam);
  843.       break;
  844.     }
  845. d214 3
  846. a216 3
  847.      MessageBox (hWnd,
  848.       "Please wait until mail send is complete",
  849.       "Cannot close mail window", MB_OK|MB_ICONSTOP);
  850. d218 1
  851. a218 1
  852.      DoEditClose(WndMail->hWnd,WndMail->dirty);
  853. d257 11
  854. a267 11
  855.     { 
  856.       MailCtrl.MailType = MT_MAPI ;
  857.     } else
  858.     if (strcmp(SMTPHost,""))
  859.     {  /* SMTP next on the negotiation list
  860.           and assume that if SMTP host is specified use it */
  861.       MailCtrl.MailType = MT_SMTP;
  862.     } else 
  863.     {
  864.       MailCtrl.MailType = MT_NONE ;
  865.     } ;
  866. d312 3
  867. a314 3
  868.       {
  869.         NULL
  870.        };
  871. d316 5
  872. a320 5
  873.       {
  874.         GetArtHeaderTo, 
  875.         GetArtHeaderSubject,
  876.         NULL 
  877.       };
  878. d322 10
  879. a331 10
  880.       {
  881.         MakeArtHeaderTo,
  882.         MakeArtHeaderFrom,
  883.         MakeArtHeaderSubject,
  884.         MakeArtHeaderOrganization,
  885.         MakeArtHeaderDate,
  886.         MakeArtHeaderReplyTo,
  887.         MakeArtHeaderXmailer,
  888.         NULL
  889.       };
  890. d337 11
  891. a347 11
  892.     MailCtrl.enableMail = MF_ENABLED ;
  893.     MailCtrl.enableLogout = MF_GRAYED ;
  894.     MailCtrl.enableForward = MF_GRAYED ;
  895.     MailCtrl.fnMlInit=mlMAPIInit ;
  896.     MailCtrl.fnMlLogout=mlMAPILogout ;
  897.     MailCtrl.fnMlClose=mlMAPIClose;
  898.     MailCtrl.fnMlSend=MailDefChrProc;
  899.     MailCtrl.fnMlForward=MailDefDocProc2;
  900.     MailCtrl.fnMlWinCreate=mlMAPISend ;
  901.     MailCtrl.MailHeaderFuncs = MAPIHeaderFuncs ;
  902.     break ;
  903. d349 13
  904. a361 13
  905.     MailCtrl.enableMail = MF_ENABLED ;
  906.     MailCtrl.enableLogout = MF_GRAYED;
  907.     MailCtrl.enableForward = MF_ENABLED ;   
  908.     MailCtrl.fnMlInit=MailCtrl.fnMlLogout=MailDefCtlProc ;
  909.     MailCtrl.fnMlLogout=MailDefCtlProc;
  910.     MailCtrl.fnMlClose=MailDefCtlProc;
  911.     MailCtrl.fnMlSend=mlSMTPSend;
  912.     MailCtrl.fnMlForward=mlSMTPForward;
  913.     MailCtrl.fnMlWinCreate=CreatePostingWnd ;
  914.     MailCtrl.MailHeaderFuncs = SMTPHeaderFuncs;
  915.     break;
  916.     /* error handling for Fall through case message box plus */
  917.     /* default to none */ 
  918. d364 10
  919. a373 10
  920.     MailCtrl.enableMail = MF_GRAYED ;
  921.     MailCtrl.enableLogout = MF_GRAYED;
  922.     MailCtrl.enableForward = MF_GRAYED ;
  923.     MailCtrl.fnMlClose=MailDefCtlProc;
  924.     MailCtrl.fnMlInit=MailCtrl.fnMlLogout=MailDefCtlProc ;
  925.     MailCtrl.fnMlSend=MailDefChrProc ;
  926.     MailCtrl.fnMlForward=MailDefDocProc2;
  927.     MailCtrl.fnMlWinCreate=MailDefDocProc;
  928.     MailCtrl.MailHeaderFuncs = NoHeaderFuncs ;
  929.     break ;
  930. d403 8
  931. d456 11
  932. a466 11
  933.     {
  934.       for (linelen = 0, outptr = outline; *mailMsg && *mailMsg != '\r' &&
  935.            linelen < MAXOUTLINE; linelen++)
  936.         *(outptr++) = *(mailMsg++);
  937.       *outptr = '\0';
  938.  
  939.       if (CompareStringNoCase (outline, Prefix, strlen(Prefix)) == 0)
  940.         {
  941.           got_To = TRUE;
  942.         }
  943.       if (*mailMsg='\r')
  944. d468 3
  945. a470 3
  946.       mailMsg++ ; mailMsg++ ;  /* jump CRLF */
  947.       }
  948.     }
  949. d473 8
  950. a480 8
  951.     {
  952.       outptr = outline;
  953.       NextToken (&outptr);
  954.       while (--BufSize > 1 && (*(Buf++) = *(outptr++)));
  955.       found = TRUE;
  956.     }
  957.     *Buf = '\0';       /* whatever happens Buf is null delim string */
  958.         
  959. d495 1
  960. a495 1
  961.           MB_OK | MB_ICONHAND);
  962. d510 1
  963. a510 1
  964.      if (nextBatchIndex)        // if we're sending a batch, send the next
  965. @
  966.  
  967.  
  968. 1.19
  969. log
  970. @new smtp
  971. @
  972. text
  973. @d13 1
  974. a13 1
  975.  * $Id: wvmail.c 1.18 1994/02/24 21:32:14 jcoop Exp rushing $
  976. d15 3
  977. a75 1
  978. #include "winundoc.h"
  979. @
  980.  
  981.  
  982. 1.18
  983. log
  984. @jcoop changes
  985. @
  986. text
  987. @d13 1
  988. a13 1
  989.  * $Id: wvmail.c 1.17 1994/02/09 18:39:32 rushing Exp $
  990. d15 3
  991. d407 1
  992. a407 1
  993.      SendMessage(PostEdit->hWndEdit, EM_SETREADONLY, FALSE, 0L);
  994. d486 1
  995. a486 1
  996.   if (send_smtp_message (Addressee,mBuf))
  997. d517 1
  998. a517 1
  999.   if (forward_smtp_message (DialogString, Doc)) {
  1000. @
  1001.  
  1002.  
  1003. 1.17
  1004. log
  1005. @':' missing on case
  1006. @
  1007. text
  1008. @d13 1
  1009. a13 1
  1010.  * $Id: wvmail.c 1.16 1994/02/09 18:01:08 cnolan Exp rushing $
  1011. d15 3
  1012. d320 1
  1013. d401 5
  1014. d482 1
  1015. a482 1
  1016.  
  1017. d509 3
  1018. a511 8
  1019.   DialogBoxParam (hInst, "WinVnGeneric", hWnd, lpfnWinVnGenericDlg, 
  1020.           (LPARAM) (char far *) "Enter recipient's email address:");
  1021.   if (strcmp(DialogString, "")) {
  1022.     if (forward_smtp_message (DialogString, Doc)) {
  1023.       MessageBox (hWnd, "Mail delivered to server", "WinVN", MB_OK);
  1024.       return (1);
  1025.   }
  1026.     else 
  1027. d513 4
  1028. d518 1
  1029. a518 2
  1030.   else {
  1031.     MessageBox (hWndConf, "You must enter a recipient", "WinVN", MB_OK);
  1032. d520 5
  1033. a524 1
  1034.   }
  1035. @
  1036.  
  1037.  
  1038. 1.16
  1039. log
  1040. @cnolan 90.2 changes
  1041. @
  1042. text
  1043. @d13 1
  1044. a13 1
  1045.  * $Id: wvmail.c 1.15 1994/01/24 17:40:28 jcoop Exp $
  1046. d15 3
  1047. d122 1
  1048. a122 1
  1049.       case WM_CTLCOLOR        //WIN32 doesn't handle this message anymore
  1050. @
  1051.  
  1052.  
  1053. 1.15
  1054. log
  1055. @90.2 changes
  1056. @
  1057. text
  1058. @d13 1
  1059. a13 1
  1060.  * $Id: wvmail.c 1.14 1994/01/15 20:32:30 jcoop Exp $
  1061. d15 3
  1062. d116 4
  1063. a119 1
  1064.     case WM_CTLCOLOR:
  1065. d122 1
  1066. d124 2
  1067. a125 2
  1068.          SetTextColor(wParam, ArticleTextColor);
  1069.          SetBkColor(wParam, ArticleBackgroundColor);
  1070. @
  1071.  
  1072.  
  1073. 1.14
  1074. log
  1075. @Attachments, color/font, global editWnd, bugfix in WM_SEND
  1076. @
  1077. text
  1078. @d13 1
  1079. a13 1
  1080.  * $Id: wvmail.c 1.13 1994/01/11 18:26:19 cnolan Exp $
  1081. d15 3
  1082. d192 5
  1083. a372 2
  1084.  *    MailWnd is the EditStructure containing info on this particular 
  1085.  *    mail window
  1086. d375 1
  1087. a375 1
  1088. StartMail (WndEdit *MailWnd)
  1089. d379 4
  1090. a382 1
  1091.   HWND hWndMailEdit = MailWnd->hWndEdit;
  1092. d384 4
  1093. a387 1
  1094.   editptr = GetEditText (hWndMailEdit);
  1095. a388 2
  1096.   MailOK=(MailCtrl.fnMlSend)(MailWnd->hWnd,editptr) ;
  1097.   GlobalFreePtr (editptr);
  1098. d469 4
  1099. a472 1
  1100.      getWndEdit(WndMails,hWnd,MAXMAILWNDS)->dirty=DT_CLEAN ;
  1101. d474 4
  1102. d481 2
  1103. d484 1
  1104. @
  1105.  
  1106.  
  1107. 1.13
  1108. log
  1109. @from conor nolan (missed changes)
  1110. @
  1111. text
  1112. @d13 1
  1113. a13 1
  1114.  * $Id: wvmail.c 1.12 1993/12/08 01:28:38 rushing Exp $
  1115. d15 3
  1116. d55 1
  1117. d96 7
  1118. a102 11
  1119.  
  1120.       WndMail->hWndEdit = CreateWindow ("edit", (char *) NULL,
  1121.               WS_CHILD | WS_VISIBLE | WS_HSCROLL | WS_VSCROLL | WS_BORDER
  1122.               | ES_LEFT | ES_MULTILINE |
  1123.               ES_AUTOHSCROLL | ES_AUTOVSCROLL
  1124.               ,
  1125.               0, 0, 0, 0,
  1126.               hWnd, EDITID, hInst, NULL);
  1127.  
  1128.      WndMail->dirty = DT_CLEAN ;
  1129.      CreatePostingText (MailDoc, hWnd, WndMail->hWndEdit, DOCTYPE_MAIL);
  1130. d108 1
  1131. d110 9
  1132. d163 1
  1133. a163 1
  1134.       StartMail (hWnd, ih);
  1135. d166 9
  1136. d183 1
  1137. a183 1
  1138.       WndMail->hWnd = 0;
  1139. d365 2
  1140. a366 3
  1141.  *
  1142.  *    Entry    ih    is the index into hWndMailEdits of the child
  1143.  *                   edit window containing the article.
  1144. d369 1
  1145. a369 3
  1146. StartMail (hWnd , ih)
  1147.     HWND hWnd ;
  1148.     int ih;
  1149. d373 1
  1150. a373 2
  1151.   HANDLE hEditBuffer;
  1152.   HWND hWndMailEdit = WndMails[ih].hWndEdit;
  1153. d375 4
  1154. a378 6
  1155.   hEditBuffer = (HANDLE) SendMessage (hWndMailEdit, EM_GETHANDLE, 0, 0L);
  1156.   editptr = LocalLock (hEditBuffer);
  1157.  
  1158.   MailOK=(MailCtrl.fnMlSend)(hWnd,editptr) ;
  1159.  
  1160.   LocalUnlock (hEditBuffer);
  1161. d458 1
  1162. a458 1
  1163.      if (MailLog) WriteEditLog(hWnd,MailLogFile,mBuf) ;
  1164. @
  1165.  
  1166.  
  1167. 1.12
  1168. log
  1169. @new version box and cr lf consistency
  1170. @
  1171. text
  1172. @d13 1
  1173. a13 1
  1174.  * $Id: wvmail.c 1.11 1993/08/25 18:54:36 mbretherton Exp rushing $
  1175. d15 3
  1176. d134 5
  1177. a138 3
  1178.  
  1179.     if (LOWORD(lParam) == WndMail->hWndEdit)
  1180.     {  // Edit Window notifications to parent
  1181. d140 1
  1182. d145 1
  1183. a145 1
  1184.       switch (wParam)
  1185. @
  1186.  
  1187.  
  1188. 1.11
  1189. log
  1190. @MRB merge, mail & post logging
  1191. @
  1192. text
  1193. @d11 1
  1194. d13 1
  1195. a13 1
  1196.  * $Id: wvmail.c 1.10 1993/06/29 00:22:35 rushing Exp $
  1197. d15 3
  1198. @
  1199.  
  1200.  
  1201. 1.10
  1202. log
  1203. @make smtp headers have Date: header
  1204. @
  1205. text
  1206. @d12 1
  1207. a12 1
  1208.  * $Id: wvmail.c 1.9 1993/06/28 17:51:39 rushing Exp rushing $
  1209. d14 3
  1210. d59 2
  1211. a60 2
  1212.   HWND hWndMailEdit;
  1213.   int ih, found;
  1214. d62 1
  1215. a62 5
  1216.   for (ih = 0, found = FALSE; !found && ih < MAXMAILWNDS; ih++)
  1217.     {
  1218.       if (hWndMails[ih] == hWnd)
  1219.     {
  1220.       hWndMailEdit = hWndMailEdits[ih];
  1221. d64 1
  1222. a64 5
  1223.       found = TRUE;
  1224.       break;
  1225.     }
  1226.     }
  1227.   if (!found && message == WM_CREATE)
  1228. d66 1
  1229. a66 1
  1230.       for (ih = 0; !found && ih < MAXVIEWS; ih++)
  1231. d68 1
  1232. a68 1
  1233.       if (!hWndMails[ih])
  1234. d70 4
  1235. a73 2
  1236.           found = TRUE;
  1237.           hWndMails[ih] = hWnd;
  1238. d86 1
  1239. a86 2
  1240.       hWndMailEdit = hWndMailEdits[ih] =
  1241.     CreateWindow ("edit", (char *) NULL,
  1242. d94 3
  1243. a96 2
  1244.       CreatePostingText (MailDoc, hWnd, hWndMailEdit, DOCTYPE_MAIL);
  1245.  
  1246. d98 1
  1247. a98 1
  1248.       SetWindowLong (hWndMailEdit,
  1249. d106 1
  1250. a106 1
  1251.      MoveWindow (hWndMailEdit, 0, 0, LOWORD (lParam),
  1252. d112 1
  1253. a112 1
  1254.       SetFocus (hWndMailEdit);
  1255. d118 1
  1256. a118 1
  1257.       NextWindow (&(MailDocs[ih]));
  1258. d123 1
  1259. a123 1
  1260.       prepareEditMenu (hWnd, hWndMailEdit);
  1261. d127 8
  1262. d139 1
  1263. a139 1
  1264.       DestroyWindow (hWnd);
  1265. d142 1
  1266. a142 1
  1267.     case IDM_POST:
  1268. d147 1
  1269. a147 1
  1270.       DoEditCommands (hWndMailEdit, wParam, lParam);
  1271. d154 2
  1272. a155 2
  1273.     hWndMails[ih] = 0;
  1274.     hWndMailEdits[ih] = 0;
  1275. d159 3
  1276. d202 1
  1277. a202 1
  1278.         if (strcmp(SMTPHost,""))
  1279. d205 2
  1280. a206 2
  1281.           MailCtrl.MailType = MT_SMTP;
  1282.         } else 
  1283. d292 1
  1284. a292 1
  1285.     MailCtrl.enableForward = MF_ENABLED ;    
  1286. d348 1
  1287. a348 1
  1288.   HWND hWndMailEdit = hWndMailEdits[ih];
  1289. d403 1
  1290. a403 1
  1291.  
  1292. d431 2
  1293. a432 1
  1294.   if (send_smtp_message (Addressee,mBuf)) {
  1295. d435 4
  1296. a438 2
  1297.       DestroyWindow(hWnd) ;
  1298.     return (TRUE);
  1299. @
  1300.  
  1301.  
  1302. 1.9
  1303. log
  1304. @fixed compiler warnings
  1305. @
  1306. text
  1307. @d12 1
  1308. a12 1
  1309.  * $Id: wvmail.c 1.8 1993/06/22 19:09:14 rushing Exp rushing $
  1310. d14 3
  1311. d261 1
  1312. a261 1
  1313. //        MakeArtHeaderDate,
  1314. @
  1315.  
  1316.  
  1317. 1.8
  1318. log
  1319. @mail force type selection via dialog
  1320. @
  1321. text
  1322. @d12 1
  1323. a12 1
  1324.  * $Id: wvmail.c 1.7 1993/06/22 16:45:51 bretherton Exp rushing $
  1325. d14 3
  1326. a54 2
  1327.   char mesbuf[348];        /*** debug */
  1328.  
  1329. a94 2
  1330. /*      SetWindowText (hWndMailEdits[ih], mesbuf); */
  1331.  
  1332. d98 3
  1333. a100 1
  1334.       SetWindowLong (hWndMailEdit, GWL_WNDPROC, lpfnEditSubClass);
  1335. d163 1
  1336. d167 1
  1337. a167 1
  1338.   (MailCtrl.fnMlClose)(hWnd) ;
  1339. d175 1
  1340. a175 2
  1341. MailInit (hWnd) 
  1342.     HWND hWnd;
  1343. d228 5
  1344. a232 18
  1345. MailDefCtlProc (hWnd) 
  1346.     HWND hWnd;
  1347. {  
  1348.    return (0);
  1349. }
  1350. MailDefChrProc (hWnd, mBuf) 
  1351.     HWND hWnd;
  1352.     char *mBuf;
  1353. {  
  1354.    return (0);
  1355. }
  1356. MailDefDocProc (hWnd, Doc, DocType) 
  1357.    HWND hWnd ;
  1358.    TypDoc *Doc;
  1359.    int DocType;
  1360. {  
  1361.    return (0);
  1362. }
  1363. d273 2
  1364. a274 4
  1365.     MailCtrl.fnMlSend=MailCtrl.fnMlForward=MailDefChrProc  ;
  1366.     MailCtrl.fnMlForward=MailDefDocProc;
  1367.             // Easy to do but best get ver 80 out the door
  1368.                     // M Bretherton 
  1369. d299 2
  1370. a300 2
  1371.     MailCtrl.fnMlSend=MailCtrl.fnMlForward=MailDefChrProc ;
  1372.     MailCtrl.fnMlForward=MailDefDocProc;
  1373. d434 1
  1374. a434 1
  1375.           (char far *) "Enter recipient's email address:");
  1376. @
  1377.  
  1378.  
  1379. 1.7
  1380. log
  1381. @*** empty log message ***
  1382. @
  1383. text
  1384. @d12 1
  1385. a12 1
  1386.  * $Id: wvmail.c 1.6 1993/06/11 00:11:26 rushing Exp $
  1387. d14 3
  1388. d178 1
  1389. a178 1
  1390.   if (MailForceType > 0)
  1391. @
  1392.  
  1393.  
  1394. 1.6
  1395. log
  1396. @second merge from Matt Bretherton sources
  1397. @
  1398. text
  1399. @d12 1
  1400. a12 1
  1401.  * $Id: wvmail.c 1.5 1993/05/19 23:49:08 rushing Exp rushing $
  1402. d14 6
  1403. a180 1
  1404.  
  1405. d186 6
  1406. a191 2
  1407.     }
  1408.       else
  1409. a195 3
  1410.   /* We assume that if they specify an SMTP host they want SMTP */
  1411.   if (strcmp(SMTPHost,""))
  1412.     MailCtrl.MailType = MT_SMTP;
  1413. d267 1
  1414. d278 1
  1415. d283 3
  1416. d291 2
  1417. a292 1
  1418.     MailCtrl.enableLogout = MF_GRAYED;    
  1419. d307 1
  1420. d311 1
  1421. d420 1
  1422. d432 3
  1423. a434 1
  1424.     MessageBox (hWnd, "Mail delivered to server", "WinVN", MB_OK);
  1425. @
  1426.  
  1427.  
  1428. 1.5
  1429. log
  1430. @notify user after succesfull forward_smtp_message
  1431. @
  1432. text
  1433. @d12 1
  1434. a12 1
  1435.  * $Id: wvmail.c 1.4 1993/05/18 22:10:45 rushing Exp rushing $
  1436. d14 3
  1437. d88 4
  1438. a91 1
  1439.       
  1440. d112 4
  1441. d128 2
  1442. a129 18
  1443.     case IDM_UNDO:
  1444.       SendMessage (hWndMailEdit, WM_UNDO, 0, 0L);
  1445.       break;
  1446.  
  1447.     case IDM_CUT:
  1448.       SendMessage (hWndMailEdit, WM_CUT, 0, 0L);
  1449.       break;
  1450.  
  1451.     case IDM_COPY:
  1452.       SendMessage (hWndMailEdit, WM_COPY, 0, 0L);
  1453.       break;
  1454.  
  1455.     case IDM_PASTE:
  1456.       SendMessage (hWndMailEdit, WM_PASTE, 0, 0L);
  1457.       break;
  1458.  
  1459.     case IDM_CLEAR:
  1460.       SendMessage (hWndMailEdit, WM_CLEAR, 0, 0L);
  1461. a130 5
  1462.  
  1463.     case IDM_SELALL:
  1464.       SendMessage (hWndMailEdit, EM_SETSEL, 0,
  1465.                MAKELONG (0, 32767));
  1466.       break;
  1467. d153 1
  1468. a153 1
  1469. MailLogout (hWnd) 
  1470. d156 1
  1471. a156 1
  1472.   (MailCtrl.fnMlLogout)(hWnd) ;
  1473. d169 6
  1474. a174 1
  1475.   Mapi_Type =  GetProfileInt("Mail","MAPI",0) ;
  1476. d176 1
  1477. a176 8
  1478.   if (Mapi_Type == 1)
  1479.   { 
  1480.      MailCtrl.MailType = MT_MAPI ;
  1481.   }
  1482.   else
  1483.   {
  1484.      MailCtrl.MailType = MT_NONE ;
  1485.   } ;
  1486. d178 9
  1487. d193 1
  1488. a193 5
  1489.   if ((MailCtrl.fnMlInit)(hWnd))
  1490.     {
  1491.       /* On failure to initialise mail interface disable said interface */ 
  1492.       SetMailType(MT_NONE)  ;
  1493.     } ;
  1494. d197 15
  1495. d242 2
  1496. a243 2
  1497. SetMailType (mailType)
  1498.   int mailType ;
  1499. a267 7
  1500.      case MT_NONE :
  1501.     MailCtrl.enableMail = MF_GRAYED ;
  1502.     MailCtrl.fnMlInit=MailCtrl.fnMlLogout=MailDefCtlProc ;
  1503.     MailCtrl.fnMlSend=MailCtrl.fnMlForward=MailDefChrProc ;
  1504.     MailCtrl.fnMlWinCreate=MailDefDocProc;
  1505.     MailCtrl.MailHeaderFuncs = NoHeaderFuncs ;
  1506.     break ;
  1507. d270 1
  1508. d273 1
  1509. d280 1
  1510. d282 2
  1511. a288 1
  1512.     
  1513. d291 10
  1514. d303 15
  1515. @
  1516.  
  1517.  
  1518. 1.4
  1519. log
  1520. @smtp support
  1521. @
  1522. text
  1523. @d12 1
  1524. a12 1
  1525.  * $Id: wvmail.c 1.3 1993/04/27 21:29:23 rushing Exp rushing $
  1526. d14 3
  1527. d401 2
  1528. a402 1
  1529.     if (forward_smtp_message (DialogString, Doc))
  1530. d404 1
  1531. @
  1532.  
  1533.  
  1534. 1.3
  1535. log
  1536. @added rcs log and id magikstrings
  1537. @
  1538. text
  1539. @d12 4
  1540. a15 2
  1541.  * $Id$
  1542.  * $Log$
  1543. d17 1
  1544. d25 2
  1545. d70 10
  1546. a79 10
  1547.      hWndMailEdit = hWndMailEdits[ih] = CreateWindow ("edit", (char *) NULL,
  1548.          WS_CHILD | WS_VISIBLE | WS_HSCROLL | WS_VSCROLL | WS_BORDER
  1549.                           | ES_LEFT | ES_MULTILINE |
  1550.                          ES_AUTOHSCROLL | ES_AUTOVSCROLL
  1551.                                ,
  1552.                                0, 0, 0, 0,
  1553.                          hWnd, EDITID, hInst, NULL);
  1554.       sprintf (mesbuf, "hWndMailEdits[%d] = %5d\r\n       ", ih, hWndMailEdits[ih]);
  1555.       /*   MessageBox(hWnd,mesbuf,"Edit Window Results",MB_OK|MB_ICONASTERISK); */
  1556.       SetWindowText (hWndMailEdits[ih], mesbuf);
  1557. d82 1
  1558. a82 1
  1559.       /*   SetFocus(hWndEdits[ih]);  */
  1560. d175 1
  1561. a175 1
  1562.   int Mapi_Type ;
  1563. d188 3
  1564. a190 7
  1565. /* mrb debug */
  1566.   if (Mapi_Type == 2)
  1567.   { 
  1568.      MailCtrl.MailType = MT_POP ;
  1569.   }
  1570. /* end mrb debug */
  1571.  
  1572. d245 1
  1573. a245 1
  1574.  static BOOL (*POPHeaderFuncs[])(TypDoc * Doc, char *Buf, long int BufLen) =
  1575. d251 1
  1576. d255 1
  1577. d261 1
  1578. a261 1
  1579.     MailCtrl.fnMlSend=MailDefChrProc ;
  1580. a263 1
  1581.  
  1582. d269 1
  1583. a269 1
  1584.     MailCtrl.fnMlSend=MailDefChrProc  ;
  1585. d271 1
  1586. a271 1
  1587.     MailCtrl.MailHeaderFuncs = MAPIHeaderFuncs ;
  1588. d273 1
  1589. a273 1
  1590.      case MT_POP :
  1591. d276 2
  1592. a277 1
  1593.     MailCtrl.fnMlSend=mlPOPSend ;
  1594. d279 5
  1595. a283 4
  1596.     MailCtrl.MailHeaderFuncs = POPHeaderFuncs  ;
  1597.     break ;
  1598.      /* error handling for Fall through case 
  1599.     message box plus default to none */
  1600. a303 1
  1601.  
  1602. a306 1
  1603.  
  1604. d336 2
  1605. a337 2
  1606.   char outline[MAXOUTLINE], cmdline[MAXOUTLINE];
  1607.   char  *outptr, *cptr;
  1608. d370 3
  1609. a372 6
  1610.  mlPOPSend (hWnd ,mBuf )
  1611.     HWND hWnd;
  1612.     char *mBuf;
  1613.  {
  1614.   BOOL found;
  1615.   BOOL MailOK = FALSE, got_To = FALSE, Addressed = FALSE;
  1616. a373 3
  1617.   char outline[MAXOUTLINE], cmdline[MAXOUTLINE];
  1618.   char  *outptr, *cptr;
  1619.   int linelen;
  1620. d375 1
  1621. a375 1
  1622.     MessageBox (hWnd, "POP Send", "Debug!", MB_OK | MB_ICONHAND);
  1623. d377 1
  1624. a377 11
  1625.     Addressed=GetMailHeaderString (mBuf, "To: ", Addressee, MAXOUTLINE) ;
  1626.  
  1627.      if (!Addressed)
  1628.     {
  1629.       MessageBox (hWnd, "Fill in the \"To:\" line", "Need a recipient",
  1630.               MB_OK | MB_ICONHAND);
  1631.           return(FALSE) ; 
  1632.     }
  1633.  
  1634.                                           
  1635.   if (CommBusy)
  1636. d379 3
  1637. a381 2
  1638.       MessageBox (hWndMails[ih], "Sorry, I am already busy retrieving information from the server.\n\
  1639. Try again in a little while.", "Can't mail message right now", MB_OK | MB_ICONASTERISK);
  1640. d383 5
  1641. d389 2
  1642. a390 31
  1643.     {
  1644.       CommLinePtr = CommLineIn;
  1645.       CommBusy = TRUE;
  1646.       CommState = ST_MAIL_WAIT_PERMISSION;
  1647.       CommDoc = &(MailDocs[ih]);
  1648.  
  1649.       /* Create XMAIL command.  We need to extract the "To:" line
  1650.        * in order to find the recipient for the command.
  1651.        */
  1652.  
  1653.  
  1654.    strcpy (cmdline, "xMail ");
  1655.    outptr = Addressee ;
  1656.    for (cptr = cmdline + strlen (cmdline);
  1657.      *outptr > ' ' && cptr - cmdline < MAXOUTLINE;
  1658.      *(cptr++) = *(outptr++));
  1659.    *cptr++ = '\r' ;
  1660.    *cptr++ = '\n' ;
  1661.    *cptr = '\0';
  1662.    outptr = mBuf  ;
  1663.    for (cptr = cmdline + strlen (cmdline);
  1664.         cptr - cmdline < MAXOUTLINE;
  1665.      *(cptr++) = *(outptr++));
  1666.    *cptr = '\0';
  1667.  
  1668.   MessageBox (hWnd, cmdline, "XMail Message", MB_OK | MB_ICONHAND);
  1669. /*   This is silly ->
  1670.    Originally only put out the header
  1671.    But on my chnage only puts out a limited number of characters
  1672.    Should be line by line
  1673.               mrb */
  1674. d392 2
  1675. a393 2
  1676.    PutCommLine (cmdline, strlen (cmdline));
  1677.    MailOK = TRUE;
  1678. d395 13
  1679. a407 4
  1680.     } 
  1681.  
  1682. return(MailOK) ;
  1683.  }
  1684. @
  1685.  
  1686.  
  1687. 1.2
  1688. log
  1689. @MAPI
  1690. @
  1691. text
  1692. @d11 6
  1693. @
  1694.  
  1695.  
  1696. 1.1
  1697. log
  1698. @Initial revision
  1699. @
  1700. text
  1701. @a0 7
  1702. /*
  1703.  *
  1704.  * $Id$
  1705.  * $Log$
  1706.  *
  1707.  */
  1708.  
  1709. d7 2
  1710. a23 1
  1711.  
  1712. d28 1
  1713. d33 1
  1714. a34 1
  1715.       hWndMailEdit = hWndMailEdits[ih];
  1716. d59 1
  1717. a59 1
  1718.       hWndMailEdit = hWndMailEdits[ih] = CreateWindow ("edit", (char *) NULL,
  1719. d76 1
  1720. a76 1
  1721.       MoveWindow (hWndMailEdit, 0, 0, LOWORD (lParam),
  1722. a91 1
  1723.  
  1724. d101 1
  1725. a101 1
  1726.       StartMail (ih);
  1727. d133 2
  1728. a134 3
  1729.       hWndMails[ih] = 0;
  1730.  
  1731.       hWndMailEdits[ih] = 0;
  1732. d145 131
  1733. d285 3
  1734. a287 2
  1735. StartMail (ih)
  1736.      int ih;
  1737. d289 2
  1738. a290 3
  1739.   BOOL MailOK = FALSE, got_To = FALSE;
  1740.   char outline[MAXOUTLINE], cmdline[MAXOUTLINE];
  1741.   char *editptr, *outptr, *cptr;
  1742. d293 78
  1743. d373 12
  1744. d401 24
  1745. a424 2
  1746.       hEditBuffer = (HANDLE) SendMessage (hWndMailEdit, EM_GETHANDLE, 0, 0L);
  1747.       editptr = LocalLock (hEditBuffer);
  1748. d426 1
  1749. a426 12
  1750.       while (!got_To && *editptr)
  1751.     {
  1752.       for (linelen = 0, outptr = outline; *editptr && *editptr != '\r' &&
  1753.            linelen < MAXOUTLINE; linelen++)
  1754.         *(outptr++) = *(editptr++);
  1755.       *outptr = '\0';
  1756.       if (CompareStringNoCase (outline, "To: ", 4) == 0)
  1757.         {
  1758.           got_To = TRUE;
  1759.         }
  1760.     }
  1761.       LocalUnlock (hEditBuffer);
  1762. d428 2
  1763. a429 20
  1764.       if (!got_To)
  1765.     {
  1766.       MessageBox (hWndMails[ih], "Fill in the \"To:\" line", "Need a recipient",
  1767.               MB_OK | MB_ICONHAND);
  1768.     }
  1769.       else
  1770.     {
  1771.       outptr = outline;
  1772.       NextToken (&outptr);
  1773.       strcpy (cmdline, "xMail ");
  1774.       for (cptr = cmdline + strlen (cmdline);
  1775.            *outptr > ' ' && cptr - cmdline < MAXOUTLINE;
  1776.            *(cptr++) = *(outptr++));
  1777.       *cptr = '\0';
  1778.       PutCommLine (cmdline, strlen (cmdline));
  1779.       MailOK = TRUE;
  1780.     }
  1781.     }
  1782.   return (MailOK);
  1783. }
  1784. @
  1785.