Package: libexo-0.3-0 Version: 0.3.106-1 Severity: normal
exo-compose-mail-0.3 ignores the subject and body in the following URL because they are capitalized: mailto:mutt-announce-requ...@mutt.org?subject=subscribe%20mutt%20announce&Body=subscribe The attached patch makes the URL parser case-insensitive. -- System Information: Debian Release: squeeze/sid APT prefers testing APT policy: (500, 'testing') Architecture: amd64 (x86_64) Kernel: Linux 2.6.32-3-amd64 (SMP w/2 CPU cores) Locale: LANG=en_CA.utf8, LC_CTYPE=en_CA.utf8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/dash Versions of packages libexo-0.3-0 depends on: ii libatk1.0-0 1.28.0-1 The ATK accessibility toolkit ii libc6 2.10.2-6 Embedded GNU C Library: Shared lib ii libcairo2 1.8.10-3 The Cairo 2D vector graphics libra ii libdbus-1-3 1.2.20-2 simple interprocess messaging syst ii libexo-common 0.3.106-1 libexo common files ii libfontconfig1 2.8.0-2 generic font configuration library ii libfreetype6 2.3.11-1 FreeType 2 font engine, shared lib ii libglib2.0-0 2.22.4-1 The GLib library of C routines ii libgtk2.0-0 2.18.9-2 The GTK+ graphical user interface ii libhal-storage1 0.5.14-2 Hardware Abstraction Layer - share ii libhal1 0.5.14-2 Hardware Abstraction Layer - share ii libnotify1 [libnotify1- 0.4.5-1 sends desktop notifications to a n ii libpango1.0-0 1.26.2-2 Layout and rendering of internatio ii liburi-perl 1.52-1 module to manipulate and access UR ii libxfce4util4 4.6.1-2 Utility functions library for Xfce ii zlib1g 1:1.2.3.4.dfsg-3 compression library - runtime libexo-0.3-0 recommends no packages. libexo-0.3-0 suggests no packages. -- no debconf information
--- /usr/lib/libexo-0.3-0/exo-compose-mail-0.3 2009-12-12 08:09:37.000000000 -0700 +++ exo-compose-mail-0.3 2010-03-25 11:59:16.000000000 -0600 @@ -42,33 +42,33 @@ # mailto:-components my @to = (); my @cc = (); my $subject = undef; my $body = undef; 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)); } } # start with only the binary name my @argv = ($binary); # add style-specific parameters