[mhc:00903] Re: cmail

[matz@xxxxxxxxxxxx (Yukihiro Matsumoto)]

まつもと ゆきひろです

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

|むむ、よくわかってませんが、
|*cmail-mail-buffer って、View バッファ
|(SEMI のボタンがついてる) ではないですか？

ボタンはついてません。でもcharsetの設定はしてあるんで読めちゃ
いますね。となるとこんな感じ？ 全体像がわかってないんで迷惑
をかけます。

--- mhc-cmail.el	2000/08/02 05:43:55	1.4
+++ mhc-cmail.el	2000/08/02 10:09:15
@@ -60,10 +60,13 @@
   "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 ((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)
+      (current-buffer))))
 
@@ -255,5 +258,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)