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

[KOIE Hidetaka (鯉江英隆) <hide@xxxxxxxx>]

  Message-Id: <20051004.062401.193685791.koie@xxxxxxxxxxxxxxxxx>
  Date:       Tue, 04 Oct 2005 06:24:01 +0900 (JST)
  From:       KOIE Hidetaka (鯉江英隆) <hide@xxxxxxxx>
  Subject:    [mhc:02164] Re: mhc-goto-date

  | 同じ月の予定にmhc-goto-dateすると
  | バッファの先頭にポイントが移動してしまうような気がします。

わたしのコードにバグ(括弧対応ずれ)がはいっていました、すみません。
それから、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>