2008年2月20日

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

> > mew-summary-join が動作していないように思います。
>
> 最近、join は使っていないので、テストされていなかったようです。
> 以下のパッチで直りますか?

しまった。前のパッチには、debug が入っていました。
こちらで試して下さい。(_ _)

--かず

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:52:23 -0000
***************
*** 582,591 ****
(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))
--- 582,592 ----
(with-temp-buffer
(mew-set-buffer-multibyte t)
(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:53
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/69983
トラックバック
コメント
コメントする




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