[Mew-dist 15146] Re: b81

[Shun-ichi GOTO]

>>>>> at Mon, 27 Nov 2000 20:38:10 +0900
>>>>> 白井 == Hideyuki SHIRAI (白井秀行) <shirai at example.com> said,

後藤> であれば、"|" とかのダミーカラムをインデントの直前に入れるだけでも
後藤> 見やすくなるとは思います。

白井> # ほとんど意地 :-)

## この2案は実は私も試してた(^^;

白井> http://www.netlaputa.ne.jp/~hshirai/Image/mew-thread3.png
白井> http://www.netlaputa.ne.jp/~hshirai/Image/mew-thread4.png

白井> ## あまり見易くなったとも思えないんだけど。。。色なんかつけてい
白井> ## るからかな ^^;;;

(個人的感想ですが)結構見やすくなってると感じてます。
mew-thread2.png に比べて、ですが。

mew-thread4.png は mew-thread-indent-string を "--" にするだけでよい
のでお手軽ですね。


さて、具体例はいっぱい出てきましたね。
ただ、どれも個人趣味の延長ともいえます。
それらを全てMew でサポートするのは本意ではないでしょうから
カスタマイズ要素を作るか、なのですが、

スレッド行描画ユーザ定義
mew-thread-draw-line-function
とか設けとけるというのはどうでせうか？

mew-summary-thread-print のあたりをこんな感じにするなど

(defvar mew-thread-draw-function nil
   "*User function to draw thread line
Call with 4 arguments: STR LEVEL FOLDER COLUMN ..... ")

(defun mew-thread-default-draw-line-function (str level folder column)
  "サマリの1行を描画する(含む\r)"
  (let (i)
    (insert str)
    (forward-line -1)
    (move-to-column column)
    (setq i 0)
    (while (< i level)
      (insert mew-thread-indent-string)
      (setq i (1+ i)))
    (beginning-of-line 2)))

(defun mew-summary-thread-print (me level folder column)
  (let (msg cld)
    (mew-elet
      ;; ユーザ描画関数が定義されていればそいつに情報を渡し
      ;; 描画させる
      (funcall (or mew-thread-draw-function
                  (function mew-thread-default-draw-function))
               (mew-thread-get-line me) level folder column))
      ;; \r 以降のvirtual folder 用情報部分はmew が責任を持って加える
      (forward-line -1)
      (if (looking-at mew-regex-msg)
	  (setq msg (mew-match 1))
	(setq msg ""))
      (if (not (re-search-forward "\r" nil t))
	  ()
	(insert " " folder " " msg))
      (forward-line)))
    (setq cld (mew-thread-get-child me))
    (if cld (mew-summary-thread-print-loop cld (1+ level) folder column))))

なんてな定義で需要は満たせまいか？
## 動作未検証 ... むだがおおいな.

白井> P.S.
白井> 『セパレータ行でなにをやっても大丈夫』は嘘でした。(_ _)

白井> "," がエラーになります。

## やべ、おらんところも該当した...
## 是非修正を > 本家

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN