From: yoichi Date: Sun, 10 Nov 2002 11:33:21 +0000 (+0000) Subject: Fix "Operating...done" to follow the Emacs Lisp Coding Conventions. X-Git-Tag: wl-2_11_1~50 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3f1819b1be6f37f6a1564c1d8a81c2a7445f1f91;p=elisp%2Fwanderlust.git Fix "Operating...done" to follow the Emacs Lisp Coding Conventions. --- diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 8affc0b..438cc37 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -2533,7 +2533,7 @@ If optional argument REMOVE is non-nil, remove FLAG." (unless elmo-inhibit-display-retrieval-progress (elmo-display-progress 'elmo-imap4-display-literal-progress "Retrieving..." 100) ; remove progress bar. - (message "Retrieving...done.")) + (message "Retrieving...done")) (if (setq response (elmo-imap4-response-bodydetail-text (elmo-imap4-response-value-all response 'fetch))) diff --git a/elmo/elmo-nmz.el b/elmo/elmo-nmz.el index 269e2a8..bc46e71 100644 --- a/elmo/elmo-nmz.el +++ b/elmo/elmo-nmz.el @@ -156,7 +156,7 @@ If the value is a list, all elements are used as index paths for namazu." 'elmo-folder-msgdb-create "Creating msgdb..." percent)) (setq numlist (cdr numlist))) - (message "Creating msgdb...done.") + (message "Creating msgdb...done") (list overview number-alist mark-alist))) (luna-define-method elmo-folder-message-file-p ((folder elmo-nmz-folder)) diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index 730c1a3..a9893b7 100644 --- a/elmo/elmo-pop3.el +++ b/elmo/elmo-pop3.el @@ -879,7 +879,7 @@ Debug information is inserted in the buffer \"*POP3 DEBUG*\"") (elmo-display-progress 'elmo-display-retrieval-progress "Retrieving..." 100) ; remove progress bar. - (message "Retrieving...done.")) + (message "Retrieving...done")) (set-buffer outbuf) (goto-char (point-min)) (while (re-search-forward "^\\." nil t) diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el index 0668c11..1e2bf02 100644 --- a/elmo/elmo-shimbun.el +++ b/elmo/elmo-shimbun.el @@ -382,7 +382,7 @@ update overview when message is fetched." 'elmo-folder-msgdb-create "Creating msgdb..." percent)) (setq numlist (cdr numlist))) - (message "Creating msgdb...done.") + (message "Creating msgdb...done") (elmo-msgdb-sort-by-date (list overview number-alist mark-alist)))) diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el index c30b9ff..1205733 100644 --- a/elmo/elmo-util.el +++ b/elmo/elmo-util.el @@ -773,7 +773,7 @@ the directory becomes empty after deletion." (setq clist2 (delq (car list1) clist2)) (setq list1 (cdr list1))) (if mes - (message (concat mes "done."))) + (message (concat mes "done"))) (list clist1 clist2))) (defun elmo-list-bigger-diff (list1 list2 &optional mes) diff --git a/utils/wl-addrbook.el b/utils/wl-addrbook.el index f71f928..d9fd2dd 100644 --- a/utils/wl-addrbook.el +++ b/utils/wl-addrbook.el @@ -164,7 +164,7 @@ If nil, the old 'user' entry remains.") (wl-addrbook-make-hashtb) (add-hook 'kill-emacs-hook (function wl-addrbook-clean-up)) (add-hook 'wl-exit-hook (function wl-addrbook-clean-up)) - (message "Updating addrbook...done.")) + (message "Updating addrbook...done")) (defun wl-addrbook-clean-up () (remove-hook 'kill-emacs-hook (function wl-addrbook-clean-up)) diff --git a/wl/wl-address.el b/wl/wl-address.el index dfa2a72..d168f52 100644 --- a/wl/wl-address.el +++ b/wl/wl-address.el @@ -368,7 +368,7 @@ Matched address lists are append to CL." (with-output-to-temp-buffer wl-completion-buf-name (display-completion-list all)) - (message "Making completion list... done"))) + (message "Making completion list...done"))) (defun wl-complete-window-delete () (let (comp-buf comp-win) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index f1ece4f..cb0fe71 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -1122,7 +1122,7 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'." (elmo-folder-commit wl-summary-buffer-elmo-folder) (elmo-folder-check wl-summary-buffer-elmo-folder) (if wl-use-scoring (wl-score-save)) - (if (interactive-p) (message "Saving summary status...done."))) + (if (interactive-p) (message "Saving summary status...done"))) (defun wl-summary-force-exit () "Exit current summary. Buffer is deleted even the buffer is sticky." @@ -3004,7 +3004,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." (defun wl-summary-exec-region (beg end) (interactive "r") - (message "Collecting marks ...") + (message "Collecting marks...") (save-excursion (goto-char beg) (beginning-of-line) @@ -3033,7 +3033,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." refile-len dst-msgs ; loop counter result) - (message "Executing ...") + (message "Executing...") (while dels (when (not (assq (car dels) wl-summary-buffer-refile-list)) (wl-append wl-summary-buffer-refile-list @@ -3124,7 +3124,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." wl-message-buffer-cur-number))) (wl-summary-toggle-disp-msg 'off)) (set-buffer-modified-p nil) - (message (concat "Executing ... done" + (message (concat "Executing...done" (if (> refile-failures 0) (format " (%d refiling failed)" refile-failures) "") diff --git a/wl/wl-util.el b/wl/wl-util.el index 0230b97..1768a67 100644 --- a/wl/wl-util.el +++ b/wl/wl-util.el @@ -667,7 +667,7 @@ that `read' can handle, whenever this is possible." (defvar wl-load-profile-function 'wl-local-load-profile) (defun wl-local-load-profile () "Load `wl-init-file'." - (message "Initializing ...") + (message "Initializing...") (load wl-init-file 'noerror 'nomessage)) (defun wl-load-profile ()