From 08ac531c32b398c295ce6fb6536e83304c618221 Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 14 Dec 2001 08:43:06 +0000 Subject: [PATCH] 2001-12-14 Takuo KITAME * 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. --- wl/ChangeLog | 6 ++++++ wl/wl-acap.el | 2 +- wl/wl-folder.el | 8 ++++---- 3 files changed, 11 insertions(+), 5 deletions(-) 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 + + * 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 * 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 "") -- 1.7.10.4