home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / vmsnet / mail / mx / 1212 < prev    next >
Encoding:
Internet Message Format  |  1992-12-29  |  3.1 KB
  1. Path: sparky!uunet!thehulk!munroe
  2. From: munroe@dmc.com (Dick Munroe)
  3. Newsgroups: vmsnet.mail.mx
  4. Subject: Re: Something is stripping blanks....
  5. Message-ID: <1992Dec29.135018.1107@dmc.com>
  6. Date: 29 Dec 92 13:50:18 EST
  7. References: <1992Dec24.082048.1098@dmc.com>
  8. Organization: Doyle, Munroe Consultants, Inc., Hudson, MA
  9. Lines: 91
  10.  
  11. In article <1992Dec24.082048.1098@dmc.com>, munroe@dmc.com (Dick Munroe) writes:
  12. > I've performed a series of experiments and something is
  13. > stripping blanks from mail messages:
  14.  
  15. Well, it was indeed MX, as Earle pointed out.  Specifically it appears to be
  16. MX_RMAIL.  The fix was pretty easy and for those of you with sources the DIFF
  17. to MX_RMAIL.B32 is enclosed.  I've mailed this to Hunter for inclusion in the
  18. next release of MX.
  19.  
  20. Merry Holidays all.
  21.  
  22. Dick Munroe
  23. --------------------------------------------------------------------------------
  24. *** mx_rmail.b32.1
  25. --- mx_rmail.b32
  26. **************
  27. *** 1,5
  28.   %TITLE 'MX_RMAIL'
  29. ! MODULE MX_RMAIL (IDENT='V1.4-1', MAIN=MX_RMAIL) =
  30.   BEGIN
  31.   !++
  32.   ! FACILITY:         MX UUCP interface
  33. --- 1,5 -----
  34.   %TITLE 'MX_RMAIL'
  35. ! MODULE MX_RMAIL (IDENT='V1.5', MAIN=MX_RMAIL) =
  36.   BEGIN
  37.   !++
  38.   ! FACILITY:         MX UUCP interface
  39. **************
  40. *** 34,39
  41.   !   20-MAY-1991    V1.3-1    Madison        Check for 822-type address in From_ header.
  42.   !   04-NOV-1991    V1.4    Madison        Use new RCPTDEF structure.
  43.   !   15-NOV-1991    V1.4-1    Madison        MEM RCPT rtns.
  44.   !--
  45.   
  46.       LIBRARY 'SYS$LIBRARY:STARLET';
  47. --- 34,41 -----
  48.   !   20-MAY-1991    V1.3-1    Madison        Check for 822-type address in From_ header.
  49.   !   04-NOV-1991    V1.4    Madison        Use new RCPTDEF structure.
  50.   !   15-NOV-1991    V1.4-1    Madison        MEM RCPT rtns.
  51. + !   27-Dec-1992 V1.5    Munroe        Do NOT trim blanks from the message when it
  52. + !                    is put into the message queue!!!
  53.   !--
  54.   
  55.       LIBRARY 'SYS$LIBRARY:STARLET';
  56. **************
  57. *** 373,378
  58.       ELSE
  59.           STR$COPY_DX (SENDER, %ASCID'<>');
  60.   
  61.       FLQ_ADD (.QAB, NEWENT);
  62.   
  63.       WRITE_INFO (.QAB, NEWENT, %ASCID'SRC_INFO', SENDER, INFOQ,
  64. --- 375,384 -----
  65.       ELSE
  66.           STR$COPY_DX (SENDER, %ASCID'<>');
  67.   
  68. +     !++
  69. +     ! Add the UUCP message to the router queue.
  70. +     !--
  71. +     
  72.       FLQ_ADD (.QAB, NEWENT);
  73.   
  74.       WRITE_INFO (.QAB, NEWENT, %ASCID'SRC_INFO', SENDER, INFOQ,
  75. **************
  76. *** 390,398
  77.       END;
  78.       WHILE MDM_READF (.UNIT, STR2) DO
  79.       BEGIN
  80. !         STR$TRIM (STR, STR2);
  81. !         MDM_WRITEF (.UNIT2, STR);
  82. !         NEWENT [QENT_L_SIZE] = .NEWENT [QENT_L_SIZE] + .STR [DSC$W_LENGTH];
  83.       END;
  84.       MDM_CLOSEF (.UNIT);
  85.       MDM_CLOSEF (.UNIT2);
  86. --- 396,403 -----
  87.       END;
  88.       WHILE MDM_READF (.UNIT, STR2) DO
  89.       BEGIN
  90. !         MDM_WRITEF (.UNIT2, STR2);
  91. !         NEWENT [QENT_L_SIZE] = .NEWENT [QENT_L_SIZE] + .STR2 [DSC$W_LENGTH];
  92.       END;
  93.       MDM_CLOSEF (.UNIT);
  94.       MDM_CLOSEF (.UNIT2);
  95. --------------------------------------------------------------------------------
  96. Dick Munroe                Internet: munroe@dmc.com
  97. Doyle Munroe Consultants, Inc.        UUCP: ...uunet!thehulk!munroe
  98. 267 Cox St.                Office: (508) 568-1618
  99. Hudson, Ma.                FAX: (508) 562-1133
  100.  
  101. GET CONNECTED!!! Send mail to info@dmc.com to find out about DMConnection.
  102.