* 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 (file)
--- 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 (file)
--- 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))