[Mew-dist 15294] CFR: new multi command mM-d, mxM-d (was Re: 'X' マークの待遇改善要求)

[NINOMIYA Hideyuki]

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

二宮 秀幸 は Thu, 23 Nov 2000 18:15:45 +0900 頃に
    Subject:    [Mew-dist 14995] Re: 'X' マークの待遇改善要求 (was Re: "*" mark feature)
    Message-Id: <20001123.181453.71084763.nin at example.com>
れお> 'D' マークには在る md, mxd に相当する
れお> mM-d, mxM-d が 'X' マークに在っても良いと思います。

言うだけじゃあれなんで作ってみました。
お暇な方いらっしゃったら使ってみて下さいマセ m(__)m

Index: mew-key.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-key.el,v
retrieving revision 1.4
diff -c -F(def -r1.4 mew-key.el
*** mew-key.el	2000/12/05 07:09:11	1.4
--- mew-key.el	2000/12/06 00:37:40
***************   (define-key mew-summary-mode-map "x"  
*** 119,125 ****
--- 119,127 ----
    (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 "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)
+   (define-key mew-summary-mode-map "mx\ed" 'mew-summary-exec-unlink)
    (define-key mew-summary-mode-map "mxo"  'mew-summary-exec-refile)
  
    (define-key mew-summary-mode-map "O"    'mew-summary-pack)
Index: mew-mark.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-mark.el,v
retrieving revision 1.2
diff -c -F(def -r1.2 mew-mark.el
*** mew-mark.el	2000/12/05 07:09:11	1.2
--- mew-mark.el	2000/12/06 00:39:03
*************** (defun mew-summary-exec-delete ()
*** 419,424 ****
--- 419,432 ----
  	  (mew-mark-spec (list ent)))
       (mew-summary-exec-region (point-min) (point-max)))))
  
+ (defun mew-summary-exec-unlink ()
+   "Process messages marked with 'X'."
+   (interactive)
+   (mew-summary-only
+    (let* ((ent (assoc mew-mark-unlink mew-mark-spec))
+ 	  (mew-mark-spec (list ent)))
+      (mew-summary-exec-region (point-min) (point-max)))))
+ 
  (defun mew-summary-exec-refile ()
    "Process messages marked with 'o'."
    (interactive)
*************** (defun mew-summary-mark-delete ()	;; * -
*** 707,712 ****
--- 715,725 ----
    "Put the delete mark onto all messages marked with '*'."
    (interactive)
    (mew-summary-exchange-mark mew-mark-review mew-mark-delete))
+ 
+ (defun mew-summary-mark-unlink ()	;; * -> X
+   "Put the delete mark onto all messages marked with '*'."
+   (interactive)
+   (mew-summary-exchange-mark mew-mark-review mew-mark-unlink))
  
  (defun mew-summary-mark-multi ()	;; * -> @
    "Change the '*' mark into the '@' mark."

delete より unlink がお好みな自分にとってはこれでとっても幸せ。♪
---
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html