[Mew-dist 16263] mew-summary-refile-reportへのコンマパッチ

[KOIE Hidetaka ( 鯉江英隆 )]

C-u oでguess具合を見たときに
その出力コピーしてoの入浴にできるよう
フォルダ間の区切をスペースではなくコンマにするためのパッチです。

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>
-------------- next part --------------
*** mew-refile.el.~1~	Tue Dec 26 11:40:35 2000
--- mew-refile.el	Thu Feb  8 19:43:07 2001
***************
*** 564,570 ****
         (setq guess (cdr guess))
         (while guess
  	 (insert (format "%-32s  " (car (car guess))))
! 	 (insert (format "return: %s\n" (cdr (car guess))))
  	 (setq guess (cdr guess)))))
      (mew-message-clear-end-of)
      (set-buffer-modified-p nil)
--- 564,576 ----
         (setq guess (cdr guess))
         (while guess
  	 (insert (format "%-32s  " (car (car guess))))
!          (let ((ret (cdr (car guess))))
!          (if (not (and ret (listp ret)))
!                   (insert (format "return: %s\n" (cdr (car guess))))
!            (insert "return: (")
!            (while ret
!              (insert (format "%s%s" (car ret) (if (cdr ret) "," ")\n")))
!              (setq ret (cdr ret)))))
  	 (setq guess (cdr guess)))))
      (mew-message-clear-end-of)
      (set-buffer-modified-p nil)