From a10cc37863dc58d6e0358faa9a8807f318153773 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Mon, 11 Nov 2002 05:15:18 +0000
Subject: [PATCH] Synch with the semi-1_14 branch.

---
 mime-edit.el  |    6 +++---
 mime-image.el |    2 +-
 mime-mc.el    |    4 ++--
 mime-play.el  |    4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/mime-edit.el b/mime-edit.el
index a2ce830..10dd89a 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -1487,7 +1487,7 @@ Optional DELIMITER specifies parameter delimiter (';' by default)."
 
 (defun mime-prompt-for-parameter (parameter)
   "Ask for PARAMETER.
-Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
+Parameter must be '(PROMPT CHOICE1 (CHOICE2...))."
   (let* ((prompt (car parameter))
 	 (choices (mapcar (function
 			   (lambda (e)
@@ -2427,7 +2427,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 	  (message (format "Sending %d/%d..."
 			   mime-edit-partial-number total))
 	  (call-interactively command)
-	  (message (format "Sending %d/%d... done"
+	  (message (format "Sending %d/%d...done"
 			   mime-edit-partial-number total)))
 	(setq mime-edit-partial-number
 	      (1+ mime-edit-partial-number)))
@@ -2442,7 +2442,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
       (save-excursion
 	(message (format "Sending %d/%d..."
 			 mime-edit-partial-number total))
-	(message (format "Sending %d/%d... done"
+	(message (format "Sending %d/%d...done"
 			 mime-edit-partial-number total))))))
 
 (defun mime-edit-maybe-split-and-send (&optional cmd)
diff --git a/mime-image.el b/mime-image.el
index 1a584f8..07f718f 100644
--- a/mime-image.el
+++ b/mime-image.el
@@ -197,7 +197,7 @@
       (save-excursion
 	(mime-image-insert image)
 	(insert "\n")
-	(message "Decoding image... done")))))
+	(message "Decoding image...done")))))
 
 ;;; @ end
 ;;;
diff --git a/mime-mc.el b/mime-mc.el
index 52314b3..a166c98 100644
--- a/mime-mc.el
+++ b/mime-mc.el
@@ -125,7 +125,7 @@ Content-Transfer-Encoding: 7bit
 		 "+batchmode" "-u" (cdr key))))
     (if mc-pgp-comment
 	(setq args (cons (format "+comment=%s" mc-pgp-comment) args)))
-    (message "Signing as %s ..." (car key))
+    (message "Signing as %s..." (car key))
     (if (mime-mc-process-region
 	 start end passwd pgp-path args parser buffer boundary)
 	(progn
@@ -137,7 +137,7 @@ Content-Transfer-Encoding: 7bit
 --[[multipart/signed; protocol=\"application/pgp-signature\";
  boundary=\"%s\"; micalg=pgp-md5][7bit]]\n" boundary))
 		))
-	  (message "Signing as %s ... Done." (car key))
+	  (message "Signing as %s...done" (car key))
 	  t)
       nil)))
 
diff --git a/mime-play.el b/mime-play.el
index d53ee2f..a5cbe3e 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -442,7 +442,7 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 	 (directory (cdr (assoc "directory" cal)))
 	 (name (cdr (assoc "name" cal)))
 	 (pathname (concat "/anonymous@" site ":" directory)))
-    (message (concat "Accessing " (expand-file-name name pathname) " ..."))
+    (message (concat "Accessing " (expand-file-name name pathname) "..."))
     (funcall mime-raw-dired-function pathname)
     (goto-char (point-min))
     (search-forward name)))
@@ -451,7 +451,7 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 
 (defun mime-view-message/external-url (entity cal)
   (let ((url (cdr (assoc "url" cal))))
-    (message (concat "Accessing " url " ..."))
+    (message (concat "Accessing " url "..."))
     (funcall mime-raw-browse-url-function url)))
 
 
-- 
1.7.10.4