From: yoichi <yoichi>
Date: Sun, 10 Nov 2002 12:07:39 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-target-mark-erase): New function.
X-Git-Tag: wl-2_11_1~49
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9f1f4007e2d3797d745ae617ab6f2ee6d004dde2;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-target-mark-erase): New function.
Bind it to "mD".
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index decbcfc..8d52d42 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-10  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-summary.el (wl-summary-target-mark-erase): New function.
+	Bind it to "mD".
+
 2002-11-09  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-vars.el (wl-draft-write-file-function): Fix.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index cb0fe71..a69659e 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -511,6 +511,7 @@ See also variable `wl-use-petname'."
   (define-key wl-summary-mode-map "m?"   'wl-summary-target-mark-pick)
   (define-key wl-summary-mode-map "m#"   'wl-summary-target-mark-print)
   (define-key wl-summary-mode-map "m|"   'wl-summary-target-mark-pipe)
+  (define-key wl-summary-mode-map "mD"   'wl-summary-target-mark-erase)
 
   ;; region commands
   (define-key wl-summary-mode-map "r"    (make-sparse-keymap))
@@ -3156,6 +3157,21 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 	      (save-excursion (wl-summary-sync nil "update"))))))
     (message "Read-only folder.")))
 
+(defun wl-summary-target-mark-erase ()
+  (interactive)
+  (if (elmo-folder-writable-p wl-summary-buffer-elmo-folder)
+      (if (null wl-summary-buffer-target-mark-list)
+	  (message "No marked message.")
+	(when (yes-or-no-p
+	       "Erase all marked messages without moving them to trash? ")
+	  (while (car wl-summary-buffer-target-mark-list)
+	    (let ((num (car wl-summary-buffer-target-mark-list)))
+	      (wl-summary-unmark num)
+	      (elmo-folder-delete-messages wl-summary-buffer-elmo-folder
+					   (list num))))
+	  (save-excursion (wl-summary-sync nil "update"))))
+    (message "Read-only folder.")))
+
 (defun wl-summary-read-folder (default &optional purpose ignore-error
 				no-create init)
   (let ((fld (completing-read