[mew-dist 20557] "tc" thread copy

[Hideyuki SHIRAI ( 白井秀行 )]

さっき thread mode で "tc" って入力したら、そんなコマンドは無い
ので作りました。

# じきに mark 関係が変わるらしいので、無意味か？

-- 
白井秀行＠IMAP 環境整備はどうしようかな
-------------- next part --------------
--- mew-key.el	Fri Jan 18 13:18:30 2002
+++ ../../mew/mew/mew-key.el	Thu Mar  7 17:27:54 2002
@@ -134,7 +134,8 @@
   (define-key mew-summary-mode-map "t@"   'mew-thread-mark-multi)
   (define-key mew-summary-mode-map "td"   'mew-thread-mark-delete)
   (define-key mew-summary-mode-map "to"   'mew-thread-mark-refile)
+  (define-key mew-summary-mode-map "tc"   'mew-thread-mark-copy)
   (define-key mew-summary-mode-map "t\ed" 'mew-thread-mark-unlink)
   (define-key mew-summary-mode-map "tu"   'mew-thread-unmark)
   (define-key mew-summary-mode-map "z"    (make-sparse-keymap))
--- mew-refile.el	Wed Mar  6 09:24:18 2002
+++ ../../mew/mew/mew-refile.el	Thu Mar  7 17:37:27 2002
@@ -467,7 +467,9 @@
     (cons (nreverse ret) (cdr learn-info)))) ;; return value
 
 (defun mew-summary-copy ()
+ "Put the refile mark(default is 'o') on this message with
+the current folder as a candidate in addition to guessed folders."
  (interactive)
  (mew-summary-msg-or-part
   (mew-summary-not-in-draft
--- mew-thread.el	Wed Feb 20 09:35:57 2002
+++ ../../mew/mew/mew-thread.el	Thu Mar  7 17:36:15 2002
@@ -537,6 +537,18 @@
        (setq alist (mew-thread-mark mew-mark-refile))
        (mew-refile-set-from-alist alist folders)))))
 
+(defun mew-thread-mark-copy ()
+  "Put the 'o' mark on all messages of the current sub-thread
+with the current folder as a candidate in addition to guessed folders."
+  (interactive)
+  (mew-thread-only
+   (let ((folders (mew-summary-refile-body
+		   nil nil nil 'no-mark (mew-summary-folder-name)))
+	 alist)
+     (when folders
+       (setq alist (mew-thread-mark mew-mark-refile))
+       (mew-refile-set-from-alist alist folders)))))
+
 (defun mew-refile-set-from-alist (alist folders)
   (let (ent fld msg msgs)
     (while alist
-------------- next part --------------
P.S.
CVS の先頭だと mew-nmz が動かなくなっていますが、全体的に見直し
たいので時間を下さい > ユーザ様

とりあえず動かしたい方は、

s/mew-folder-list/mew-local-folder-list/
s/mew-folder-setup/mew-local-update/

で大丈夫だと思います。

P.P.S.
sed s/candicate/candidate/ mew.texi
発見