[interchange-cvs] interchange - jon modified code/UserTag/email.tag

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Wed Sep 28 18:07:24 EDT 2005


User:      jon
Date:      2005-09-28 22:07:24 GMT
Modified:  code/UserTag email.tag
Log:
Move check for MIME::Lite to earliest sensible place.

Revision  Changes    Path
1.9       +6 -5      interchange/code/UserTag/email.tag


rev 1.9, prev_rev 1.8
Index: email.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/email.tag,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -u -r1.8 -r1.9
--- email.tag	26 Sep 2005 19:36:59 -0000	1.8
+++ email.tag	28 Sep 2005 22:07:24 -0000	1.9
@@ -1,6 +1,6 @@
 # Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: email.tag,v 1.8 2005/09/26 19:36:59 jon Exp $
+# $Id: email.tag,v 1.9 2005/09/28 22:07:24 jon Exp $
 
 UserTag email Order to subject reply from extra
 UserTag email hasEndTag
@@ -52,6 +52,11 @@
 #::logDebug("Checking for attachment");
 		last ATTACH unless $opt->{attach} || $opt->{html};
 
+		unless ($Have_mime_lite) {
+			::logError("email tag: attachment without MIME::Lite installed.");
+			last ATTACH;
+		}
+
 		my $att1_format;
 		if($opt->{html}) {
 			$opt->{mimetype} ||= 'multipart/alternative';
@@ -61,10 +66,6 @@
 			$opt->{mimetype} ||= 'multipart/mixed';
 		}
 
-		if(! $Have_mime_lite) {
-			::logError("email tag: attachment without MIME::Lite installed.");
-			last ATTACH;
-		}
 		my $att = $opt->{attach};
 		my @attach;
 		my @extra_headers;








More information about the interchange-cvs mailing list