* wl.el (wl-save-status, wl-init): Remove last period in

"...done." message.
* tm-wl.el (wl-summary-burst): Ditto.
* wl-summary.el (wl-summary-rescan, wl-summary-mark-as-read-all,
wl-summary-resume-cache-status,
wl-summary-resume-marks-and-highlight, wl-summary-resume-marks,
wl-summary-sync-update3, wl-summary-highlight-msgs,
wl-summary-flush-pending-append-operations,
wl-summary-delete-all-msgs, wl-summary-delete-all-temp-marks,
wl-summary-jump-to-parent-message, wl-summary-drop-unsync): Ditto.
* wl-thread.el (wl-thread-resume-entity, wl-thread-close-all,
wl-thread-open-all): Ditto.
* wl-score.el (wl-summary-score-update-all-lines): Ditto.
* wl-mime.el (wl-summary-burst): Ditto.
* wl-highlight.el (wl-highlight-summary): Ditto.
* wl-folder.el (wl-folder-update-newest, wl-local-folder-init,
wl-folder-open-all, wl-folder-update-access-group): Ditto.
* wl-draft.el (wl-draft-send, wl-draft-queue-append): Ditto.
* wl-address.el (wl-local-address-init): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index cc287f7..f37ba9b 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,25 @@
+2000-10-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl.el (wl-save-status, wl-init): Remove last period in
+       "...done." message.
+       * tm-wl.el (wl-summary-burst): Ditto.
+       * wl-summary.el (wl-summary-rescan, wl-summary-mark-as-read-all,
+       wl-summary-resume-cache-status,
+       wl-summary-resume-marks-and-highlight, wl-summary-resume-marks,
+       wl-summary-sync-update3, wl-summary-highlight-msgs,
+       wl-summary-flush-pending-append-operations,
+       wl-summary-delete-all-msgs, wl-summary-delete-all-temp-marks,
+       wl-summary-jump-to-parent-message, wl-summary-drop-unsync): Ditto.
+       * wl-thread.el (wl-thread-resume-entity, wl-thread-close-all,
+       wl-thread-open-all): Ditto.
+       * wl-score.el (wl-summary-score-update-all-lines): Ditto.
+       * wl-mime.el (wl-summary-burst): Ditto.
+       * wl-highlight.el (wl-highlight-summary): Ditto.
+       * wl-folder.el (wl-folder-update-newest, wl-local-folder-init,
+       wl-folder-open-all, wl-folder-update-access-group): Ditto.
+       * wl-draft.el (wl-draft-send, wl-draft-queue-append): Ditto.
+       * wl-address.el (wl-local-address-init): Ditto.
+
 2000-10-19  Katsumi Yamaoka    <yamaoka@jpl.org>
 
        * wl-e21.el (wl-biff-init-icons): Use `propertize' instead of

diff --git a/wl/tm-wl.el b/wl/tm-wl.el
index 5ca53e1..3913e1d 100644 (file)
--- a/wl/tm-wl.el
+++ b/wl/tm-wl.el
@@ -152,7 +152,7 @@ By setting following-method as yank-content."
       (message "Bursting...")
       (when children
        (wl-summary-burst-subr children target 0))
-      (message "Bursting...done."))
+      (message "Bursting...done"))
     (if (elmo-folder-plugged-p target)
        (elmo-commit target))
     (wl-summary-sync-update3)))

diff --git a/wl/wl-address.el b/wl/wl-address.el
index bb5f79c..4d75b79 100644 (file)
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -476,7 +476,7 @@ Matched address lists are append to CL."
                         (cadr (car addresses))
                         wl-address-petname-hash)
       (setq addresses (cdr addresses))))
-  (message "Updating addresses...done."))
+  (message "Updating addresses...done"))
 
 
 (defun wl-address-expand-aliases (alist nest-count)

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 36795ae..a217749 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1150,7 +1150,7 @@ If optional argument is non-nil, current draft buffer is killed"
            (if wl-draft-verbose-send
                (message (concat (or wl-draft-verbose-msg
                                     mes-string "Sending...")
-                                "done."))))
+                                "done"))))
        ;; kill sending buffer, anyway.
        (and (buffer-live-p sending-buffer)
             (kill-buffer sending-buffer))))))
@@ -1786,7 +1786,7 @@ If optional argument is non-nil, current draft buffer is killed"
          (wl-draft-write-sendlog 'ok 'queue nil wl-queue-folder message-id)
          (when wl-draft-verbose-send
            (setq wl-draft-verbose-msg "Queuing...")
-           (message "Queuing...done.")))
+           (message "Queuing...done")))
       (wl-draft-write-sendlog 'failed 'queue nil wl-queue-folder message-id)
       (error "Queuing failed"))))
 

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index e28588a..25de9c6 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1553,7 +1553,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
                           (wl-folder-create-newsgroups-hashtb
                            entity nil)
                           wl-folder-newsgroups-hashtb))))
-               (message "Fetching folder entries...done."))
+               (message "Fetching folder entries...done"))
              (wl-folder-insert-entity indent entity))))))))
 
 (defun wl-folder-insert-entity (indent entity &optional onlygroup)
@@ -1612,7 +1612,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
 ;                         (wl-folder-create-newsgroups-hashtb
 ;                          entity nil)
 ;                         wl-folder-newsgroups-hashtb))))
-;              (message "fetching folder entries...done."))
+;              (message "fetching folder entries...done"))
              (insert indent "[" (if as-opened "-" "+") "]"
                      (wl-folder-get-petname (car entity)))
              (setq group-name-end (point))
@@ -1977,7 +1977,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
       (setq wl-folder-newsgroups-hashtb
            (wl-folder-create-newsgroups-hashtb wl-folder-entity))
       (wl-folder-init-info-hashtb)))
-  (message "Initializing folder...done."))
+  (message "Initializing folder...done"))
 
 (defun wl-folder-get-realname (petname)
   (or (car
@@ -2363,7 +2363,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
        (when (> len elmo-display-progress-threshold)
          (elmo-display-progress
           'wl-folder-open-all "Opening all folders..." 100))))
-    (message "Opening all folders...done.")
+    (message "Opening all folders...done")
     (set-buffer-modified-p nil)))
 
 (defun wl-folder-close-all ()
@@ -2509,7 +2509,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
        (setq new-list (cdr new-list))))
     (if new-flist
        (message "%d new folder(s)." (length new-flist))
-      (message "Updating access group...done."))
+      (message "Updating access group...done"))
     (wl-append new-flist subscribed-list)      ;; new is first
     (run-hooks 'wl-folder-update-access-group-hook)
     (setcdr (cdr entity) (list new-flist new-unsubscribes))

diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index b3e105b..cfc59d0 100644 (file)
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -1016,7 +1016,7 @@ interpreted as cited text.)"
                       'wl-highlight-summary "Highlighting..."
                       percent)))
                (forward-line 1))
-             (message "Highlighting...done.")))))))
+             (message "Highlighting...done")))))))
 
 (defun wl-highlight-headers ()
   (let ((beg (point-min))

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index c4b291c..506dcb7 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -242,7 +242,7 @@ By setting following-method as yank-content."
       (when children
        (message "Bursting...")
        (wl-summary-burst-subr children target 0)
-       (message "Bursting...done."))
+       (message "Bursting...done"))
       (if (elmo-folder-plugged-p target)
          (elmo-commit target)))
     (wl-summary-sync-update3)))

diff --git a/wl/wl-score.el b/wl/wl-score.el
index 9ec2ade..7e584a5 100644 (file)
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -1273,7 +1273,7 @@ See `wl-score-simplify-buffer-fuzzy' for details."
                                               mark-alist)
                                              (length num-db)))
          (wl-summary-update-modeline)))
-      (message "Updating score...done.")
+      (message "Updating score...done")
       dels)))
 
 (defun wl-score-edit-done ()

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 075114e..7d98ab5 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -918,12 +918,12 @@ q Goto folder mode.
         (cdar wl-summary-delayed-update)
         overview mark-alist nil t)
        (setq wl-summary-delayed-update (cdr wl-summary-delayed-update))))
-    (message "Constructing summary structure...done.")
+    (message "Constructing summary structure...done")
     (set-buffer cur-buf)
     (when (eq wl-summary-buffer-view 'thread)
       (message "Inserting thread...")
       (wl-thread-insert-top)
-      (message "Inserting thread...done."))
+      (message "Inserting thread...done"))
     (when wl-use-scoring
       (setq wl-summary-scored nil)
       (wl-summary-score-headers nil msgdb
@@ -1743,7 +1743,7 @@ If optional argument is non-nil, checking is omitted."
        (setq wl-summary-buffer-unread-count 0)
        (setq wl-summary-buffer-new-count    0)
        (wl-summary-update-modeline)
-       (message "Setting all msgs as read...done.")
+       (message "Setting all msgs as read...done")
        (set-buffer-modified-p nil))))
 
 (defun wl-summary-delete-cache ()
@@ -1837,7 +1837,7 @@ If optional argument is non-nil, checking is omitted."
       (elmo-msgdb-set-mark-alist msgdb mark-alist)
       (wl-summary-count-unread mark-alist)
       (wl-summary-update-modeline)
-      (message "Resuming cache status...done.")
+      (message "Resuming cache status...done")
       (set-buffer-modified-p nil))))
 
 (defun wl-summary-resume-marks-and-highlight ()
@@ -1866,7 +1866,7 @@ If optional argument is non-nil, checking is omitted."
           'wl-summary-resume-marks-and-highlight "Resuming all marks..."
           percent))
        (forward-line 1)))
-    (message "Resuming all marks...done.")))
+    (message "Resuming all marks...done")))
 
 (defun wl-summary-resume-marks ()
   (let* ((msgdb wl-summary-buffer-msgdb)
@@ -1899,7 +1899,7 @@ If optional argument is non-nil, checking is omitted."
           'wl-summary-resume-marks "Resuming all marks..."
           percent))
        (setq mark-alist (cdr mark-alist)))
-      (message "Resuming all marks...done."))))
+      (message "Resuming all marks...done"))))
 
 (defun wl-summary-delete-messages-on-buffer (msgs &optional deleting-info)
   (interactive)
@@ -2191,7 +2191,7 @@ If optional argument is non-nil, checking is omitted."
       (setq diff (elmo-list-diff in-folder in-db)))
     (setq initial-append-list (car diff))
     (setq delete-list (cadr diff))
-    (message "Checking folder diff...done.")
+    (message "Checking folder diff...done")
     ;; Don't delete important-marked msgs other than 'internal.
     (unless (eq (elmo-folder-get-type folder) 'internal)
       (setq delete-list
@@ -2218,7 +2218,7 @@ If optional argument is non-nil, checking is omitted."
        (elmo-msgdb-delete-msgs folder delete-list msgdb t) ; reserve cache.
        ;;(set-buffer cur-buf)
        (wl-summary-delete-messages-on-buffer delete-list "Deleting...")
-       (message "Deleting...done."))
+       (message "Deleting...done"))
       ;;(set-buffer cur-buf)
       ;; Change "New" marks to "Uncached Unread" marks.
       (wl-summary-set-status-marks mark-alist
@@ -2298,7 +2298,7 @@ If optional argument is non-nil, checking is omitted."
                       update-top-list)
              (wl-thread-update-indent-string-thread
               (elmo-uniq-list update-top-list)))
-           (message "Updating thread...done.")
+           (message "Updating thread...done")
            ;;(set-buffer cur-buf)
            ))
       (wl-summary-set-message-modified)
@@ -2309,7 +2309,7 @@ If optional argument is non-nil, checking is omitted."
        (message "Inserting thread...")
        (setq wl-thread-entity-cur 0)
        (wl-thread-insert-top)
-       (message "Inserting thread...done."))
+       (message "Inserting thread...done"))
       (if elmo-use-database
          (elmo-database-close))
       (run-hooks 'wl-summary-sync-updated-hook)
@@ -2438,7 +2438,7 @@ If optional argument is non-nil, checking is omitted."
              (elmo-display-progress
               'wl-summary-highlight-msgs "Highlighting..."
               (/ (* i 100) len)))))
-      (message "Highlighting...done."))))
+      (message "Highlighting...done"))))
 
 (defun wl-summary-message-number ()
   (save-excursion
@@ -2484,7 +2484,7 @@ If optional argument is non-nil, checking is omitted."
          (elmo-msgdb-delete-msgs wl-summary-buffer-folder-name
                                  dels wl-summary-buffer-msgdb t)
          (wl-summary-delete-messages-on-buffer dels)
-         (message "Resuming summary status...done."))
+         (message "Resuming summary status...done"))
        ;; delete resume-file
        (elmo-dop-append-list-save wl-summary-buffer-folder-name nil t)
        (when append-list
@@ -2523,7 +2523,7 @@ If optional argument is non-nil, checking is omitted."
                  (buffer-read-only nil))
              (erase-buffer))
            ;;    (if wl-summary-cache-use (wl-summary-save-view-cache))
-           (message "Deleting...done.")
+           (message "Deleting...done")
            t)
        nil))))
 
@@ -3914,7 +3914,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
     (while (not (eobp))
       (wl-summary-unmark)
       (forward-line))
-    (message "Unmarking...done.")
+    (message "Unmarking...done")
     (setq wl-summary-buffer-target-mark-list nil)
     (setq wl-summary-buffer-delete-list nil)
     (setq wl-summary-buffer-refile-list nil)
@@ -5058,11 +5058,11 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
             nil)
            ((and msg-id (wl-summary-jump-to-msg-by-message-id msg-id))
             (wl-summary-redisplay)
-            (message "Searching parent message...done.")
+            (message "Searching parent message...done")
             t)
            ((and msg-num (wl-summary-jump-to-msg msg-num))
             (wl-summary-redisplay)
-            (message "Searching parent message...done.")
+            (message "Searching parent message...done")
             t)
            (t ; failed.
             (message "Parent message was not found.")
@@ -5918,7 +5918,7 @@ Reply to author if invoked with argument."
                                            (+ wl-summary-buffer-unread-count
                                               wl-summary-buffer-new-count)
                                            sum))
-       (message "Dropping...done."))))
+       (message "Dropping...done"))))
 
 (defun wl-summary-default-get-next-msg (msg)
   (let (next)

diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index fe42c74..8c616ee 100644 (file)
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -114,7 +114,7 @@
       (elmo-set-hash-val (format "#%d" (car (car entities))) (car entities)
                         wl-thread-entity-hashtb)
       (setq entities (cdr entities)))
-    (message "Resuming thread structure...done.")))
+    (message "Resuming thread structure...done")))
 
 (defun wl-thread-save-entity (dir)
   (wl-thread-save-entities dir)
@@ -565,7 +565,7 @@ the closed parent will be opened."
             'wl-thread-close-all "Closing all threads..."
             (/ (* cur 100) len))))
       (setq entities (cdr entities))))
-  (message "Closing all threads...done.")
+  (message "Closing all threads...done")
   (goto-char (point-max)))
 
 (defun wl-thread-open-all ()
@@ -587,7 +587,7 @@ the closed parent will be opened."
             'wl-thread-open-all "Opening all threads..."
             (/ (* cur 100) len))))
       (setq entities (cdr entities))))
-  (message "Opening all threads...done.")
+  (message "Opening all threads...done")
   (goto-char (point-max)))
 
 (defun wl-thread-open-all-unread ()

diff --git a/wl/wl.el b/wl/wl.el
index e093d11..588f5b6 100644 (file)
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -617,7 +617,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
   (wl-folder-info-save)
   (and (featurep 'wl-fldmgr) (wl-fldmgr-exit))
   (wl-crosspost-alist-save)
-  (message "Saving summary and folder status...done."))
+  (message "Saving summary and folder status...done"))
 
 (defun wl-exit ()
   (interactive)
@@ -682,7 +682,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
            (progn
              (message "Checking environment...")
              (wl-check-environment arg)
-             (message "Checking environment...done.")))
+             (message "Checking environment...done")))
        (if demo-buf
            (kill-buffer demo-buf))
        (if succeed