[mew-dist 20569] "mc" marked copy (was: "tc" thread copy)

[NOGUCHI Yusuke]

野口と申します。

Subject: [mew-dist 20557] "tc" thread copy
From: Hideyuki SHIRAI (白井秀行)<shirai at example.com>
Date: Thu, 07 Mar 2002 18:35:14 +0900 (JST)

> さっき thread mode で "tc" って入力したら、そんなコマンドは無い
> ので作りました。
> # じきに mark 関係が変わるらしいので、無意味か？


"mc" も欲しいと思っていました。
白井さんのものを参考にさせていただき、つくってみました。
Mew-2.2 をベースにしております。

# 一応、手元で使っている限りでは問題ありませんが、
# 不具合があるかもしれません...

-- 
NOGUCHI Yusuke


*** mew-key.el.org      Thu Mar  7 19:49:22 2002
--- mew-key.el  Thu Mar  7 19:44:24 2002
***************
*** 138,143 ****
--- 138,144 ----
    (define-key mew-summary-mode-map "x"    'mew-summary-exec)
    (define-key mew-summary-mode-map "X"    'mew-summary-exec-one)
    (define-key mew-summary-mode-map "mo"   'mew-summary-mark-refile)
+   (define-key mew-summary-mode-map "mc"   'mew-summary-mark-copy)
    (define-key mew-summary-mode-map "md"   'mew-summary-mark-delete)
    (define-key mew-summary-mode-map "m\ed" 'mew-summary-mark-unlink)
    (define-key mew-summary-mode-map "mxd"  'mew-summary-exec-delete)


*** mew-refile.el.org   Thu Mar  7 19:49:29 2002
--- mew-refile.el       Thu Mar  7 19:48:06 2002
***************
*** 670,675 ****
--- 670,689 ----
          (forward-line))
        (message "Mark refiling...done")))))
  
+ (defun mew-summary-mark-copy ()
+   (interactive)
+   (let ((after-change-functions nil)
+       (mew-use-highlight-x-face nil)
+       (last nil))
+     (message "Mark copying...")
+     (save-excursion
+       (save-window-excursion
+       (goto-char (point-min))
+       (while (re-search-forward mew-regex-msg-review nil t)
+         (setq last (mew-summary-refile-body last nil 'no-msg nil (mew-summary-
folder-name)))
+         (forward-line))
+       (message "Mark copying...done")))))
+ 
  (provide 'mew-refile)
  
  ;;; Copyright Notice: