Revision
15695
Author
sathieu
Date
2009-11-27 10:09:03 -0600 (Fri, 27 Nov 2009)

Log Message

email2pdf: management of non multipart/alternative mails

Modified Paths

Diff

Modified: freeswitch/trunk/contrib/sathieu/email2pdf/email2pdf (15694 => 15695)


--- freeswitch/trunk/contrib/sathieu/email2pdf/email2pdf	2009-11-27 15:57:54 UTC (rev 15694)
+++ freeswitch/trunk/contrib/sathieu/email2pdf/email2pdf	2009-11-27 16:09:03 UTC (rev 15695)
@@ -187,7 +187,7 @@
 sub process_header
 {
 	my $parsed = shift;
-	unshift @files, (0);
+	unshift @files, (0) if $files[0] != 0;
 	# define template variables for replacement
 	my $vars = {
 		body => '', #$parsed->body,