From: teranisi <teranisi>
Date: Wed, 28 Jan 2004 14:23:28 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-mark-as-important-internal): Cause an error
X-Git-Tag: wl-2_11_24~14
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c57c28ac3a2590a5fb499044eded585e0a0cb789;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-mark-as-important-internal): Cause an error
only when the folder is 'flag/important.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 134f10b..de2fb30 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2004-01-28  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-summary.el (wl-summary-mark-as-important-internal): Cause an error
+	only when the folder is 'flag/important.
+
 	* wl-address.el (wl-complete-field-body): Complete if the last
 	character is a space.
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index d6306df..741d99f 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3061,12 +3061,12 @@ Return non-nil if the mark is updated"
 						 &optional
 						 number-or-numbers
 						 no-server-update)
-  (if (eq (elmo-folder-type-internal wl-summary-buffer-elmo-folder)
-	  'flag)
-      (error "Cannot process mark in this folder"))
   (save-excursion
     (let ((folder wl-summary-buffer-elmo-folder)
 	  number number-list visible)
+      (when (and (eq (elmo-folder-type-internal folder) 'flag)
+		 (eq (elmo-flag-folder-flag-internal folder) 'important))
+	(error "Cannot process mark in this folder"))
       (setq number-list (cond ((numberp number-or-numbers)
 			       (list number-or-numbers))
 			      ((and (not (null number-or-numbers))