[mhc:01817] mhc-0.25.1 on T-gnus ?

[Takeshi TAKIYAMA <takiyama@xxxxxxxxxxxxxxxxxxxxxxx>]

瀧山と申します。
初めて参加させていただきます。
Meadow+ T-gnusというuser agent な環境で　MHCを使用したく思ったのですが
以下のようになってしまいます。

(1) M-x gnus でgnusを起動
(2) 適当なメールを見て、C-c | で選択
(3) 日付、名称、場所、種類を入力(ret)して C-c C-c
(4) gnusを終了/再起動
(5) C-n で6月のスケジュールを見ようとすると以下のBackTraceが出てしまいます。

~/Mail/schedule/2003/06/1 には設定したものがあります。
~/Mail/schedule/2003/06/.mhc-mtime は X となっています

スケジュールを保存しないときは、6月の内容は見えます。

私の使い方がわるい? T-gnusに未対応? T-gnusのインストールが悪い?
;; 自分でmake しましたので、小関さんのnetinstallは使っていません

対応方法をお教えください

---

Signaling: (args-out-of-range [("d:/usr/local/Mail/schedule/2003/06/" . 0)] 1)
  nnvirtual-reverse-map-article("nndir:d:/usr/local/Mail/schedule/2003/06/" 1)
  (if path (nnvirtual-reverse-map-article (concat "nndir:" ...) (string-to-int ...)))
  (let ((path ...)) (if path (nnvirtual-reverse-map-article ... ...)))
  mhc-sch-foldermsg-gnus(((cond-mon) (cond-ord) (cond-wek) (cond-num) (day (2003 6 5)) (exception) (category "Work") (pilot-id) (subject . #("\xd1cc\xd1c1\xd1ce\xd851\xd877\xd971\xd24e\xd9ab\xdd45\xd24b\xd244\xd224\xd246" 0 13 ...)) (location . "a2") (record-id . "<200305301016460000.takiyama@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>") (description) (path . "d:/usr/local/Mail/schedule/2003/06/1") (time-b 13 30) (time-e) (duration-b) (duration-e) (alarm) (modified)))
  (let ((num ...) header) (if num (progn ... ... ...) (remove-text-properties 0 ... ... insert)))
  (cond ((eq type ...) (let ... ...)))
  (let ((subject ...) (category ...) date-color week-color insert head-string date-string week-string time-string conf-string subj-string foot-string location-string) (setq week-color (cond ... ... ... ...)) (setq date-color (cond ... ...)) (setq head-string (cond ... ... ... ...)) (put-text-property 0 (length head-string) (quote invisible) t head-string) (setq date-string (cond ... ... ...)) (setq week-string (cond ... ... ...)) (if (and first date-color ...) (mhc-face-put date-string date-color)) (if (and first week-color ...) (mhc-face-put week-string week-color)) (setq time-string (format "%-11s" ...)) (mhc-face-put time-string (quote mhc-summary-face-time)) (setq conf-string (if conf mhc-summary-string-conflict)) (setq subj-string (cond ... ... ...)) (if (mhc-sch-location sch) (progn ... ...)) (setq foot-string (cond ... ... ... ...)) (setq insert (concat head-string date-string " " week-string " " time-string " " conf-string ... subj-string " " location-string foot-strin!
g "\n")) (if (and week-color mhc-face-week-color-paint-thick) (mhc-face-put insert week-color)) (cond (... ...)) (insert insert) (set-buffer-modified-p nil))
  mhc-sch-scan1(((cond-mon) (cond-ord) (cond-wek) (cond-num) (day (2003 6 5)) (exception) (category "Work") (pilot-id) (subject . #("\xd1cc\xd1c1\xd1ce\xd851\xd877\xd971\xd24e\xd9ab\xdd45\xd24b\xd244\xd224\xd246" 0 13 ...)) (location . "a2") (record-id . "<200305301016460000.takiyama@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>") (description) (path . "d:/usr/local/Mail/schedule/2003/06/1") (time-b 13 30) (time-e) (duration-b) (duration-e) (alarm) (modified)) gnus (2003 6 5) nil nil t)
  (while sch-list (setq time-b1 (mhc-sch-time-b ...) time-e1 (mhc-sch-time-e ...) time-b2 (mhc-sch-time-b ...)) (setq conf (if ... t)) (if (or ... ...) (setq time-max time-e1)) (mhc-sch-scan1 (car sch-list) type date conf secret first) (setq first nil) (setq sch-list (cdr sch-list)))
  (progn (while sch-list (setq time-b1 ... time-e1 ... time-b2 ...) (setq conf ...) (if ... ...) (mhc-sch-scan1 ... type date conf secret first) (setq first nil) (setq sch-list ...)) t)
  (if sch-list (progn (while sch-list ... ... ... ... ... ...) t) (mhc-sch-scan1 nil type date conf secret first) nil)
  (let ((first t) (sch-list ...) time-b1 time-e1 time-b2 time-max conf) (if sch-list (progn ... t) (mhc-sch-scan1 nil type date conf secret first) nil))
  mhc-sch-scan-date((2003 6 5) gnus nil nil nil nil)
  (while (ddate<= ddate to) (mhc-sch-scan-date ddate type cat inv-cat secret update) (if (and mhc-use-week-separator ...) (mhc-insert-separator)) (setq update nil) (setq ddate (ddate-inc ddate)))
  (let ((ddate from) (update t)) (while (ddate<= ddate to) (mhc-sch-scan-date ddate type cat inv-cat secret update) (if ... ...) (setq update nil) (setq ddate ...)))
  mhc-sch-scan((2003 6 1) (2003 6 30) gnus nil nil nil)
  (let ((buffer) (insert-current ...)) (or insert-current (if ... ... ... ... ... ... ... ... ... ... ...)) (message "Scanning %s ..." (ddate-yymm-s1 ddate "/")) (mhc-sch-scan (ddate-mm-first-day ddate) (ddate-mm-last-day ddate) type cat inv-cat secret) (if insert-current nil (if mhc-insert-calendar ...) (mhc-goto-today) (cond ... ... ...) (mhc-mode 1) (run-hooks ...) (setq inhibit-read-only nil) (setq buffer-read-only t)) (message "Scanning %s ... done." (ddate-yymm-s1 ddate "/")))
  mhc-scan-month((2003 6 30) gnus nil nil nil)
  (let ((category ...)) (mhc-scan-month (if ... date ...) mhc-mailer-package (cdr category) (car category) hide-private))
  mhc-goto-month((2003 6 30))
  mhc-goto-next-month(1)
* call-interactively(mhc-goto-next-month)