Updating branch refs/heads/xfce-4.8
to 07261b8e3c72040ecad383a78645cc3d0384a026 (commit)
from 82db87966aac072ab5516fbc025a33c994c487f4 (commit)
commit 07261b8e3c72040ecad383a78645cc3d0384a026
Author: Nick Schermer <n...@xfce.org>
Date: Sat Apr 16 11:39:07 2011 +0200
Make exo-compose-mail-1 case-insensitive (bug #7472).
(cherry picked from commit 21503abb471f2c0539cbe2782c079a7b7c6e2f5d)
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));
_______________________________________________
Xfce4-commits mailing list
Xfce4-commits@xfce.org
http://foo-projects.org/mailman/listinfo/xfce4-commits
