From 6734cc2dd233d210320984f3343224b694227c19 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Thu, 26 Feb 2004 12:59:52 +0000
Subject: handle X-Accept-Language:

---
 fml/lib/Mail/Message/Language.pm | 7 ++++---
 1 file 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;
-- 
cgit v1.2.1