[Gnucash-changes] r11952 - meta/hooks - Fix UTF8 in the header of commit emails.

[Derek Atkins]

Author: warlord
Date: 2005-11-15 19:10:32 -0500 (Tue, 15 Nov 2005)
New Revision: 11952
Trac: http://svn.gnucash.org/trac/changeset/11952

Modified:
   meta/hooks/commit-email.pl
Log:
Fix UTF8 in the header of commit emails.


Modified: meta/hooks/commit-email.pl
===================================================================
--- meta/hooks/commit-email.pl	2005-11-15 23:19:38 UTC (rev 11951)
+++ meta/hooks/commit-email.pl	2005-11-16 00:10:32 UTC (rev 11952)
@@ -36,6 +36,7 @@
 						
 use strict;
 use Carp;
+use MIME::QuotedPrint;
 
 ######################################################################
 # Configuration section.
@@ -457,6 +458,9 @@
     my @head;
     push(@head, "To: $to\n");
     push(@head, "From: $mail_from\n");
+    unless ($subject =~ m/^[[:ascii:]]*$/) {
+	$subject = "=?utf-8?Q?" . encode_qp($subject, "");
+    }
     push(@head, "Subject: $subject\n");
     push(@head, "Reply-to: $reply_to\n") if $reply_to;