From: hmurata <hmurata>
Date: Sun, 23 May 2004 03:48:04 +0000 (+0000)
Subject: * elmo-spam.el (elmo-spam-register-good-messages): Don't call
X-Git-Tag: wl-2_11_30~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2896d734615d17f17f24370505b1a5502e851424;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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
--- 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