[mhc:01967] Re: week-separator が表示されないことがあります

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

白井です。

From: KOIE Hidetaka (鯉江英隆) <hide@xxxxxxxx> さん曰く
Subject: [mhc:01966] week-separator が表示されないことがあります
Message-ID: <20041007.121758.104049851.koie@xxxxxxxxxx>
Date: Thu, 07 Oct 2004 12:17:58 +0900 (JST)

> 「この週はやけに予定が多いな?」とおもってよく見たら
> 2週がくっついているのに気付いた次第です。

あらまぁ。

> week-separatorが表示されないのは仕様のような気もしますが

バグでしょう ^^;;;

> こんな風になるといいかなと思います。
> 
>     use-month use-week   重なったときの表示
>     nil       nil        なし
>     nil       t          ---- CW xx ------------
>     t         t/nil      ==== CW xx ============

ここまでのパッチをつけておきます。

# あとで commit しておきますが、会議が終わってから。

> あと、separatorの長さをcustomizeできるとうれしいです。
> month-separatorを短かくしたいとおもっているので。
> 12文字くらいにして目立たなくする方が好みです。
> ただweek-separatorとmonth-separatorが重なるときは
> week-separatorと同じ長さになるのがよいような気がします。

うーーん、こちらもあとで。。。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)

--- mhc.el	13 Sep 2004 05:17:46 -0000	1.84
+++ mhc.el	7 Oct 2004 03:51:19 -0000
@@ -498,12 +498,18 @@
 	    (mhc-date-mm-first date)))
     (when (and bfrom bto)
       (mhc-summary-make-contents bfrom bto mailer category-predicate secret)
-      (when mhc-use-month-separator
-	(mhc-summary/insert-separator 'wide)))
+      (if mhc-use-month-separator
+	  (mhc-summary/insert-separator 'wide)
+	(if (and mhc-use-week-separator
+		 (eq (mhc-end-day-of-week) (mhc-date-ww bto)))
+	    (mhc-summary/insert-separator))))
     (mhc-summary-make-contents from to mailer category-predicate secret)
     (when (and afrom ato)
-      (when mhc-use-month-separator
-	(mhc-summary/insert-separator 'wide))
+      (if mhc-use-month-separator
+	  (mhc-summary/insert-separator 'wide)
+	(if (and mhc-use-week-separator
+		 (eq mhc-start-day-of-week (mhc-date-ww afrom)))
+	    (mhc-summary/insert-separator)))
       (mhc-summary-make-contents afrom ato mailer category-predicate secret))
     (unless (eq 'direct mailer)
       (when (and (eq mhc-todo-position 'bottom)