[Mew-dist 16295] Re: b103

[NINOMIYA Hideyuki]

おはようございます	二宮@お四国 です

つまんないもんですがっ。。。

『mew-thread-mark-delete が出来たので mew-thread-mark-unlink も
欲しいなっ、unlink 派としては』です。

以下パッチ
# なんか際限ない気がするけどっ。。。

Index: mew-key.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-key.el,v
retrieving revision 1.13
diff -u -F(def -r1.13 mew-key.el
--- mew-key.el	2001/02/10 12:08:25	1.13
+++ mew-key.el	2001/02/10 22:44:02
@@ -112,6 +112,7 @@   (define-key mew-summary-mode-map "ma" 
   (define-key mew-summary-mode-map "mu"   'mew-summary-mark-undo-all)
   (define-key mew-summary-mode-map "mt"   'mew-thread-mark-review)
   (define-key mew-summary-mode-map "k"    'mew-thread-mark-delete)
+  (define-key mew-summary-mode-map "\ek"  'mew-thread-mark-unlink)
   (define-key mew-summary-mode-map "mI"   'mew-summary-mark-retrieve-message)
   (define-key mew-summary-mode-map "V"    'mew-summary-virtual)
   (define-key mew-summary-mode-map "/"    'mew-summary-virtual)
Index: mew-thread.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-thread.el,v
retrieving revision 1.14
diff -u -F(def -r1.14 mew-thread.el
--- mew-thread.el	2001/02/06 16:57:41	1.14
+++ mew-thread.el	2001/02/10 22:49:15
@@ -484,6 +484,11 @@ (defun mew-thread-mark-delete ()
   (interactive)
   (mew-thread-mark mew-mark-delete))
 
+(defun mew-thread-mark-unlink ()
+  "Put the 'X' mark on all messages of the current sub-thread."
+  (interactive)
+  (mew-thread-mark mew-mark-unlink))
+
 (defun mew-thread-mark (mark)
   (mew-thread-only
    (mew-summary-msg-or-part