Fixed.

[elisp/wanderlust.git] / elmo / elsp-sa.el

diff --git a/elmo/elsp-sa.el b/elmo/elsp-sa.el
index 4c9ea7e..24fe6e3 100644 (file)
--- a/elmo/elsp-sa.el
+++ b/elmo/elsp-sa.el
@@ -76,7 +76,7 @@
                (cons
                 elmo-spam-spamassassin-learn-program
                 elmo-spam-spamassassin-learn-program-arguments))
-              (t (error "Internal error.")))))
+              (t (error "Internal error")))))
     (apply #'call-process-region
           (point-min) (point-max)
           (car pair)
@@ -98,13 +98,13 @@
                                                    buffer &optional restore)
   (with-current-buffer buffer
     (eq 0 (apply 'elmo-spamassassin-call 'learn
-                (list (when restore "--forget") "--spam")))))
+                (list "--spam")))))
 
 (luna-define-method elmo-spam-register-good-buffer ((processor elsp-sa)
                                                    buffer &optional restore)
   (with-current-buffer buffer
     (eq 0 (apply 'elmo-spamassassin-call 'learn
-                (list (when restore "--forget") "--ham")))))
+                (list "--ham")))))
 
 (defsubst elmo-spam-spamassassin-register-messages (folder
                                                    numbers
@@ -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
@@ -134,7 +133,6 @@
        (apply 'elmo-spamassassin-call 'learn
               (delq nil
                     (list "--mbox"
-                          (when restore "--forget")
                           (if spam "--spam" "--ham"))))
        (elmo-progress-notify 'elmo-spam-register count)
        (erase-buffer)))))