From: teranisi <teranisi>
Date: Sun, 11 Jan 2004 08:13:02 +0000 (+0000)
Subject: * wl-spam.el (wl-summary-exec-action-spam): Call wl-folder-confirm-existence
X-Git-Tag: wl-2_11_23~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=178c4be8a7375f64a236e4ac95370d448fab08a5;p=elisp%2Fwanderlust.git

* wl-spam.el (wl-summary-exec-action-spam): Call wl-folder-confirm-existence
for spam folder.
(wl-spam-setup): Bind "mk".
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 10834c6..6dad58e 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-01-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-spam.el (wl-summary-exec-action-spam): Call
+	wl-folder-confirm-existence for spam folder.
+	(wl-spam-setup): Bind "mk".
+
 2004-01-07  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-action.el (wl-summary-refile-prev-destination): Avoid warning.
@@ -10,7 +16,7 @@
 2004-01-07  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-buffer-prev-copy-destination): Abolish.
-	(wl-summary-mode-map): Bound "t\M-o", "m\M-o" and "r\M-o"
+	(wl-summary-mode-map): Bound "t\M-o", "m\M-o" and "r\M-o".
 
 	* wl-action.el (wl-summary-refile-prev-destination): Rewrite.
 	(wl-summary-refile-prev-destination-region): New function.
diff --git a/wl/wl-spam.el b/wl/wl-spam.el
index b33651a..255aeda 100644
--- a/wl/wl-spam.el
+++ b/wl/wl-spam.el
@@ -263,6 +263,7 @@ See `wl-summary-mark-action-list' for the detail of element."
   (let ((domain (wl-spam-domain (elmo-folder-name-internal
 				 wl-summary-buffer-elmo-folder)))
 	(total (length mark-list)))
+    (wl-folder-confirm-existence (elmo-make-folder wl-spam-folder))
     (when (memq domain '(undecided good))
       (message "Registering spam...")
       (elmo-with-progress-display (> total elmo-display-progress-threshold)
@@ -347,6 +348,8 @@ See `wl-summary-mark-action-list' for the detail of element."
 		  wl-summary-skip-mark-list))))
   (define-key wl-summary-mode-map "k" wl-summary-spam-map)
   (define-key
+    wl-summary-mode-map "mk" 'wl-summary-target-mark-spam)
+  (define-key
     wl-summary-mode-map "ms" 'wl-summary-target-mark-register-as-spam)
   (define-key
     wl-summary-mode-map "mn" 'wl-summary-target-mark-register-as-good))