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 (file)
--- 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 (file)
--- 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 (file)
--- 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 "")