[Mew-dist 499] Re: JIS, EUC, etc.. code in Subject field

[Mito]

※ "酒" こと ksakai at example.com さんの
   Message-Id: <19970218172605T.ksakai at example.com>
   『[Mew-dist 493] Re: JIS, EUC, etc.. code in Subject field』からの引用です。

酒> > 1. ソースを書き換えずに表示する方法はあるか

酒> ありません。

手動でも構わないなら、私は .emacs にこんなのを用意して、C-c j
で変換できるようにはしていますが...。

(defun mew-summary-convert-jis-subject ()
  (interactive)
  (let ((cwin (get-buffer-window (current-buffer)))
        (mwin (get-buffer-window (mew-buffer-message))))
    (if mwin
        (progn
          (select-window mwin)
          (unwind-protect
	      (let (beg end)
		(goto-char (point-min))
		(if (re-search-forward "^subject:")
		    (let ((buffer-read-only nil))
		      (setq beg (match-end 0))
		      (if (re-search-forward "\n")
			  (setq end (match-beginning 0)))
		      (code-convert-region beg end *autoconv*unix *internal*))))
            (select-window cwin))))))
(add-hook 'mew-summary-mode-hook 
	  (lambda ()
	    (local-set-key "\C-cj" 'mew-summary-convert-jis-subject)))
-- 
2/20 11:45頃
NECソフトウェア新潟  水戸嘉嗣
mailto:mit at example.com