From: kaoru Date: Thu, 19 Oct 2000 13:28:25 +0000 (+0000) Subject: * elmo2.el (elmo-move-msgs, elmo-msgdb-load, elmo-msgdb-save, X-Git-Tag: wl-2_4-root~116 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7181f7c1968df9c8221efb41c8b6a0d0b06a3a14;p=elisp%2Fwanderlust.git * elmo2.el (elmo-move-msgs, elmo-msgdb-load, elmo-msgdb-save, elmo-update-number): Remove last period in "...done." message. * elmo-archive.el (elmo-archive-msgdb-create-as-numlist-subr1): Ditto. * elmo-cache.el (elmo-cache-expire-by-size, elmo-cache-get-sorted-cache-file-list, elmo-cache-msgdb-create-as-numlist): Ditto. * elmo-dop.el (elmo-dop-save-pending-messages, (elmo-dop-flush-pending-append-operations): Ditto. * elmo-imap4.el (elmo-imap4-msgdb-create): Ditto. * elmo-internal.el (elmo-internal-msgdb-create): Ditto. * elmo-localdir.el (elmo-localdir-msgdb-create-as-numlist, (elmo-localdir-pack-number): Ditto. * elmo-maildir.el (elmo-maildir-msgdb-create): Ditto. * elmo-msgdb.el (elmo-msgdb-sort-by-date): Ditto. * mmelmo-imap4-2.el (mmelmo-imap4-mime-entity-buffer, mime-write-entity-content): Ditto. * pldap.el (ldap-search-basic): Ditto. --- diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 714622c..d007184 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,24 @@ +2000-10-19 TAKAHASHI Kaoru + + * elmo2.el (elmo-move-msgs, elmo-msgdb-load, elmo-msgdb-save, + elmo-update-number): Remove last period in "...done." message. + * elmo-archive.el (elmo-archive-msgdb-create-as-numlist-subr1): + Ditto. + * elmo-cache.el (elmo-cache-expire-by-size, + elmo-cache-get-sorted-cache-file-list, + elmo-cache-msgdb-create-as-numlist): Ditto. + * elmo-dop.el (elmo-dop-save-pending-messages, + (elmo-dop-flush-pending-append-operations): Ditto. + * elmo-imap4.el (elmo-imap4-msgdb-create): Ditto. + * elmo-internal.el (elmo-internal-msgdb-create): Ditto. + * elmo-localdir.el (elmo-localdir-msgdb-create-as-numlist, + (elmo-localdir-pack-number): Ditto. + * elmo-maildir.el (elmo-maildir-msgdb-create): Ditto. + * elmo-msgdb.el (elmo-msgdb-sort-by-date): Ditto. + * mmelmo-imap4-2.el (mmelmo-imap4-mime-entity-buffer, + mime-write-entity-content): Ditto. + * pldap.el (ldap-search-basic): Ditto. + 2000-10-18 Yuuichi Teranishi * elmo-version.el (elmo-version): Up to 2.3.91. diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el index 3a82579..510140f 100644 --- a/elmo/elmo-archive.el +++ b/elmo/elmo-archive.el @@ -849,7 +849,7 @@ TYPE specifies the archiver's symbol." percent)) (setq numlist (cdr numlist))) (kill-buffer tmp-buf) - (message "Creating msgdb...done.") + (message "Creating msgdb...done") (list overview number-alist mark-alist)) )) ;;; info-zip agent diff --git a/elmo/elmo-cache.el b/elmo/elmo-cache.el index 604bcb6..8e447a0 100644 --- a/elmo/elmo-cache.el +++ b/elmo/elmo-cache.el @@ -133,7 +133,7 @@ If KBYTES is kilo bytes (This value must be float)." (expand-file-name elmo-cache-dirname elmo-msgdb-dir)) Kbytes)) (setq beginning total) - (message "Checking disk usage...done.") + (message "Checking disk usage...done") (let ((cfl (elmo-cache-get-sorted-cache-file-list)) (deleted 0) oldest @@ -208,7 +208,7 @@ If KBYTES is kilo bytes (This value must be float)." 'elmo-cache-get-sorted-cache-file-list "Collecting cache info..." (/ (* i 100) num))) (setq dirs (cdr dirs))) - (message "Collecting cache info...done.") + (message "Collecting cache info...done") ret-val)) (defun elmo-cache-expire-by-age (&optional days) @@ -547,7 +547,7 @@ Returning its cache buffer." 'elmo-cache-msgdb-create-as-numlist "Creating msgdb..." percent)) (setq numlist (cdr numlist))) - (message "Creating msgdb...done.") + (message "Creating msgdb...done") (list overview number-alist mark-alist)))) (defalias 'elmo-cache-msgdb-create 'elmo-cache-msgdb-create-as-numlist) diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el index 0aeb228..0e13b7e 100644 --- a/elmo/elmo-dop.el +++ b/elmo/elmo-dop.el @@ -365,7 +365,7 @@ even an operation concerns the unplugged folder." (elmo-dop-unlock-message (car append-list))) (setq append-list (cdr append-list)) (elmo-dop-append-list-save folder nil))) - (message (format "Saving queued message in %s...done." + (message (format "Saving queued message in %s...done" elmo-lost+found-folder))) (defun elmo-dop-flush-pending-append-operations (folder &optional appends resume) @@ -420,7 +420,7 @@ even an operation concerns the unplugged folder." (setq elmo-dop-queue (delete (list folder "append-operations" nil) elmo-dop-queue)) (elmo-dop-queue-save)))) - (message "Appending queued messages...done.")) + (message "Appending queued messages...done")) (defun elmo-dop-folder-exists-p (folder) (or (file-exists-p (elmo-msgdb-expand-path folder)) diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 0b38a4d..db434bd 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -1088,7 +1088,7 @@ If optional argument UNMARK is non-nil, unmark." 'elmo-imap4-msgdb-create "Getting overview..." (/ (* total 100) length))) (setq set-list (cdr set-list))) - (message "Getting overview...done.") + (message "Getting overview...done") elmo-imap4-current-msgdb)))) (defun elmo-imap4-parse-capability (string) diff --git a/elmo/elmo-internal.el b/elmo/elmo-internal.el index e402bf8..69a8fc1 100644 --- a/elmo/elmo-internal.el +++ b/elmo/elmo-internal.el @@ -155,7 +155,7 @@ 'elmo-internal-msgdb-create "Creating msgdb..." percent)) (setq numlist (cdr numlist))) - (message "Creating msgdb...done.") + (message "Creating msgdb...done") (list overview number-alist mark-alist loc-alist)))) (defalias 'elmo-internal-msgdb-create-as-numlist 'elmo-internal-msgdb-create) diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el index 3b68094..4b5568f 100644 --- a/elmo/elmo-localdir.el +++ b/elmo/elmo-localdir.el @@ -156,7 +156,7 @@ 'elmo-localdir-msgdb-create-as-numlist "Creating msgdb..." (/ (* i 100) len))) (setq numlist (cdr numlist))) - (message "Creating msgdb...done.") + (message "Creating msgdb...done") (list overview number-alist mark-alist)))) (defalias 'elmo-localdir-msgdb-create 'elmo-localdir-msgdb-create-as-numlist) @@ -440,7 +440,7 @@ new-number mark))) (setq new-number (1+ new-number)) (setq flist (cdr flist))) - (message "Packing...done.") + (message "Packing...done") (list (elmo-msgdb-get-overview msgdb) onum-alist new-mark-alist diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el index 84e1aa2..43d70e1 100644 --- a/elmo/elmo-maildir.el +++ b/elmo/elmo-maildir.el @@ -229,7 +229,7 @@ This variable should not be used in elsewhere.") 'elmo-maildir-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 loc-alist))))) diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el index 4a5e6ed..9abc0e2 100644 --- a/elmo/elmo-msgdb.el +++ b/elmo/elmo-msgdb.el @@ -761,7 +761,7 @@ Header region is supposed to be narrowed." (message "Sorting...") (let ((overview (elmo-msgdb-get-overview msgdb))) (setq overview (elmo-msgdb-overview-sort-by-date overview)) - (message "Sorting...done.") + (message "Sorting...done") (list overview (nth 1 msgdb)(nth 2 msgdb)(nth 3 msgdb)(nth 4 msgdb)))) (defun elmo-msgdb-clear-overview-hashtb (entity hashtb) diff --git a/elmo/elmo2.el b/elmo/elmo2.el index 85d34a6..706b9f5 100644 --- a/elmo/elmo2.el +++ b/elmo/elmo2.el @@ -364,12 +364,12 @@ without cacheing." ) (if (and ret-val (not no-delete-info)) - (message "Cleaning up src folder...done.") + (message "Cleaning up src folder...done") ) ret-val) (if no-delete (progn - (message "Copying messages...done.") + (message "Copying messages...done") t) (if (eq len 0) (message "No message was moved.") @@ -492,7 +492,7 @@ without cacheing." (elmo-msgdb-location-load path) (elmo-msgdb-make-overview-hashtb overview) ))) - (message "Loading msgdb for %s...done." folder) + (message "Loading msgdb for %s...done" folder) (elmo-folder-set-info-max-by-numdb folder (nth 1 ret-val)) ret-val)) @@ -507,7 +507,7 @@ without cacheing." (elmo-msgdb-location-save path (cadddr msgdb)) ;(elmo-sync-validity folder);; for validity check!! )) - (message "Saving msgdb for %s...done." folder) + (message "Saving msgdb for %s...done" folder) (elmo-folder-set-info-max-by-numdb folder (cadr msgdb))) (defun elmo-msgdb-add-msgs-to-seen-list-subr (msgs msgdb seen-marks seen-list) @@ -622,7 +622,7 @@ without cacheing." len) nil (elmo-msgdb-set-number-alist msgdb new-numlist) - (message "Synchronize number...done.") + (message "Synchronize number...done") new-numlist)))) (defun elmo-get-msg-filename (folder number &optional loc-alist) diff --git a/elmo/mmelmo-imap4-2.el b/elmo/mmelmo-imap4-2.el index 6b31535..4ea6610 100644 --- a/elmo/mmelmo-imap4-2.el +++ b/elmo/mmelmo-imap4-2.el @@ -230,7 +230,7 @@ These value must be specified as argument for `luna-make-entity'." (mime-buffer-entity-set-buffer-internal entity nil) (message "Fetching skipped part...") (mmelmo-imap4-mime-entity-buffer entity) - (message "Fetching skipped part...done.")) + (message "Fetching skipped part...done")) (setq mmelmo-imap4-fetched t))) (mime-buffer-entity-buffer-internal entity)) ;; No buffer exist. @@ -342,7 +342,7 @@ These value must be specified as argument for `luna-make-entity'." (mime-buffer-entity-set-buffer-internal entity (mmelmo-imap4-mime-entity-buffer entity)) - (message "Fetching skipped part...done."))) + (message "Fetching skipped part...done"))) (with-current-buffer (mime-buffer-entity-buffer-internal entity) (mime-write-decoded-region (mime-buffer-entity-body-start-internal entity) diff --git a/elmo/pldap.el b/elmo/pldap.el index 265629c..2687c23 100644 --- a/elmo/pldap.el +++ b/elmo/pldap.el @@ -727,7 +727,7 @@ entry according to the value of WITHDN." (if (not (eobp)) (forward-char 1)) (setq start (point))) (if verbose - (message "Parsing ldap results...done.")) + (message "Parsing ldap results...done")) (delq nil (nreverse result))))) (defun ldap/field-end ()