[Mew-dist 15069] Re: b81
HOSONO Hidetomo
h at example.com
2000年 11月 26日 (日) 05:44:03 JST
ほそのです。
To: mew-dist at example.com, kato at example.com
From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 15052] b81
Date: Sat, 25 Nov 2000 17:54:38 +0900
> thread では、まだメールが読めるだけです。
スレッド表示にて、
スレッドとスレッドの間に空白行があった方が読み易いと感じたので、
そうなるようにパッチを作ってみました。
このようなスレッドサマリが
----------------------------------------------------------------------
126 M2000/11/25 北口さん [Mew-dist 15036] Win32 changes
142 2000/11/25 かずさん [Mew-dist 15052] b81
148 2000/11/25 田原さん [Mew-dist 15058] Re: b81
150 2000/11/25 二宮さん [Mew-dist 15060] Re: b81
152 2000/11/25 白井さん [Mew-dist 15062] Re: b81
156 2000/11/26 二宮さん [Mew-dist 15066] Re: b81
153 2000/11/25 白井さん [Mew-dist 15063] Re: b81
155 2000/11/25 二宮さん [Mew-dist 15065] Re: b81
143 2000/11/25 sen_ml at example.com [Mew-dist 15053] folder renami
144 2000/11/25 sen_ml at example.com [Mew-dist 15054] Re: folder
----------------------------------------------------------------------
----------------------------------------------------------------------
126 M2000/11/25 北口さん [Mew-dist 15036] Win32 changes
142 2000/11/25 かずさん [Mew-dist 15052] b81
148 2000/11/25 田原さん [Mew-dist 15058] Re: b81
150 2000/11/25 二宮さん [Mew-dist 15060] Re: b81
152 2000/11/25 白井さん [Mew-dist 15062] Re: b81
156 2000/11/26 二宮さん [Mew-dist 15066] Re: b81
153 2000/11/25 白井さん [Mew-dist 15063] Re: b81
155 2000/11/25 二宮さん [Mew-dist 15065] Re: b81
143 2000/11/25 sen_ml at example.com [Mew-dist 15053] folder renami
144 2000/11/25 sen_ml at example.com [Mew-dist 15054] Re: folder
----------------------------------------------------------------------
こうなります。
.mewなどで
----------------------------------------------------------------------
(setq mew-use-thread-separator t)
----------------------------------------------------------------------
を評価させると、
デフォルトで空白行がスレッドのセパレータになります。
セパレータはmew-thread-separatorに入れた任意の文字列になります。
たとえば
----------------------------------------------------------------------
(setq mew-thread-separator " ---------------------------------")
----------------------------------------------------------------------
とすると、
----------------------------------------------------------------------
126 M2000/11/25 北口さん [Mew-dist 15036] Win32 changes
---------------------------------
142 2000/11/25 かずさん [Mew-dist 15052] b81
148 2000/11/25 田原さん [Mew-dist 15058] Re: b81
150 2000/11/25 二宮さん [Mew-dist 15060] Re: b81
152 2000/11/25 白井さん [Mew-dist 15062] Re: b81
156 2000/11/26 二宮さん [Mew-dist 15066] Re: b81
153 2000/11/25 白井さん [Mew-dist 15063] Re: b81
155 2000/11/25 二宮さん [Mew-dist 15065] Re: b81
---------------------------------
143 2000/11/25 sen_ml at example.com [Mew-dist 15053] folder renami
144 2000/11/25 sen_ml at example.com [Mew-dist 15054] Re: folder
----------------------------------------------------------------------
こんな見た目になります。
なお、mew-thread-separatorに改行を含める必要はありません。
自動的に改行します。
申し訳ありませんが、
都合によりEmacs-20.7の上でしか動作を確認していませんので、
XEmacsの上などで試して頂けると有難いです。
--HOSONO Hidetomo
-------------- next part --------------
--- mew-thread.el.original Sat Nov 25 17:09:18 2000
+++ mew-thread.el Sun Nov 26 05:23:05 2000
@@ -11,6 +11,8 @@
(require 'mew)
(defvar mew-use-complete-thread t)
+(defvar mew-use-thread-separator nil)
+(defvar mew-thread-separator "")
(defvar mew-thread-indent-string " ")
(defun mew-thread-make-entry ()
@@ -122,6 +124,11 @@
(defun mew-summary-thread-print (me level folder column)
(let (cld i msg)
(mew-elet
+ (if mew-use-thread-separator
+ (if (and
+ (= 0 level)
+ (not (= 1 (line-beginning-position))))
+ (insert (concat mew-thread-separator "\n"))))
(insert (mew-thread-get-line me))
(forward-line -1)
(beginning-of-line)
Mew-dist メーリングリストの案内