[mhc:02135] Re: mhc と howm の設定について

[Yuuichi Teranishi <teranisi@xxxxxxxxxx>]

At Fri, 17 Jun 2005 01:10:46 +0900,
Takuo Tanaka wrote:
> 
> 白井様，ていねいなご説明ありがとうございました．
> まだ１００％理解できたわけではないのですが，何となくイメージはわかりました．
> 試行錯誤してみます．

こんなんでいかがでしょう。

(define-key global-map "\C-c.." 'my-goto-mhc)

(defun my-goto-mhc ()
  (interactive)
  (let ((wlbuf (catch 'done
		 (dolist (buf (buffer-list))
		   (when (and (buffer-name buf)
			      (string-match "Folder" (buffer-name buf)))
		     (throw 'done buf))))))
    (if wlbuf
	(switch-to-buffer wlbuf)
      (wl t))
    (mhc-goto-this-month)))

--
Yuuichi Teranishi <teranisi@xxxxxxxxxx>
http://www.gohome.org/teranisi
"There's nothing you can do that can't be done."