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

[mhc:00051] Re: rescan after modify patch



On Tue, 25 May 1999 19:28:43 +0900,
	Hanada Yasunori <yasunori@xxxxxxxxxxxxxxxxxxxxxxxxx> said:

> 今度こそ
> --- mhc.el.orig	Mon May 24 18:48:56 1999
> +++ mhc.el	Tue May 25 19:26:07 1999
> @@ -344,7 +344,8 @@
>        (mhc-hdr-delete-separator)
>        (if (y-or-n-p (format "I will refile to %s ... " folder))
>  	  (progn (mhc-draft-refile folder)
> -		 (mhc-window-pop))))))
> +		 (mhc-window-pop)))))
> +  (mhc-summary-rescan-month))
>  
>  (defun mhc-draft-refile (folder)
>    (let ((tmp-file (or (buffer-file-name)

や、だからね、これだと多分、C-c| して、C-cC-c したらひどいことに
なるよ。

(mhc-summary-rescan-month) を無条件に呼ぶんじゃなくて、pop した
後に +schedule/xxxx/xx にいるかどうかを判定しないとまずい。
quick hack なら、

(and (string-match mhc-summary-buf-regex (buffer-name))
	(mhc-summary-rescan-month))

が正解。(多分) 本当は、mhc-summary-schedule-folder-p とかいうのを
書くのが正しそうだけど。
--
nom