* elmo-spam.el (elmo-spam-processor): Added 3rd argument

`if-exists'.

* wl-spam.el (wl-spam-save-status): Dose not initialize processor
if no need.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index dd241e5..f797f4f 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2003-11-27  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-spam.el (elmo-spam-processor): Added 3rd argument
+       `if-exists'.
+
 2003-11-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-multi.el (elmo-folder-newsgroups): Simplify.

diff --git a/elmo/elmo-spam.el b/elmo/elmo-spam.el
index febf103..5bf47ec 100644 (file)
--- a/elmo/elmo-spam.el
+++ b/elmo/elmo-spam.el
@@ -172,13 +172,14 @@ If optional argument RESTORE is non-nil, unregister from spam list.")
 
 (defvar elmo-spam-processor-internal nil)
 
-(defun elmo-spam-processor ()
+(defun elmo-spam-processor (&optional if-exists)
   (or elmo-spam-processor-internal
-      (let* ((scheme (or elmo-spam-scheme 'generic))
-            (class (intern (format "elsp-%s" scheme))))
-       (require class)
-       (setq elmo-spam-processor-internal
-             (luna-make-entity class)))))
+      (unless if-exists
+       (let* ((scheme (or elmo-spam-scheme 'generic))
+              (class (intern (format "elsp-%s" scheme))))
+         (require class)
+         (setq elmo-spam-processor-internal
+               (luna-make-entity class))))))
 
 (require 'product)
 (product-provide (provide 'elmo-spam) (require 'elmo-version))

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2de3b7f..5e12bf1 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-11-27  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-spam.el (wl-spam-save-status): Dose not initialize processor
+       if no need.
+
 2003-11-22  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-spam.el (wl-spam-auto-check-folder-regexp-list): Changed

diff --git a/wl/wl-spam.el b/wl/wl-spam.el
index a9d810e..1a7fee4 100644 (file)
--- a/wl/wl-spam.el
+++ b/wl/wl-spam.el
@@ -152,8 +152,9 @@ See `wl-summary-mark-action-list' for the detail of element."
 
 (defun wl-spam-save-status (&optional force)
   (interactive "P")
-  (let ((processor (elmo-spam-processor)))
-    (when (or force (elmo-spam-modified-p processor))
+  (let ((processor (elmo-spam-processor (not force))))
+    (when (or force
+             (and processor (elmo-spam-modified-p processor)))
       (elmo-spam-save-status processor))))
 
 ;; insinuate into summary mode