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

[Kazu Yamamoto ( 山本和彦 )]

From: KOIE Hidetaka (鯉江英隆) <hide at example.com>
Subject: [Mew-dist 16263] mew-summary-refile-reportへのコンマパッチ

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

入浴とは何かと思ってしまった山本です。以下のようなパッチの方が美しいで
しょうね。

'stop を "stop" に変えていいのか、分りませんが。OK ですか？ > nom

--かず

Index: mew-refile.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-refile.el,v
retrieving revision 1.123
retrieving revision 1.124
diff -c -r1.123 -r1.124
*** mew-refile.el	2001/02/05 13:03:52	1.123
--- mew-refile.el	2001/02/09 08:44:15	1.124
***************
*** 102,111 ****
  ;;
  
  (defun mew-refile-ctrl-auto-boundary (guess auto)
!   (if auto 'stop))
  
  (defun mew-refile-ctrl-throw (guess auto)
!   (if guess 'stop))
  
  ;;
  ;; by alist returns: (guess1 guess2 ...) or nil
--- 102,111 ----
  ;;
  
  (defun mew-refile-ctrl-auto-boundary (guess auto)
!   (if auto "stop"))
  
  (defun mew-refile-ctrl-throw (guess auto)
!   (if guess "stop"))
  
  ;;
  ;; by alist returns: (guess1 guess2 ...) or nil
***************
*** 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,571 ----
         (setq guess (cdr guess))
         (while guess
  	 (insert (format "%-32s  " (car (car guess))))
! 	 (insert (format "return: %s\n"
! 			 (mapconcat (function identity) (cdr (car guess)) ",")))
  	 (setq guess (cdr guess)))))
      (mew-message-clear-end-of)
      (set-buffer-modified-p nil)