2315 |
when used in searching." |
when used in searching." |
2316 |
(if (null default) |
(if (null default) |
2317 |
(setq default "")) |
(setq default "")) |
2318 |
(let* ((default-string (cond (default-string (format "[%s] " default-string)) |
(let* ((default-string (cond (default-string (format " (default %s)" default-string)) |
2319 |
((equal "" default) "") |
((equal "" default) "") |
2320 |
(t (format "[%s] " default)))) |
(t (format " (default %s)" default)))) |
2321 |
(prompt (format "%s folder: %s" prompt default-string)) |
(prompt (format "%s folder%s: " prompt default-string)) |
2322 |
(mh-current-folder-name mh-current-folder) |
(mh-current-folder-name mh-current-folder) |
2323 |
read-name folder-name) |
read-name folder-name) |
2324 |
(while (and (setq read-name (mh-folder-completing-read |
(while (and (setq read-name (mh-folder-completing-read |