MANIFEST                   |  1 +
 lib/PublicInbox/MsgIter.pm |  3 ++-
 t/iso-2202-jp.mbox         | 10 ++++++++++
 t/msg_iter.t               | 18 ++++++++++++++++++

diff --git a/MANIFEST b/MANIFEST
index d1b6749a42f4e7adf8a1605ce98619de408507b5..dfabd7f20385545faf2bf4f6b4eb6ca9a35dc9af 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -231,6 +231,7 @@ t/inbox.t
 t/indexlevels-mirror-v1.t
 t/indexlevels-mirror.t
 t/init.t
+t/iso-2202-jp.mbox
 t/linkify.t
 t/main-bin/spamc
 t/mda.t
diff --git a/lib/PublicInbox/MsgIter.pm b/lib/PublicInbox/MsgIter.pm
index ce08ff846ee95dd281bdb3f3aee6312e665cde8e..f11ba223c93362a985285555e4113feab87684f1 100644
--- a/lib/PublicInbox/MsgIter.pm
+++ b/lib/PublicInbox/MsgIter.pm
@@ -45,7 +45,8 @@ 	# text/plain is the default, multipart/mixed happened a few
 	# times when it should not have been:
 	#   <87llgalspt.fsf@free.fr>
 	#   <200308111450.h7BEoOu20077@mail.osdl.org>
-	if ($ct =~ m!\btext/plain\b!i || $ct =~ m!\bmultipart/mixed\b!i) {
+	if ($err && ($ct =~ m!\btext/plain\b!i ||
+			$ct =~ m!\bmultipart/mixed\b!i)) {
 		# Try to assume UTF-8 because Alpine seems to
 		# do wacky things and set charset=X-UNKNOWN
 		$part->charset_set('UTF-8');
diff --git a/t/iso-2202-jp.mbox b/t/iso-2202-jp.mbox
new file mode 100644
index 0000000000000000000000000000000000000000..1a8e19740f9106c767077b2c82085f66dcd5e271
--- /dev/null
+++ b/t/iso-2202-jp.mbox
@@ -0,0 +1,10 @@
+From historical@ruby-dev Thu Jan  1 00:00:00 1970
+Message-Id: <199707281508.AAA24167@hoyogw.example>
+Date: Tue, 29 Jul 97 00:08:29 +0900
+From: matz@example.com
+Subject: [ruby-dev:4]
+To: ruby-dev@example
+Mime-Version: 1.0
+Content-Type: text/plain; charset=ISO-2022-JP
+
+|けいじゅ＠今はフリー(^^;;;です.
diff --git a/t/msg_iter.t b/t/msg_iter.t
index f6fd3bb025c9d5d247b4500527458b1386136286..f9b586f183d96f7cc54ee605d418ee0788c705b0 100644
--- a/t/msg_iter.t
+++ b/t/msg_iter.t
@@ -40,5 +40,23 @@ 	is_deeply(\@parts, [ [qw(a 2 1 1)], [qw(b 2 1 2)], [qw(sig 1 2)] ],
 		'nested part shows up properly');
 }
 
+{
+	my $f = 't/iso-2202-jp.mbox';
+	my $mime = Email::MIME->new(do {
+		open my $fh, '<', $f or die "open($f): $!";
+		local $/;
+		<$fh>;
+	});
+	my $raw = '';
+	msg_iter($mime, sub {
+		my ($part, $level, @ex) = @{$_[0]};
+		my ($s, $err) = msg_part_text($part, 'text/plain');
+		ok(!$err, 'no error');
+		$raw .= $s;
+	});
+	ok(length($raw) > 0, 'got non-empty message');
+	is(index($raw, '$$$'), -1, 'no unescaped $$$');
+}
+
 done_testing();
 1;