[mhc:01129] Re: mhc-import problem with T-gnus.

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

こんにちは、白井です。

# 現実逃避の一貫として、t-gnus で mhc を動かしてみました。:-)

From: Toshiaki -PCX- Tanaka <toc@xxxxxxxxxx> さん曰く
Subject: [mhc:01128] mhc-import problem with T-gnus.
Message-ID: <200011031557.AAA44111@xxxxxxxxxxxxxxxxx>
Date: 04 Nov 2000 00:40:40 +0900

PCX> (現象)
PCX>     Summaryバッファで C-c | したところ、元Articleが生JISのまま *mhc
PCX>     draft* バッファに挿入されるようになってしまった。このため、全角数
PCX>     字で日時を記述しているお知らせをguessできない(というか、importして
PCX>     も嬉しくない)。

PCX> ちょっと追いかけたところ、この環境では*mhc draft*は

PCX>     (mhc-edit (mime-view " *Original Article*" "*mhc draft"))

Meadow 1.13b1 上で田中さんと近い(*1)環境の t-gnus で試したところ、
同じようになりました。上記の方法だと " *Original Article*" の
body が raw-text のまま "*mhc draft*" に渡されるようです。

SEMI 関連の話は全然わからないので、とりあえず、なのですが、下記
の関数を以下の様にすると大丈夫なようです。

## mhc-mime.el です。

(defun mhc-mime-get-import-buffer (get-original)
  (let ((raw-buffer (mhc-mime-get-raw-buffer))
	mime-view-ignored-field-list)
    (with-current-buffer (get-buffer-create mhc-mime-import-buffer)
      (mime-view-buffer raw-buffer (current-buffer))
      (let (buffer-read-only)
	(when (eq mhc-mailer-package 'gnus)
	  (goto-char (point-min))
	  (when (re-search-forward
		 (concat "^" (regexp-quote mail-header-separator) "$\\|^$") nil t)
	    (forward-line)
	    (decode-coding-region (point) (point-max) 'undecided)))
	(mhc-highlight-message))
      (if get-original
	  (cons raw-buffer (current-buffer))
	(current-buffer)))))

## Wanderlust は現状のままで大丈夫だったし、汎用性は限りなくゼロ
## だと思うし、きっと間違っているような気もするので、あとは素直
## に Gnus の人の登場を待ちましょう :-)

(*1) Gnus や SEMI 関連はまじめにアップデートをしていないから、少々
 古いかもしれないのですが、メールを出したら
  
User-Agent: T-gnus/6.14.4 (based on Gnus v5.8.6) (revision 02)
SEMI/1.13.7 (Awazu) Chao/1.14.0 (Momoyama) Emacs/20.6
(i386-*-nt4.0.1381) MULE/4.1 (葵) Meadow/1.13 Beta1 (棚橋:61)

となりました。(メール出すまで細かいバージョンがわからなかった ^^;)

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)