* emulation/cua-base.el (cua-set-mark): Fix case of string.

lisp/ChangeLog

+2011-10-20  Christoph Scholtes  <cschol2112@googlemail.com>
+
+	* emulation/cua-base.el (cua-set-mark): Fix case of string.
+
 2011-10-20  Chong Yidong  <cyd@gnu.org>
 
 	* emulation/cua-base.el (cua-mode):

lisp/emulation/cua-base.el

@@ -1121,7 +1121,7 @@ With a double \\[universal-argument] prefix argument, unconditionally set mark."
 	(pop-to-mark-command)))
    ((and cua-toggle-set-mark mark-active)
     (cua--deactivate)
-    (message "Mark Cleared"))
+    (message "Mark cleared"))
    (t
     (push-mark-command nil nil)
     (setq cua--explicit-region-start t)