diff options
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/Mail/Message/Language.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/fml/lib/Mail/Message/Language.pm b/fml/lib/Mail/Message/Language.pm index 1056b694..2982a11a 100644 --- a/fml/lib/Mail/Message/Language.pm +++ b/fml/lib/Mail/Message/Language.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2003 Ken'ichi Fukamachi # -# $FML$ +# $FML: Language.pm,v 1.1 2003/10/15 09:09:14 fukachan Exp $ # package Mail::Message::Language; @@ -32,11 +32,12 @@ sub accept_language_list { my ($self) = @_; my $header = $self->whole_message_header(); - my $buf = $header->get('Accept-Language'); + my $buf1 = $header->get('Accept-Language') || ''; + my $buf2 = $header->get('X-Accept-Language') || ''; my $list = []; LANG: - for my $s (split(/\s*,\s*/, $buf)) { + for my $s (split(/\s*,\s*/, "$buf1 $buf2")) { if ($s =~ /^\s*ja/oi) { push(@$list, 'ja'); last LANG; |