@@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: chris@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Email.pm,v 1.22 2008/01/14 23:28:24 matthew Exp $ +# $Id: Email.pm,v 1.23 2008/01/18 15:37:00 matthew Exp $ # package mySociety::Email::Error; @@ -305,7 +305,7 @@ sub construct_email ($) { if (ref($p->{$_}) eq '') { # Interpret as a literal string in UTF-8, so all we need to do is # escape it. - $hdr{$_} = mySociety::Email::format_mimewords($p->{$_}, 1); + $hdr{$_} = mySociety::Email::format_mimewords($p->{$_}); } elsif (ref($p->{$_}) eq 'ARRAY') { # Array of addresses or [address, name] pairs. my @a = ( ); mySociety/Email.pm b9781532381212295dfee5a8820cdefa69400830 matthew matthew http://github.com/mlandauer/perllib/commit/ed6e800bbdcacbee41ae04b0bd1c8e57fea6e9ae ed6e800bbdcacbee41ae04b0bd1c8e57fea6e9ae 2008-01-18T07:37:00-08:00 2008-01-18T07:37:00-08:00 If given just string, don't email escape as it's probably just an address. df0a234f98b433c26059115701fdc32609c48c55 matthew matthew