[Mew-dist 06860] Re: Decode of From Line

[Osamu Ishibashi]

From: Osamu Ishibashi <isibasi at example.com>
Subject: [Mew-dist 06791] Re: Decode of From Line
Date: Sun, 25 Oct 1998 21:41:11 +0900

> From: Shun-ichi GOTO <gotoh at example.com>
> Subject: [Mew-dist 06789] Re: Decode of From Line
> Date: Sun, 25 Oct 1998 06:40:23 +0900
> 
> > 後藤＠太陽計測です
> > ...
> > .emacsに次の１行も足してください。
> > (autoload 'mew-message-decode-header "mew-message-decode-header")
> > 
> > ＃コメントがちょっと不親切だったようです。(..)>
> > 
> > --- Regards,
> >  Shun-ichi Goto  <gotoh at example.com>
> >    R&D Group, TAIYO Corp., Tokyo, JAPAN
> > 
> > 
> 
> いえいえ、lisp も知らずに Emacs を使おうとしている私が悪いのです。
> 
> 北口＠奈良先端大さんに御教示頂いたように (Mew-dist 06787)、さらに apel
> (ftp://ftp.jaist.ac.jp/pub/GNU/elisp/apel/) のインストールが必要で、
> 結局 .emacs に追加するのは
> 
> (autoload 'mew-message-decode-header "mew-message-decode-header")
> (autoload 'detect-mime-charset-region "mcs-xm")
> (autoload 'charsets-to-mime-charset "mcharset")
> (add-hook 'mew-message-hook 'mew-message-decode-header)
> 
> の４行となりました。上記は Xemacs の例です、念のため。
> ...

上記の様に、後藤さん、北口さんらに御教示頂き、XEmacs/Mew 上で
http://www.imasy.or.jp/~gotoh/lisp/mew-message-decode-header.el
で 生JIS、"漢字"を強制デコード出来るようになったのですが、今度
Emacs 19.34.1/Mule 2.3/Mew 1.93 でやろうとしたらうまくいきません
Coding-system error となってしまいます。apel は 9.5 です。lisp
が分かっていないもので自分で解決することが出来ません。

Emacs/Mule/Mew の場合、どのバージョンの apel のどのモジュールを
使用されているか、御教授お願い申し上げます。

Emacs/Mule に戻そうとしているのは、XEmacs にすると行間のスペース
が無くて特に日本語フォントでは行がくっついてしまって大変読み難い
からです。XEmacs には inter-line-space とかいう変数が予約されて
いるようですが、機能は実装されていないようです。
---
石橋  修
〒933-0856 富山県高岡市鐘紡町１−１２  ライブタウン高岡７０５
電話 (0766)22-7160        FAX  (0766)22-7262
-------------- next part --------------
;; -*- Emacs-Lisp -*-
;;
;; mew-message-decode-header.el -- no desc
;; $Revision: 1.3 $
;;
;; Author: Shun-ichi GOTO <gotoh at example.com>
;; Create: Sat May 30 06:10:14 1998

;; Commentary:
;;
;; use with...
;; (add-hook 'mew-message-hook 'mew-message-decode-header)
;;

;; Code:

(defun mew-message-decode-header ()
  "
Use with mew-message-hook"
  (save-excursion
    (save-restriction
      (widen)
      (goto-char 1)
      ;; XXX, to be check message/rfc-822
      (when (re-search-forward "^$" nil t)
	(narrow-to-region 1 (match-beginning 0))
	(goto-char (point-min))
	;; decode raw JIS string
	(while (< (point) (point-max))
	  (if (eq (detect-mime-charset-region
		   (point)
		   (save-excursion (end-of-line) (point)))
		  'us-ascii)
	      (decode-coding-region (point) 
				    (save-excursion
				      (end-of-line)
				      (point))
				    'undecided))
	  (forward-line 1))
	;; decode quoted MIME encoding
	(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))
	;; re-highlight
	(mew-highlight-header)
	))))


;; mew-message-decode-header.el ends here