[mhc:00900] Re: cmail

[matz@xxxxxxxxxxxx (Yukihiro Matsumoto)]

まつもと ゆきひろです

In message "[mhc:00898] Re: cmail"
    on 00/08/02, Yuuichi Teranishi <teranisi@xxxxxxxxxxxxx> writes:

|> 動くようです。ただし、なぜかbitmap.elの
|> bitmap-read-xbm-buffer で、search failed "width " が出てしま
|> うので、(setq mhc-use-icon nil) が必要でした。
|
|うーむ、これはわからないです。
|;; xbm ファイルが壊れてる？

これが同じことを手でやるとちゃんと動くんですよねえ。
もうちょっと調べてみます。

|> mhc-cmail-mime-get-raw-buffer については考えてみます。
|> なにを返せば良いのかな。
|
|カレントメッセージの生バッファです。
|cmail だと、現在のメッセージが narrowing されたフォルダバッファを返す
|とよいのかな？

こんなパッチで動いているようです。

--- mhc-cmail.el	2000/08/02 05:43:55	1.4
+++ mhc-cmail.el	2000/08/02 08:34:24
@@ -60,10 +60,10 @@
   "Display the article on the current."
-  (cmail-read-contents))
+  (cmail-read-contents (cmail-get-page-number-from-summary)))
 
-(defun mhc-cmail-get-import-buffer (get-original)
-  ;; (if get-original (cmail-summary-display-asis)) ;; xxx
-  (save-excursion
-    (cmail-show-contents (cmail-get-page-number-from-summary))
-    (set-buffer *cmail-mail-buffer)
-    (current-buffer)))
+(defun mhc-cmail-mime-get-raw-buffer ()
+  (let ((cmail-mime-view-message nil)
+	(cmail-mime-automatic-preview nil))
+    (save-excursion
+      (cmail-show-contents (cmail-get-page-number-from-summary))
+      (set-buffer *cmail-mail-buffer))))
 
@@ -255,5 +255,7 @@
 (provide 'mhc-cmail)
+(require 'mhc-mime)
 (put 'mhc-cmail 'summary-filename 'mhc-cmail-summary-filename)
 (put 'mhc-cmail 'summary-display-article 'mhc-cmail-summary-display-article)
-(put 'mhc-cmail 'get-import-buffer 'mhc-cmail-get-import-buffer)
+(put 'mhc-cmail 'get-import-buffer 'mhc-mime-get-import-buffer)
+(put 'mhc-cmail 'mime-get-raw-buffer 'mhc-cmail-mime-get-raw-buffer)
 (put 'mhc-cmail 'draft-mode 'mhc-cmail-draft-mode)