[mhc:00240] Re: mhc-snap19991129

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: Yoshinari Nomura <nom@xxxxxxxxxxxxxxxxxxx> さん曰く
Subject: [mhc:00239] mhc-snap19991129
Message-ID: <19991129004546H.nom@xxxxxxxxxxxxxxxxxxx>
Date: Mon, 29 Nov 1999 00:45:22 +0900

nom> mhc-snap19991129 を置きました。目玉は Wanderlust への対応
nom> (したつもり) です。

# Wanderlust はすぐ立ち上げられないので。。。

1. mew-virtual-mode を呼ぶときは hook を nil にして欲しいです。
 (いや〜、hook が走るといろいろと不具合が。。。)

2. かわりに mhc-mode-hook はどうでしょうか？

3.  mhc-sch-scan-date() を動かすときに、Emacs-20.4 だと conf に
 nil が代入されず、未定義だって叱られました。

以上は、是非変えて欲しいところ。:-)

以下は、乃村さんの趣味にお任せ。:-)

4. 過去の ML を読んでいたら、Mew を "Q" したときに、mhc の
 folder も消えて欲しいという意見があったのですが、私もそう思いま
 す。

と、ここまでは附属のパッチを参照して下さい。

もうひとつは個人的なお願いなのですが、mode-line に " Schedule"
を追加すると、右からその他のものが溢れてしまうので、" mhc" ぐら
いにしていただけないでしょうか？

# 特に 640x480画素 の ふる〜い NotePC だと。。。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)

*** mhc.el.orig	Mon Nov 29 00:39:21 1999
--- mhc.el	Mon Nov 29 10:22:18 1999
***************
*** 258,264 ****
  (defun mhc-sch-scan-date (date type &optional cat inv-cat secret)
    (let ((first t)
  	(sch-list (mhc-db-search1 date cat inv-cat t))
! 	time-b1 time-e1 time-b2 time-max)
      (if sch-list
  	(while sch-list
  	  ;; check conflictions
--- 258,264 ----
  (defun mhc-sch-scan-date (date type &optional cat inv-cat secret)
    (let ((first t)
  	(sch-list (mhc-db-search1 date cat inv-cat t))
! 	time-b1 time-e1 time-b2 time-max conf)
      (if sch-list
  	(while sch-list
  	  ;; check conflictions
***************
*** 282,287 ****
--- 282,289 ----
        (mhc-sch-scan-date ddate type cat inv-cat secret)
        (setq ddate (ddate-inc ddate)))))
  
+ (defvar mhc-mode-hook nil)
+ 
  (defun mhc-scan-month (ddate type cat inv-cat secret)
    (let ((buffer (get-buffer-create (mhc-ddate-to-buffer ddate)))
  	(insert-current (not (or (equal type 'mew) (equal type 'wl)))))
***************
*** 305,314 ****
        (mhc-goto-today)
        (cond
         ((equal type 'mew)
! 	(mew-virtual-mode))
         ((equal type 'wl)
  	(wl-summary-mode (mhc-wl-ddate-to-folder ddate))))
        (mhc-mode 1)
        (setq inhibit-read-only nil)
        (setq buffer-read-only t))
      (message "Scanning %s ... done." (ddate-yymm-s1 ddate "/"))))
--- 307,319 ----
        (mhc-goto-today)
        (cond
         ((equal type 'mew)
! 	(let ((mew-virtual-mode-hook nil))
! 	  (mew-virtual-mode))
! 	(mew-buffers-setup (buffer-name)))
         ((equal type 'wl)
  	(wl-summary-mode (mhc-wl-ddate-to-folder ddate))))
        (mhc-mode 1)
+       (run-hooks 'mhc-mode-hook)
        (setq inhibit-read-only nil)
        (setq buffer-read-only t))
      (message "Scanning %s ... done." (ddate-yymm-s1 ddate "/"))))
***************
*** 489,494 ****
--- 494,501 ----
    (setq mhc-draft-mode-map (make-sparse-keymap))
    (define-key mhc-draft-mode-map "\C-c\C-c" 'mhc-draft-finish)
    (define-key mhc-draft-mode-map "\C-c\C-q" 'mhc-draft-kill))
+ 
+ (defvar mhc-draft-mode-hook nil)
  
  (defun mhc-draft-mode ()
    (interactive)