* elmo2.el (elmo-call-func-on-markable-msgs): Return t if marking was succeeded.

* elmo-util.el (elmo-folder-get-spec): Enclose with save-match-data.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 13c2ed8..1af01e9 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2000-10-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo2.el (elmo-call-func-on-markable-msgs): Return t if marking
+       was succeeded.
+
+       * elmo-util.el (elmo-folder-get-spec): Enclose with save-match-data.
+
 2000-10-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-localdir.el (elmo-localdir-list-folders-subr): Bind

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 404f401..99e1b97 100644 (file)
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -476,8 +476,9 @@ File content is encoded with MIME-CHARSET."
   "return spec of folder"
   (let ((type (elmo-folder-get-type folder)))
     (if type
-       (funcall (intern (concat "elmo-" (symbol-name type) "-get-spec"))
-                folder)
+       (save-match-data
+         (funcall (intern (concat "elmo-" (symbol-name type) "-get-spec"))
+                  folder))
       (error "%s is not supported folder type" folder))))
 
 ;;; Search Condition

diff --git a/elmo/elmo2.el b/elmo/elmo2.el
index aade66e..31a82ee 100644 (file)
--- a/elmo/elmo2.el
+++ b/elmo/elmo2.el
@@ -435,9 +435,10 @@ without cacheing."
     ret-val))
 
 (defun elmo-call-func-on-markable-msgs (folder func-name msgs msgdb)
+  "Returns t if marked."
   (save-match-data
     (let ((folder-numbers (elmo-make-folder-numbers-list folder msgs))
-         type)
+         type error)
       (while folder-numbers
        (if (or (eq
                 (setq type (car
@@ -454,8 +455,9 @@ without cacheing."
                   func-name
                   (cdr (car folder-numbers)) ; real number
                   msgdb)
-               (error "Unplugged"))))
-       (setq folder-numbers (cdr folder-numbers))))))
+               (setq error t))))
+       (setq folder-numbers (cdr folder-numbers)))
+      (not error))))
 
 (defun elmo-unmark-important (folder msgs msgdb)
   (elmo-call-func-on-markable-msgs folder "unmark-important" msgs msgdb))