[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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



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

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

(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."