2008年2月20日

[mew-dist 28085] Re: mew-summary-join

山本です。
遅くなりまして、すいません。

> mew-summary-join が動作していないように思います。

最近、join は使っていないので、テストされていなかったようです。
以下のパッチで直りますか?

--かず

Index: mew-summary4.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-summary4.el,v
retrieving revision 1.209
diff -c -r1.209 mew-summary4.el
*** mew-summary4.el 12 Feb 2008 08:36:22 -0000 1.209
--- mew-summary4.el 20 Feb 2008 01:50:14 -0000
***************
*** 581,591 ****
(message "Joining...")
(with-temp-buffer
(mew-set-buffer-multibyte t)
(insert "CD: " (mew-expand-folder2 cfld) "\n")
! (while targets
! (setq fld-msg (car targets))
! (setq targets (cdr targets))
! (insert (cdr fld-msg) "\n"))
(mew-frwlet
mew-cs-text-for-read mew-cs-text-for-write
(write-region (point-min) (point-max) tfile nil 'no-msg))
--- 581,593 ----
(message "Joining...")
(with-temp-buffer
(mew-set-buffer-multibyte t)
+ (debug)
(insert "CD: " (mew-expand-folder2 cfld) "\n")
! (let ((default-directory (mew-expand-folder cfld)))
! (while targets
! (setq fld-msg (car targets))
! (setq targets (cdr targets))
! (insert (mew-msg-get-filename (cdr fld-msg)) "\n")))
(mew-frwlet
mew-cs-text-for-read mew-cs-text-for-write
(write-region (point-min) (point-max) tfile nil 'no-msg))

投稿者 xml-rpc : 2008年2月20日 10:51
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/70048
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。