[Xfce4-commits] <exo:master> Make exo-compose-mail-1 case-insensitive (bug #7472).

[Nick Schermer]

Updating branch refs/heads/master
         to 21503abb471f2c0539cbe2782c079a7b7c6e2f5d (commit)
       from c2b6da97e520fec742e48a7587a20910482dc53f (commit)

commit 21503abb471f2c0539cbe2782c079a7b7c6e2f5d
Author: Nick Schermer <nick at xfce.org>
Date:   Sat Apr 16 11:39:07 2011 +0200

    Make exo-compose-mail-1 case-insensitive (bug #7472).

 exo-helper/helpers/exo-compose-mail-1 |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/exo-helper/helpers/exo-compose-mail-1 b/exo-helper/helpers/exo-compose-mail-1
index 3cc502e..5e7564f 100755
--- a/exo-helper/helpers/exo-compose-mail-1
+++ b/exo-helper/helpers/exo-compose-mail-1
@@ -47,19 +47,19 @@ my @attachments = ();
 # parse the mailto:-address
 my @headers = $mailtoUrl->headers();
 for (my $n = 0; $n < $#headers; $n += 2) {
-	if ($headers[$n] eq 'to') {
+	if ($headers[$n] =~ /^to$/i) {
 		push (@to, $headers[$n + 1]);
 	}
-	elsif ($headers[$n] eq 'cc') {
+	elsif ($headers[$n] =~ /^cc$/i ) {
 		push (@cc, $headers[$n + 1]);
 	}
-	elsif ($headers[$n] eq 'subject') {
+	elsif ($headers[$n] =~ /^subject$/i ) {
 		$subject = $headers[$n + 1];
 	}
-	elsif ($headers[$n] eq 'body') {
+	elsif ($headers[$n] =~ /^body$/i ) {
 		$body = $headers[$n + 1];
 	}
-	elsif ($headers[$n] eq 'attach') {
+	elsif ($headers[$n] =~ /^attach$/i ) {
 		# be sure to add as file:-URI
 		my $f = $headers[$n + 1];
 		push(@attachments, ($f =~ m/^file:\//) ? URI->new($f) : URI::file->new_abs($f));