From 2896d734615d17f17f24370505b1a5502e851424 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sun, 23 May 2004 03:48:04 +0000 Subject: [PATCH] * 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. --- elmo/ChangeLog | 11 +++++++++++ elmo/elmo-spam.el | 2 -- elmo/elsp-bogofilter.el | 4 ++-- elmo/elsp-sa.el | 1 - 4 files changed, 13 insertions(+), 5 deletions(-) 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 + + * 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 * 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 -- 1.7.10.4