* elmo-spam.el (elmo-spam-register-good-messages): Don't call

buffer-disable-undo, it is unnecessary.
(elmo-spam-register-good-messages): Ditto.

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

* elsp-sa.el (elmo-spam-spamassassin-register-messages): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 0e31277..9c23503 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,14 @@
+2004-05-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-spam.el (elmo-spam-register-good-messages): Don't call
+       buffer-disable-undo, it is unnecessary.
+       (elmo-spam-register-good-messages): Ditto.
+
+       * elsp-bogofilter.el (elmo-spam-bogofilter-register-messages):
+       Ditto.
+
+       * elsp-sa.el (elmo-spam-spamassassin-register-messages): Ditto.
+
 2004-05-22  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-util.el (elmo-set-buffer-multibyte): Abolish.

diff --git a/elmo/elmo-spam.el b/elmo/elmo-spam.el
index 936f47b..683d443 100644 (file)
--- a/elmo/elmo-spam.el
+++ b/elmo/elmo-spam.el
@@ -151,7 +151,6 @@ If optional argument RESTORE is non-nil, unregister from spam list.")
                                                      numbers restore)
   (let ((numbers (or numbers (elmo-folder-list-messages folder t t))))
     (with-temp-buffer
-      (buffer-disable-undo (current-buffer))
       (dolist (number numbers)
        (erase-buffer)
        (elmo-spam-message-fetch folder number)
@@ -164,7 +163,6 @@ If optional argument RESTORE is non-nil, unregister from spam list.")
                                                      numbers restore)
   (let ((numbers (or numbers (elmo-folder-list-messages folder t t))))
     (with-temp-buffer
-      (buffer-disable-undo (current-buffer))
       (dolist (number numbers)
        (erase-buffer)
        (elmo-spam-message-fetch folder number)

diff --git a/elmo/elsp-bogofilter.el b/elmo/elsp-bogofilter.el
index 948a2d0..fd58ff8 100644 (file)
--- a/elmo/elsp-bogofilter.el
+++ b/elmo/elsp-bogofilter.el
@@ -125,9 +125,9 @@ Must be return a string or list of string."
 
 (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'"))
+      (error "\
+non-positive value for `elmo-spam-bogofilter-max-messages-per-process'"))
   (with-temp-buffer
-    (buffer-disable-undo (current-buffer))
     (while numbers
       (let ((count 0))
        (while (and numbers

diff --git a/elmo/elsp-sa.el b/elmo/elsp-sa.el
index fcb5a9c..658146b 100644 (file)
--- a/elmo/elsp-sa.el
+++ b/elmo/elsp-sa.el
@@ -114,7 +114,6 @@
       (error
  "non-positive value for `elmo-spam-spamassassin-max-messages-per-process'"))
   (with-temp-buffer
-    (buffer-disable-undo (current-buffer))
     (while numbers
       (let ((count 0))
        (while (and numbers