[Mew-Win32 01514] Re: non ISO-2022-JP (Re: fiber, movemail on meadow1.04a1)

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Makoto Okada <m1-okada at example.com> さん曰く
Subject: [Mew-Win32 01512] Re: non ISO-2022-JP (Re: fiber, movemail on meadow1.04a1)
Message-ID: <19990621154006H.m1-okada at example.com>
Date: Mon, 21 Jun 1999 15:40:06 +0900 (JST)

岡田> 私は、
岡田> > 1. "~' と "~"、"\" と "\" の見分けがつく方法。
岡田> > 2. latin-jisx0201 の入力方法。
岡田> > 5. UTF-8 の読み方。
岡田> 
岡田> これは、特に困っていません。

# 岡田さんは *ふつ〜〜の人* ですね。:-)

岡田> > 3. JIS 未定義文字を "〓文字" にする方法。
岡田> 
岡田> これは、良いですね。
岡田> BDFフォントを使っているのですが、なぜか○の中に１が入った文字等を
岡田> Mailの本文中に使われると、その行のそれ以降の文字が読めなくなってし
岡田> まってます。
岡田> だから、これは良いですね。

その文字以降で C-f でもすれば残りも読めますよ。

岡田> > 4. JIS 未定義文字を読める文字にする方法。
岡田> >   (とっても遅いし、いい加減な方法なので出来たら聞いて欲しくないけど)

岡田> いまは、印刷して、内容を確認しています。
岡田> それと比べても、画面で読めるだけうれしいです。

まず、たむらけんとさんがお作りになられた、"jischeck.el" を
http://www.hauN.org/kent/elisp/#JISCHECK からどうぞ。

jiskcheck.el に書いてある hook って何故か古いので、
(add-hook 'mew-message-hook 'jischeck-convert-body)
がいいと思います。未確認ですが。

# 私が間違えたかもしれない ^^;;

これで、jischeck-convert-body-lines で設定したライン数分内の文字
を自動的に "〓" にします。


次に "C-cC-j" で置き換える方ですが、いろいろそれ以外のものも入っ
ているのですが、はずすと enbug しそうなのでそのまま送っちゃいま
すが(後藤さんのコードも入っているし)、

# 私は (setq mew-decode-quoted nil) なのです。

(add-hook
 'mew-summary-mode-hook
 '(lambda ()
    (define-key mew-summary-mode-map "\C-c\C-j" 'mew-summary-convert-ikenai)))

(defun mew-summary-convert-ikenai (&optional arg)
  (interactive "P")
  (mew-summary-msg-or-part
   (let ((jischeck-convert-body-line 0))
     (mew-summary-display 'force))
   (save-excursion
     (save-excursion
       (let ((cwin (get-buffer-window (current-buffer)))
	     (mbuf (get-buffer (mew-buffer-message))))
	 (if (not mbuf)
	     ()
	   (set-buffer mbuf)
	   (save-excursion
	     (save-restriction
	       (widen)
	       (let ((buffer-read-only nil))
		 (goto-char (point-min))
		 (goto-char (mew-header-end))
		 (narrow-to-region 1 (point))
		 (goto-char (point-min))
		 ;; decode raw JIS string
		 (while (< (point) (point-max))
		   (if (equal (mew-find-cs-region
			       (point)
			       (save-excursion (end-of-line) (point)))
			      (list mew-lc-ascii))
		       (mew-cs-decode-region (point)
					     (save-excursion
					       (end-of-line)
					       (point))
					     mew-cs-scan))
		   (forward-line 1))
		 (goto-char (point-min))
		 (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))
		 (mew-highlight-header)
		 (widen)
		 (if (not (functionp 'ikenai-buffer))
		     ()
		   (message "Now GETA->IKENAI conv.")
		   (ikenai-buffer))
		 (mew-highlight-url)
		 (if (locate-library "mew-cite-color")
		     (mew-cite-color))
		 )))
	   (select-window cwin)))
       (message "Mew [force header decode] & [JIS subject show] & [JIS check] done.")))))


ikenai-buffer は、附属の gzip したものからどうぞ。

# 昔、himi さんにこれじゃ遅くてどうしようもないでしょう、と言わ
# れたものをず〜〜と懲りずに使っています。

-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: ikenai.el.gz
型:         application/octet-stream
サイズ:     1337 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-win32/attachments/19990621/2862e361/attachment.obj>