* 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 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,24 @@
+2000-10-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * 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  <teranisi@gohome.org>
 
        * 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 ()