From: kaoru <kaoru>
Date: Fri, 14 Dec 2001 08:43:06 +0000 (+0000)
Subject: 2001-12-14  Takuo KITAME <kitame@northeye.org>
X-Git-Tag: wl-2_8-root~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=08ac531c32b398c295ce6fb6536e83304c618221;p=elisp%2Fwanderlust.git

2001-12-14  Takuo KITAME <kitame@northeye.org>

	* wl-acap.el (wl-acap-init): Fixed `y-or-n-p' prompts.
	* wl-folder.el (wl-folder-sync-current-entity, wl-folder-create-subr)
	(wl-folder-mark-as-read-all-current-entity): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9e958e4..7af49f1 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2001-12-14  Takuo KITAME <kitame@northeye.org>
+
+	* wl-acap.el (wl-acap-init): Fixed `y-or-n-p' prompts.
+	* wl-folder.el (wl-folder-sync-current-entity, wl-folder-create-subr)
+	(wl-folder-mark-as-read-all-current-entity): Ditto.
+
 2001-12-13  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-vars.el (wl-from-width): Define as obsolete variable.
diff --git a/wl/wl-acap.el b/wl/wl-acap.el
index f159f30..1329663 100644
--- a/wl/wl-acap.el
+++ b/wl/wl-acap.el
@@ -133,7 +133,7 @@ If nil, default acap port is used."
 						   (expand-file-name
 						    "acap"
 						    elmo-msgdb-directory)))))))
-		(if (y-or-n-p "No ACAP service found. Try cache?")
+		(if (y-or-n-p "No ACAP service found. Try cache? ")
 		    (let (selected rpath alist)
 		      (setq alist
 			    (mapcar
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 0086d1a..9722be7 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1017,7 +1017,7 @@ If current line is group folder, check all subfolders."
     (let ((entity-name (wl-folder-get-entity-from-buffer))
 	  (group (wl-folder-buffer-group-p)))
       (when (and entity-name
-		 (y-or-n-p (format "Sync %s?" entity-name)))
+		 (y-or-n-p (format "Sync %s? " entity-name)))
 	(wl-folder-sync-entity
 	 (if group
 	     (wl-folder-search-group-entity-by-name entity-name
@@ -1068,7 +1068,7 @@ If current line is group folder, all subfolders are marked."
 	  (group (wl-folder-buffer-group-p))
 	  summary-buf)
       (when (and entity-name
-		 (y-or-n-p (format "Mark all messages in %s as read?" entity-name)))
+		 (y-or-n-p (format "Mark all messages in %s as read? " entity-name)))
 	(wl-folder-mark-as-read-all-entity
 	 (if group
 	     (wl-folder-search-group-entity-by-name entity-name
@@ -2735,7 +2735,7 @@ If current line is group folder, all subfolders are prefetched."
 ;	  summary-buf entity)
 ;      (when (and entity-name
 ;		 (y-or-n-p (format
-;			    "Drop all unsync messages in %s?" entity-name)))
+;			    "Drop all unsync messages in %s? " entity-name)))
 ;	(setq entity
 ;	      (if group
 ;		  (wl-folder-search-group-entity-by-name entity-name
@@ -2767,7 +2767,7 @@ Call `wl-summary-write-current-folder' with current folder name."
       (kill-buffer bufname))))
 
 (defun wl-folder-create-subr (folder)
-  (if (y-or-n-p (format "Folder %s does not exist, create it?"
+  (if (y-or-n-p (format "Folder %s does not exist, create it? "
 			(elmo-folder-name-internal folder)))
       (progn
 	(message "")