shimbun-retrieve-url で shift-jis-mac な page の decode ができない

[NAKAJIMA Mikio <minakaji@xxxxxxxxxxxxxxxxx>]

  ちと難しそうなので、報告だけですが、shift-jis-mac な page を
shimbun-retrieve-url で decode しようとして

(let ((w3m-coding-system-priority-list
       (cons 'japanese-shift-jis-mac
	     w3m-coding-system-priority-list)))
  (with-current-buffer (get-buffer-create "*test*")
    (erase-buffer)
    (shimbun-retrieve-url "http://www.palmfan.com")))

としてみたのですが、この page のヘッダーに

  <META http-equiv="Content-Type" content="text/html;CHARSET=Shift_JIS">

と書いてあるので、priority をいくら設定していても無視されてしまいます。

(with-current-buffer (get-buffer-create "*test*")
  (erase-buffer)
  (shimbun-retrieve-url "http://www.palmfan.com" 'no-cache 'no-decode)
  (decode-coding-region
   (point-min) (point-max) 'japanese-shift-jis-mac)
  (set-buffer-multibyte t))

と書けば勿論ちゃんと decode されますが、こうやって書いた shimbun
backend は coding-system の汎用性がないし...。
-- 
中島幹夫 <minakaji@osaka.email.ne.jp>
http://www.asahi-net.or.jp/~gy2m-nkjm/