[Husky-cvs] hpt/src toss.c,1.550,1.551

[Stas D. <sta...@us...>]

Update of /cvsroot/husky/hpt/src
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv14279/src

Modified Files:
	toss.c 
Log Message:
Revert buggy patch r1.547

Index: toss.c
===================================================================
RCS file: /cvsroot/husky/hpt/src/toss.c,v
retrieving revision 1.550
retrieving revision 1.551
diff -u -d -r1.550 -r1.551
--- toss.c	28 Nov 2006 08:58:46 -0000	1.550
+++ toss.c	20 Dec 2006 12:59:47 -0000	1.551
@@ -124,6 +124,10 @@
 #define NOSLASHES
 #endif
 
+#ifdef DO_PERL
+extern int perl_setattr; /* perl.c */
+#endif
+
 
 extern s_message **msgToSysop;
 int save_err;
@@ -1045,9 +1049,10 @@
 	    }
 
 	    msgHeader = createXMSG(config,msg, pktHeader, forceattr,tossDir);
-            /* val: this is temp-fix !!! */
-            /* dmitry: ...which set incorrect flags! */
-/*            msgHeader.attr = msg->attributes; */
+#ifdef DO_PERL
+            /* val: force attrs set by perlfilter() hook */
+            if (perl_setattr) msgHeader.attr = msg->attributes;
+#endif
 	    /* Create CtrlBuf for SMAPI */
             len = msg->textLength;
 	    ctrlBuf = (char *) CopyToControlBuf((UCHAR *) msg->text, (UCHAR **)&bodyStart, &len);