summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAlexander Zangerl <az@snafu.priv.at>2009-10-20 06:43:04 +0000
committerAlexander Zangerl <az@snafu.priv.at>2009-10-20 06:43:04 +0000
commit0004d295b4258d032ba85e05c4eba8b174576349 (patch)
tree288119fe7d6484d12c1e8a4a11e647bd345b8c03
parentc4973961d88666a20f8a98208e19bef295aa5d70 (diff)
downloadkuvert-0004d295b4258d032ba85e05c4eba8b174576349.tar.gz
kuvert-0004d295b4258d032ba85e05c4eba8b174576349.tar.bz2
kuvert-0004d295b4258d032ba85e05c4eba8b174576349.zip
fixed stupid case-sensitivity bug: keys are downcased but addresses were not...
-rwxr-xr-xkuvert4
1 files changed, 2 insertions, 2 deletions
diff --git a/kuvert b/kuvert
index f158b40..151e4fd 100755
--- a/kuvert
+++ b/kuvert
@@ -19,7 +19,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
-# $Id: kuvert,v 2.22 2008/06/29 12:31:01 az Exp az $
+# $Id: kuvert,v 2.23 2008/08/31 06:39:26 az Exp az $
#--
use strict;
@@ -650,7 +650,7 @@ sub extract_addresses
for my $a (Mail::Address->parse(@lines))
{
- my ($addr,$comment,$phrase)=($a->address,$a->comment,$a->phrase);
+ my ($addr,$comment,$phrase)=(lc($a->address),$a->comment,$a->phrase);
# some name "directive,directive..." <an@addre.ss>
if ($phrase=~s/\s*\"([^\"]+)\"\s*//)
{