[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-utils.el
From: |
Romain Francoise |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-utils.el |
Date: |
Sat, 24 Sep 2005 09:45:52 -0400 |
Index: emacs/lisp/mh-e/mh-utils.el
diff -c emacs/lisp/mh-e/mh-utils.el:1.13 emacs/lisp/mh-e/mh-utils.el:1.14
*** emacs/lisp/mh-e/mh-utils.el:1.13 Mon Jul 4 17:15:52 2005
--- emacs/lisp/mh-e/mh-utils.el Sat Sep 24 13:45:49 2005
***************
*** 2315,2324 ****
when used in searching."
(if (null default)
(setq default ""))
! (let* ((default-string (cond (default-string (format "[%s] "
default-string))
((equal "" default) "")
! (t (format "[%s] " default))))
! (prompt (format "%s folder: %s" prompt default-string))
(mh-current-folder-name mh-current-folder)
read-name folder-name)
(while (and (setq read-name (mh-folder-completing-read
--- 2315,2324 ----
when used in searching."
(if (null default)
(setq default ""))
! (let* ((default-string (cond (default-string (format " (default %s)"
default-string))
((equal "" default) "")
! (t (format " (default %s)" default))))
! (prompt (format "%s folder%s: " prompt default-string))
(mh-current-folder-name mh-current-folder)
read-name folder-name)
(while (and (setq read-name (mh-folder-completing-read
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mh-e/mh-utils.el,
Romain Francoise <=