From a89a1788a5d8af31f4df96f55a1918de55fe098b Mon Sep 17 00:00:00 2001 From: okada Date: Fri, 4 Aug 2000 06:33:56 +0000 Subject: [PATCH] * elmo-maildir.el (elmo-maildir-commit): New alias. --- elmo/ChangeLog | 4 ++++ elmo/elmo-maildir.el | 1 + elmo/elmo-util.el | 19 +++++++++++-------- 3 files changed, 16 insertions(+), 8 deletions(-) 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 + + * elmo-maildir.el (elmo-maildir-commit): New alias. + 2000-08-02 OKAZAKI Tetsurou * 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)) -- 1.7.10.4