[Mew-dist 13567] 本文 (was: 予定)

[Masaki KONUMA]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 13531] 予定
Date: Fri, 7 Jul 2000 17:28:32 +0900

> そのうちやるかも：

> 	- Summary モードの書式に本文を表示できるようにする

本文が見えないと悲しいので、とりあえず、いんちきして表示するようにしま
した。

-- 小沼雅樹
-------------- next part --------------
--- mew-scan.el.orig	Sat Jul  8 13:49:16 2000
+++ mew-scan.el	Sun Jul  9 00:15:35 2000
@@ -87,6 +87,18 @@
 	80
       (window-width))))
 
+(defun mew-scan-fake-honmon (num)
+  (save-excursion
+    (mew-set-buffer-tmp default-directory)
+    (mew-frwlet
+     mew-cs-autoconv mew-cs-dummy
+     (insert-file-contents num nil 0 mew-header-reasonable-size))
+    (mew-header-goto-body)
+    (while (and (looking-at "^\\($\\|>\\|\\([A-z]*: \\)\\)") (not (eobp)))
+      (forward-line))
+    (and (not (eobp))
+	 (mew-buffer-substring (point) (progn (forward-line) (1- (point)))))))
+
 (defun mew-scan-format (vec width &optional truncated)
   (let ((num  (aref vec 0))
 	(subj (or (aref vec 1) ""))
@@ -130,7 +142,8 @@
 		  (cdr (assoc month mew-month-alist))
 		  (string-to-int day)
 		  (mew-substring from 14) ""))
-    (setq ret2 (mew-substring subj (- width (string-width ret1) 1)))
+    (setq ret2 (mew-substring (concat subj "||" (mew-scan-fake-honmon num))
+			      (- width (string-width ret1) 1)))
     (list ret1 ret2)))
 
 ;;;