diff options
| author | fukachan <fukachan> | 2004-02-26 12:59:52 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-02-26 12:59:52 +0000 |
| commit | 6734cc2dd233d210320984f3343224b694227c19 (patch) | |
| tree | c494ac30d8ff6a791fcdb095d19f04b037b2f4ec /fml/lib/Mail/Message | |
| parent | 3a3032cc203e8372f691c89999304c281aee3a69 (diff) | |
| download | fml8-6734cc2dd233d210320984f3343224b694227c19.tar.gz fml8-6734cc2dd233d210320984f3343224b694227c19.tar.bz2 fml8-6734cc2dd233d210320984f3343224b694227c19.zip | |
handle X-Accept-Language:
Diffstat (limited to 'fml/lib/Mail/Message')
| -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; |