From: kaoru <kaoru>
Date: Thu, 19 Oct 2000 13:42:18 +0000 (+0000)
Subject: * wl.el (wl-save-status, wl-init): Remove last period in
X-Git-Tag: wl-2_4-root~113
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e7d7ccfbe7f86092db9723847be8106807d6327e;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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