[mhc:00247] Re: mhc-snap19991129

[sen_ml@xxxxxxxxxxx]

sen_ml> ＃ そのうち wl-summary-mode は引数をとらない様になると思いますので、
sen_ml>    その時には変更が必要になると思います。

nom> どうなるのかな。手前勝手に Buffer 作る mhc みたいなパッケージに
nom> ついても配慮を期待してます。

私も気になります。Wanderlust の作者の寺西さんもスケジュールの
管理に興味があるようなので (X-ML-Name: Wanderlust
X-Mail-Count: 03389 参照)、 ちょっと期待しています。

「wl で mhc が動く様になった」と wl のリストに通知をすれば、
mhc ユーザが増えると思いますが、いかがでしょうか？

＃ 白井さんのパッチを含んだ新たな snapshot 等があるとうれしい
   かもしれません :-)

あと、報告だけで申し分けないのですが、wl を立ち上げて、 C-c . してから 
"." (wl-summary-redisplay) を実行するとエラーが出てしまいます。役に
たつかは分りませんが、backtrace を添付しておきます。

Signaling: (wrong-type-argument stringp nil)
  get-buffer-window(nil)
  (or (get-buffer-window buffer) (wl-message-buffer-window))
  (let ((gbw ...) (sum ...) (mes ...) whi) (when (and gbw ...) (delete-window gbw) (run-hooks ...) (setq gbw nil)) (if gbw (select-window gbw) (when wl-fixed-window-configuration ... ...) (setq whi ...) (if mes ...) (split-window ... sum) (other-window 1)) (switch-to-buffer buffer))
  wl-select-buffer(nil)
  (let* ((cur-buf ...) (view-message-buffer ...) (message-id ...) (size ...) (backend ...) cur-entity ret-val header-end real-fld-num summary-win) (require (quote mmelmo)) (wl-select-buffer view-message-buffer) (set-buffer view-message-buffer) (unwind-protect (progn ... ... ... ... ... ...) (setq buffer-read-only nil) (wl-message-set-original-buffer-information folder number) (wl-message-overload-functions) (when wl-highlight-body-too ...) (condition-case nil ... ...) (setq mode-line-buffer-identification ...) (goto-char ...) (unwind-protect ... ... ... ... ... ...)) ret-val)
  wl-mmelmo-message-redisplay("*+schedule/intersect,+schedule/1999/11" 100000 mime nil nil)
  funcall(wl-mmelmo-message-redisplay "*+schedule/intersect,+schedule/1999/11" 100000 mime nil nil)
  (if wl-message-redisplay-func (funcall wl-message-redisplay-func folder number flag msgdb force-reload))
  (let ((default-mime-charset wl-mime-charset) (buffer-read-only nil)) (setq wl-message-cache-used nil) (if wl-message-redisplay-func (funcall wl-message-redisplay-func folder number flag msgdb force-reload)))
  wl-message-redisplay("*+schedule/intersect,+schedule/1999/11" 100000 mime nil nil)
  (if (wl-message-redisplay fld num (quote mime) msgdb force-reload) (wl-summary-mark-as-read nil (if wl-message-cache-used nil ...) t))
  (progn (setq wl-summary-buffer-disp-msg t) (setq wl-summary-buffer-last-displayed-msg wl-summary-buffer-current-msg) (if (and ... ...) (if ... ...)) (setq wl-current-summary-buffer (current-buffer)) (if (wl-message-redisplay fld num ... msgdb force-reload) (wl-summary-mark-as-read nil ... t)) (setq wl-summary-buffer-current-msg num) (if wl-summary-recenter (recenter ...)) (wl-highlight-summary-displaying) (wl-cache-prefetch-next fld num (current-buffer)) (run-hooks (quote wl-summary-redisplay-hook)))
  (if num (progn (setq wl-summary-buffer-disp-msg t) (setq wl-summary-buffer-last-displayed-msg wl-summary-buffer-current-msg) (if ... ...) (setq wl-current-summary-buffer ...) (if ... ...) (setq wl-summary-buffer-current-msg num) (if wl-summary-recenter ...) (wl-highlight-summary-displaying) (wl-cache-prefetch-next fld num ...) (run-hooks ...)) (message "No message to display."))
  (let* ((msgdb wl-summary-buffer-msgdb) (fld ...) (num ...) (wl-mime-charset wl-summary-buffer-mime-charset) (default-mime-charset wl-summary-buffer-mime-charset) (wl-message-redisplay-func wl-summary-buffer-message-redisplay-func) fld-buf fld-win thr-entity) (if (and wl-thread-open-reading-thread ... ... ...) (wl-thread-force-open)) (if num (progn ... ... ... ... ... ... ... ... ... ...) (message "No message to display.")))
  wl-summary-redisplay-internal(nil nil nil)
  (if (and (not arg) (wl-summary-no-mime-p wl-summary-buffer-folder-name)) (wl-summary-redisplay-no-mime) (wl-summary-redisplay-internal nil nil arg))
  wl-summary-redisplay(nil)
  call-interactively(wl-summary-redisplay)