[mhc:02179] Re: mhc-goto-date

[Yoshinari Nomura <nom@xxxxxxxxxxxxx>]

鯉江さん，乃村です．

mhc-goto-date は，キーには割当てないという話だったでしょうか?
current は，半端な状態になってそうなので，cleanup したコードを
patch の形でいただけないでしょうか．
--
nom

On Fri, 07 Oct 2005 15:25:49 +0900 (JST),
	KOIE Hidetaka (鯉江英隆) <hide@xxxxxxxx> said:

> わたしのコードにバグ(括弧対応ずれ)がはいっていました、すみません。
> それから、mhc-calendar-goto-monthをつかうと
> ちらっと予定を見るだけならコンパクトな表示でうれしいし
> sを押せばすぐにMUA viewに切り替えられるし
> mhc-goto-todayの改造も不要になるので
> mhc-goto-dateを以下のようにしました。
> 
> (defun mhc-goto-date (&optional hide-private)
>   "*Show schedules of specified date.
> If HIDE-PRIVATE, private schedules are suppressed."
>   (interactive
>    (list
>     (if mhc-default-hide-private-schedules
> 	(not current-prefix-arg)
>       current-prefix-arg)))
>   (let* ((owin (get-buffer-window (current-buffer)))
>          (buf (mhc-summary-get-import-buffer))
>          (win (if buf (get-buffer-window buf) nil))
>          date)
>     (save-excursion
>       (when win (select-window win))
>       (setq date (car (mhc-input-day "Date: " (mhc-date-now) (mhc-guess-date))))
>       (select-window owin))
>     (mhc-calendar-goto-month date)))
> 
> --
> KOIE Hidetaka <hide@xxxxxxxx>