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

[Osamu Ishibashi]

From: SUGITA Toshinori <sugita at example.com>
Subject: [Mew-dist 06785] Re: Decode of From Line
Date: Sat, 24 Oct 1998 14:31:25 +0900

> 杉田＠彩京です。
> 
> From: Osamu Ishibashi <isibasi at example.com>
> Subject: [Mew-dist 06783] Re: Decode of From Line
> Date: Sat, 24 Oct 1998 01:24:11 +0900
> 
> > 私も生JIS Subject と quoted MIME 漢字名に悩まされていたので、
> > mew-message-decode-header.el を頂いて試してみようと思うのですが...
> > 
> > mew-message-decode-header.el と mew-message-decode-header.elc
> > を /usr/local/lib/xemacs/site-lisp に置き、また ~/.emacs に
> > (add-hook 'mew-message-hook 'mew-message-decode-header)
> > の１行を足しました。
> > 
> > しかしメッセージを選んで space を押して読もうとすると、
> > Symbol's function definition is void: mew-message-decode-header
> > とエラー・メッセージが出ます。ヘッダは直りません。
> 
> load("mew-message-decode-header")
> が足りないだけではないですか？
> 
> ファイルをわけたのなら、実行前に読み込んでおいてやらないといけない気がす
> るのですが。
> 
> ＃実際に同じようにしてテストしたわけじゃないので、違ってたらごめんなさい。
> 
>  >>>>>>>>>>>>>>> SUGITA, Toshinori <<<<<<<<<<<<<<<<
>  >>>>>>>>>>>>>>>     杉田 敏典     <<<<<<<<<<<<<<<<
>  E-Mail : sugita at example.com          --- official
>           sugita at example.com        --- private
>           sugita at example.com --- PostPet
>  ICQ UID: 3625300 (Bin - Toshinori Sugita)
> 

仰る通りで、(load "mew-message-decode-header") とするとコードを読み込んで
くれるようでした。しかし今度は
Symbol's function definition is void: detect-mime-charset-region
というエラーになってしまいます。

因みに mew-message-decode-header.el は下記の通り；
--------------------------------------------------------------------
;; -*- 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
--------------------------------------------------------------------
他に未だコードが足りないような... Emacs lisp を知らないのです。御免なさい。
---
石橋  修
〒933-0856 富山県高岡市鐘紡町１−１２  ライブタウン高岡７０５
電話 (0766)22-7160        FAX  (0766)22-7262