* elsp-bogofilter.el (elmo-spam-bogofilter-register-messages):

Protect from infinite loop.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 5d507c8..f66aed0 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-25  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * elsp-bogofilter.el (elmo-spam-bogofilter-register-messages):
+       Protect from infinite loop.
+
 2004-01-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elsp-bogofilter.el

diff --git a/elmo/elsp-bogofilter.el b/elmo/elsp-bogofilter.el
index 41adb35..14f0f60 100644 (file)
--- a/elmo/elsp-bogofilter.el
+++ b/elmo/elsp-bogofilter.el
@@ -124,6 +124,8 @@ Must be return a string or list of string."
   (elsp-bogofilter-register-buffer buffer nil restore))
 
 (defsubst elmo-spam-bogofilter-register-messages (folder numbers spam restore)
+  (if (not (< 0 elmo-spam-bogofilter-max-messages-per-process))
+      (error "non-positive value for `elmo-spam-bogofilter-max-messages-per-process'"))
   (with-temp-buffer
     (buffer-disable-undo (current-buffer))
     (while numbers