[mhc:01204] Re: [cmail 9675] mhc on cmail

[matz@xxxxxxxxxxxx (Yukihiro Matsumoto)]

こんにちは
In message "[cmail 9675] mhc on cmail"
    on 01/01/22, Takeshi Morishima <qa3507@xxxxxxxxxxxxx> writes:

|mhc を cmail で使いはじめました。一応 mhc-cmail.el を使って動いてはい
|るのですが、C-c . | がエラーになるとかサマリモードでの cmail native
|command の動作が予期しない結果になるなど (例えば "d" コマンドなど)、パッ
|チ入れた方がいいようなところがいろいろあるようです。現在 cmail で mhc 
|を使っている方いらしゃいますでしょうか。すでにパッチなどがあれば使って
|みたいのですが。("C-c . |" 動きます?)

こんなパッチを当ててます。

diff -u -1 -r1.9 mhc-cmail.el
--- mhc-cmail.el	2000/08/07 09:26:28	1.9
+++ mhc-cmail.el	2001/01/22 07:27:38
@@ -92,2 +92,12 @@
 
+(defun mhc-cmail-mime-get-mime-structure ()
+  (let ((page (cmail-get-page-number-from-summary)) beg end)
+    (save-excursion
+      (cmail-get-folder)
+      (cmail-n-page page)
+      (setq beg (point))
+      (setq end (cmail-page-max))
+      (narrow-to-region beg end)
+      (get-text-property (point) 'mime-view-entity))))
+
 (defun mhc-cmail/date-to-buffer (date)
@@ -287,2 +297,3 @@
       (put 'mhc-cmail 'mime-get-raw-buffer 'mhc-cmail-mime-get-raw-buffer)
+      (put 'mhc-cmail 'mime-get-mime-structure 'mhc-cmail-mime-get-mime-structure)
       (put 'mhc-cmail 'draft-setup-new     'mhc-mime-draft-setup-new)