* elmo-maildir.el (elmo-maildir-commit): New alias.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b05ebeb..812f646 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2000-08-03  Kenichi OKADA <okada@opaopa.org>
+
+       * elmo-maildir.el (elmo-maildir-commit): New alias.
+
 2000-08-02  OKAZAKI Tetsurou  <okazaki@be.to>
 
        * elmo-imap4.el (elmo-imap4-quoted-specials-list): New constant.

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 1c3323d..b88044c 100644 (file)
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -483,6 +483,7 @@ file name for maildir directories."
   'elmo-generic-list-folder-unread)
 (defalias 'elmo-maildir-list-folder-important
   'elmo-generic-list-folder-important)
+(defalias 'elmo-maildir-commit 'elmo-generic-commit)
 
 (provide 'elmo-maildir)
 

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 361c73b..4693a79 100644 (file)
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -1490,14 +1490,17 @@ Otherwise treat \\ in NEWTEXT string as special:
        (setq first nil))
       (princ err-mes stream))))
 
-(if (fboundp 'lprogress-display)
-    (defalias 'elmo-display-progress 'lprogress-display)
-  (defun elmo-display-progress (label format &optional value &rest args)
-    "Print a progress message."
-    (if (and (null format) (null args))
-       (message nil)
-      (apply (function message) (concat format " %d%%")
-            (nconc args (list value))))))
+(cond ((fboundp 'lprogress-display)
+       (defalias 'elmo-display-progress 'lprogress-display))
+      ((fboundp 'progress-feedback-with-label)
+       (defalias 'elmo-display-progress 'progress-feedback-with-label))
+      (t
+       (defun elmo-display-progress (label format &optional value &rest args)
+        "Print a progress message."
+        (if (and (null format) (null args))
+            (message nil)
+          (apply (function message) (concat format " %d%%")
+                 (nconc args (list value)))))))
 
 (defun elmo-time-expire (before-time diff-time)
   (let* ((current (current-time))