* mm updates

2011-11-09 08:55:39 +02:00
parent bebcf53d3b
commit 7a4ad0bc0b
2 changed files with 19 additions and 18 deletions
--- a/toys/mm/mm.el
+++ b/toys/mm/mm.el
@ -472,9 +472,9 @@ maildirs under `mm/maildir."
 	    (kar (read-char (concat prompt fnames))))
      (if (= kar ?o) ;; user chose 'other'?
 	(ido-completing-read prompt (mm/get-sub-maildirs mm/maildir))
-	(unless (car-safe
-		  (find-if (lambda (item) (= kar (cdr item))) mm/maildir-shortcuts))
-	  (error "Invalid shortcut"))))))
+	(or
+	  (car-safe (find-if (lambda (item) (= kar (cdr item))) mm/maildir-shortcuts))
+	  (error "Invalid shortcut '%c'" kar))))))
  

 (defun mm/new-buffer (bufname)