[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-utils.el

[Romain Francoise]

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