[mhc:01813] Oort gnus and mhc.

[Yoshinari Nomura <nom@xxxxxxxxxxxxx>]

乃村です．

最近，海外から，Oort gnus と mhc を使ってるんだけど，
うまく動かないよというメールを貰います．

> This is Gnu Emacs 21.3.1, Oort gnus v0.20.  

というバージョンらしいのですが，どう返答したものか困っています．
以前から，何か状況は変わっていません?

Oort gnus っていうのは，日本ではあまり使われていないんでしたっけ．
--
nom

> Hello,
> 
> I have been trying out MHC.  It looks very nice.  However, I have a
> couple of problems.
> 
> 1) mhc-modify does not seem to work for me.  When I try and modify an
>    entry I get a blank window and cannot see the details of the
>    entry.  Upon hitting C-c C-c I get the following Backtrace:
> 
> Debugger entered--Lisp error: (error "Cannot get schedule slot")
>   signal(error ("Cannot get schedule slot"))
>   error("Cannot get schedule slot")
>   (if slot nil (error "Cannot get schedule slot"))
>   (unless slot (error "Cannot get schedule slot"))
>   (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(("c:/jklymak/Mail/schedule/2003/05/6" . ["<200305162002410086.jklymak@PENDER>" nil nil]) #<buffer *mhc draft +schedule/2003/05/6*> nil)
>   (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)
> 
> 2) I also get a back trace when I attempt mhc-todo-set-as-done:
> 
> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>   string-match("[ 	]*todo" nil)
>   (save-restriction (goto-char (point-min)) (re-search-forward (concat "^" ... "$\\|^$") nil t) (narrow-to-region (point-min) (match-beginning 0)) (goto-char (point-min)) (string-match (concat "[ 	]*" category) (mhc-header-get-value "x-sc-category")))
>   (save-excursion (save-restriction (goto-char ...) (re-search-forward ... nil t) (narrow-to-region ... ...) (goto-char ...) (string-match ... ...)))
>   (mhc-header-narrowing (string-match (concat "[ 	]*" category) (mhc-header-get-value "x-sc-category")))
>   mhc-draft-in-category-p("todo")
>   (if (mhc-draft-in-category-p "todo") (mhc-draft-append-category "Done"))
>   mhc-draft-set-as-done()
>   mhc-todo-set-as-done()
>   call-interactively(mhc-todo-set-as-done)
>   execute-extended-command(nil)
> * call-interactively(execute-extended-command)
> 
> This is Gnu Emacs 21.3.1, Oort gnus v0.20.  
> 
> Thanks,  Jody