[mhc:00278] Re: 第一・第三火曜

[Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx>]

On Tue, 7 Dec 1999 11:16:41 +0900,
	Yoshiaki Kasahara <kasahara@xxxxxxxxxxxxxxxxx> said:

> X-SC-Cond: 1st 3rd Tue
> 
> といった表記が elisp 版 mhc で正しく表示されなくなっていました(3rd Tue 
> だけ有効になる)。gemcal ではちゃんと出ています。

あ、これは mscan 離れたときに既に出ていた問題っぽいです。
原因は分かりました。パッチを後ろに付けます。

> X-SC-Day: !19991005 !19991123 !19991207
> X-SC-Cond: Tue
> 
> というスケジュールがあるのですが、こっちは mhc ではちゃんと消
> えているのに gemcal では表示されてしまっています。

うむ。こっちは、再現しません。よかったら、問題が発生する article 
をそのまま送っていただけませんか。
--
nom

Index: mhc-schedule.el
===================================================================
RCS file: /u/nom/prj/cvsroot/mhc/emacs/mhc-schedule.el,v
retrieving revision 1.4
diff -u -r1.4 mhc-schedule.el
--- mhc-schedule.el	1999/11/16 09:14:27	1.4
+++ mhc-schedule.el	1999/12/07 10:30:46
@@ -674,7 +674,8 @@
 	(mon (mhc-sch-cond-mon  sch))
 	(ord (mhc-sch-cond-ord  sch))
 	(wek (mhc-sch-cond-wek  sch))
-	(num (mhc-sch-cond-num  sch)))
+	(num (mhc-sch-cond-num  sch))
+	tmp-wek)
     (if (null mon) (setq mon (list "all")))
     (if (null ord) (setq ord (list "all")))
     (while day
@@ -682,10 +683,11 @@
       (setq day (cdr day)))
     (while mon
       (while ord
-	(while wek
+	(setq tmp-wek wek)
+	(while tmp-wek
 	  (mhc-db-regist-schedule2
-	   slot (concat (car mon) (car ord) (car wek)) sch)
-	  (setq wek (cdr wek)))
+	   slot (concat (car mon) (car ord) (car tmp-wek)) sch)
+	  (setq tmp-wek (cdr tmp-wek)))
 	(setq ord (cdr ord)))
       (while num
 	(mhc-db-regist-schedule2 slot (concat (car mon) (car num)) sch)