[mhc:01737] Re: Import error

[NOGUCHI Yusuke <nogunogu@xxxxxxxxxxxxxxxx>]

野口@NEC です。

From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>
Subject: [mhc:01735] Re: Import error
Date: Fri, 10 Jan 2003 19:04:03 +0900 (JST)
Message-ID: <20030110.190403.20493671.shirai@xxxxxxxxxxxxxxxxxxx>

> お手数ですが、どこでエラーになっているのか、バックトレースを取っ
> ていただけませんか。(できたら mhc*.el を load したものがありがた
> いです)

バックトレースを添付します。

(make-directory-internal "/home/nogunogu/Mail/schedule/2003/01/")
でエラーになっているのですが、
*scratch* バッファで
(make-directory-internal "/home/nogunogu/Mail/schedule/2003/01")
を実行すれば問題なく作成できます...

> # NetBSD の問題？ ってこともないですよね。

NetBSD の問題なのかもしれません...

-- 
noguchi

Debugger entered--Lisp error: (file-error "Creating directory" "no such file or directory" "/home/nogunogu/Mail/schedule/2003/01/")
  make-directory-internal("/home/nogunogu/Mail/schedule/2003/01/")
  make-directory("/home/nogunogu/Mail/schedule/2003/01/")
  (progn (make-directory dirname) (mhc-file-add (file-name-as-directory dirname)) t)
  (if (mhc-file-make-directory (directory-file-name ...)) (progn (make-directory dirname) (mhc-file-add ...) t))
  (if (file-directory-p dirname) t (if (mhc-file-make-directory ...) (progn ... ... t)))
  mhc-file-make-directory("/home/nogunogu/Mail/schedule/2003/01/")
  (let (dirent (max 0) (num nil)) (mhc-file-make-directory dir) (setq dirent (directory-files dir nil nil t)) (while dirent (or ... ...) (setq dirent ...)) (expand-file-name (number-to-string ...) dir))
  mhc-misc-get-new-path("/home/nogunogu/Mail/schedule/2003/01/")
  (setcar record (mhc-misc-get-new-path directory))
  (mhc-record-set-name record (mhc-misc-get-new-path directory))
  (if (mhc-record-name record) (if (string= directory ...) (setq old-record record) (setq old-record ...) (mhc-record-set-name record ...)) (mhc-record-set-name record (mhc-misc-get-new-path directory)))
  (let* ((slot ...) (directory ...) (old-record)) (unless slot (error "Cannot get schedule slot")) (if (mhc-record-name record) (if ... ... ... ...) (mhc-record-set-name record ...)) (if (or force-refile ...) (progn ... ... ... ... t)))
  mhc-db-add-record-from-buffer((nil . ["<200301101916140012.nogunogu@xxxxxxxxxxxxxxxxxxxxxxxxxxxx>" ([#0 [... nil nil ... ...] "test schedule mail" "" ... "" ... nil ...]) #[nil "??\f
  (if (mhc-db-add-record-from-buffer record (current-buffer) (not ...)) (progn (kill-buffer ...) (mhc-window-pop) (or ... ...) (run-hooks ...)))
  (let ((record ...)) (mhc-calendar-input-exit) (if (mhc-db-add-record-from-buffer record ... ...) (progn ... ... ... ...)))
  mhc-draft-finish()
  call-interactively(mhc-draft-finish)