[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:00258] Re: mhc on wl (experimental support)
元木です。まだこのMLでは少ない(？)Wanderlust userです。
2つほど要望があります。
(1)X-SC-Time: が HH:MM のように、開始時刻しかない場合に桁がずれてしまいます。
揃っていた方が見易いと思いますが、どうでしょうか。
(2)土日だと、Category を指定しても、mhc-category-face-alist が
red や blue で上書きされてしまいます。
曜日による色付けは date だけにするのはどうでしょうか。
簡単ですが、パッチをつけます。
あと、Wanderlust だけでの問題ですが、
Summaryバッファから wl-summary-goto-folder でフォルダを切り替えると、
minor-mode に mhc が設定されません。
folderモードからフォルダを選択するとＯＫなのですが・・・
minor-mode の扱いがよく分かっていないので、原因が特定できていません。
--- mhc-schedule.el~ Tue Nov 16 18:14:27 1999
+++ mhc-schedule.el Thu Dec 2 13:07:14 1999
@@ -250,7 +250,7 @@
(e (mhc-sch-time-e obj)))
(if (and b e)
(concat (dtime-to-s b) "-" (dtime-to-s e))
- (if b (dtime-to-s b) ""))))
+ (if b (concat (dtime-to-s b) " ") " "))))
(defun mhc-sch-time-b (obj) (mhc-sch-get obj 'time-b))
(defun mhc-sch-time-e (obj) (mhc-sch-get obj 'time-e))
--- mhc.el~ Tue Nov 30 18:47:53 1999
+++ mhc.el Thu Dec 2 13:18:49 1999
@@ -232,6 +232,7 @@
((not date) "")
(first (concat (ddate-mmdd-s1 date "/") " " (ddate-ww-s2 date) " "))
(t " ")))
+ (put-text-property 0 (length date-string) 'face color date-string)
(setq time-string
(cond
((mhc-sch-time-b sch)
@@ -264,7 +265,7 @@
subj-string
foot-string
"\n"))
- (if color (put-text-property 0 (length insert) 'face color insert))
+ ;;(if color (put-text-property 0 (length insert) 'face color insert))
(insert insert)
(set-buffer-modified-p nil)))
余談です。
>>>>> In [Wanderlust : No.03434]
>>>>> Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx> wrote:
> > ＃現在は xcal ユーザーなのですが、最近 mhc もいいなと思っています。
> xcal のいい所を教えてください。マネしますから。:-)
xcal にこだわる理由はそれほどありません。
今まで mhc と Wanderlust の連携が難しいので、xcal を使っていただけです。
＃歴史的な理由だと、xcal の前は xcalendar を使っていたというのもあります(^^
━━━━━━━━━━━━………‥・・ ・ ・ ．
元木 顕弘 / Akihiro Motoki ・ ☆
E-mail: mokkun@xxxxxxxxx, mokkun@xxxxxxxxxxx ・ .
motoki@xxxxxxxxxxxxxxxxx ・・