Added support for sending mail with sendmail package

[elisp/wanderlust.git] / elmo / modb-standard.el

diff --git a/elmo/modb-standard.el b/elmo/modb-standard.el
index dc413c8..62fc5b6 100644 (file)
--- a/elmo/modb-standard.el
+++ b/elmo/modb-standard.el
@@ -253,11 +253,11 @@
          (concat "^" modb-standard-entity-filename "-\\([0-9]+\\)"))
         (entities (elmo-uniq-list
                    (mapcar
-                    #'(lambda (x) (/ x modb-standard-divide-number))
+                    (lambda (x) (/ x modb-standard-divide-number))
                     (modb-standard-number-list-internal modb))))
-        (files (mapcar #'(lambda(x)
-                           (when (string-match entity-regex x)
-                             (string-to-int (match-string 1 x))))
+        (files (mapcar (lambda(x)
+                         (when (string-match entity-regex x)
+                           (string-to-number (match-string 1 x))))
                        (directory-files path nil entity-regex))))
     (dolist (entity (car (elmo-list-diff-nonsortable files entities)))
       (ignore-errors (delete-file
@@ -276,7 +276,7 @@
             (dolist (section sections)
               (modb-standard-save-entity-1 modb path section))))
          (modified
-          (modb-standard-save-entity-1 modb path)))))
+          (modb-standard-cleanup-stale-entities modb path)))))
 
 ;;; Implement
 ;;