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

[Kazu Yamamoto ( 山本和彦 )]

> > 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))