[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