[Mew-dist 04945] Re: encoded-word within quoted-string

[Shun-ichi GOTO]

後藤＠太陽計測です

>>>>> From: Takeshi Itoh <titou at example.com>
> > それで、""で囲まれてるメールがかなりの割合で来るので、強制的に decode
> > するような変数があれば教えて下さい。
> 
> 私は [Mew-dist 04732] の Mito さんのパッチを逆当てして使ってます。
> ゴメンナサイ。

Mewにパッチを当てるのもナンなので、以下のようなhookでどうでしょうか。
弊害の可能性もあるでしょうが、用は足りてます。

(add-hook 'mew-message-hook
	  '(lambda ()
	     (save-excursion
	       (save-restriction
		 (widen)
		 (goto-char 1)
		 (re-search-forward "^$" nil t)
		 (narrow-to-region 1 (point))
		 (goto-char 1)
		 (while (re-search-forward mew-header-decode-regex nil t)
		   (replace-match (save-match-data
				    (mew-header-decode (mew-match 1)
						       (mew-match 2)
						       (mew-match 3)))
				  nil t))
		 ))))


--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN