File: 002_pure-html-message.patch

package info (click to toggle)
libmail-sendeasy-perl 1.2-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 164 kB
  • sloc: perl: 801; makefile: 3
file content (14 lines) | stat: -rw-r--r-- 445 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Author: Michael Mende <debian@menole.net>
Description: Fix handling of pure html mails.
--- a/lib/Mail/SendEasy.pm
+++ b/lib/Mail/SendEasy.pm
@@ -225,7 +225,8 @@ sub send {
   }
   
   if ( defined $mail{html} ) {
-    $mail{msg} =~ s/\r\n?/\n/gs ;
+    $mail{html} =~ s/\r\n?/\n/gs ;
+    if ( $mail{html} !~ /\n\n$/s) { $mail{html} =~ s/\n?$/\n\n/s ;}
     
     my %part = (
     'Content-Type' => 'text/html; charset=ISO-8859-1' ,