From: okada <okada>
Date: Fri, 4 Aug 2000 06:33:56 +0000 (+0000)
Subject: * elmo-maildir.el (elmo-maildir-commit): New alias.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a89a1788a5d8af31f4df96f55a1918de55fe098b;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b05ebeb..812f646 100644
--- 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
--- 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
--- 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))