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

[Kazu Yamamoto ( 山本和彦 )]

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

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