[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