contrib: Fix error messages.

* contrib/lisp/ob-eukleides.el (org-babel-execute:eukleides):
* contrib/lisp/ob-oz.el (org-babel-execute:oz):
* contrib/lisp/ob-tcl.el (org-babel-prep-session:tcl):
(org-babel-tcl-evaluate):
* contrib/lisp/org-contacts.el (org-contacts-view-send-email):
* contrib/lisp/org-drill.el (org-drill-hide-heading-at-point):
* contrib/lisp/org-mew.el (org-mew-search):
(org-mew-capture):
* contrib/lisp/org-toc.el (org-toc-forward):
* contrib/lisp/ox-freemind.el (org-freemind--build-node-contents): Fix
formatting of error messages.

contrib/lisp/ob-eukleides.el

@@ -81,7 +81,7 @@ This function is called by `org-babel-execute-src-block'."
             (shell-command (format org-eukleides-eps-to-raster
                                     (concat (file-name-sans-extension out-file) ".eps")
                                     (concat (file-name-sans-extension out-file) ".png")))
-          (error "Conversion to PNG not supported. use a file with an EPS name")))
+          (error "Conversion to PNG not supported.  Use a file with an EPS name")))
 
     (with-temp-file in-file (insert body))
     (message "%s" cmd) (org-babel-eval cmd "")

contrib/lisp/ob-oz.el

@@ -226,7 +226,7 @@ called by `org-babel-execute-src-block' via multiple-value-bind."
       ((member "value" result-params)
        (message "Org-babel: executing Oz expression")
        (oz-send-string-expression full-body (or wait-time 1)))
-      (t (error "either 'output' or 'results' must be members of :results.")))
+      (t (error "either 'output' or 'results' must be members of :results")))
      (org-babel-pick-name (cdr (assoc :colname-names params))
 			  (cdr (assoc :colnames params)))
      (org-babel-pick-name (cdr (assoc :roname-names params))

contrib/lisp/ob-tcl.el

@@ -62,7 +62,7 @@ This function is called by `org-babel-execute-src-block'."
 
 (defun org-babel-prep-session:tcl (session params)
   "Prepare SESSION according to the header arguments in PARAMS."
-  (error "Sessions are not supported for Tcl."))
+  (error "Sessions are not supported for Tcl"))
 
 (defun org-babel-variable-assignments:tcl (params)
   "Return list of tcl statements assigning the block's variables."
@@ -111,7 +111,7 @@ close $o
 If RESULT-TYPE equals 'output then return a list of the outputs
 of the statements in BODY, if RESULT-TYPE equals 'value then
 return the value of the last statement in BODY, as elisp."
-  (when session (error "Sessions are not supported for Tcl."))
+  (when session (error "Sessions are not supported for Tcl"))
   (case result-type
     (output (org-babel-eval org-babel-tcl-command body))
     (value (let ((tmp-file (org-babel-temp-file "tcl-")))

contrib/lisp/org-contacts.el

@@ -882,7 +882,7 @@ address."
 		  (setq email (org-contacts-strip-link email))
                   (org-contacts-check-mail-address email)
                   (compose-mail (org-contacts-format-email (org-get-heading t) email)))))
-          (error (format "This contact has no mail address set (no %s property)."
+          (error (format "This contact has no mail address set (no %s property)"
                          org-contacts-email-property)))))))
 
 (defun org-contacts-get-icon (&optional pom)

contrib/lisp/org-drill.el

@@ -1525,7 +1525,7 @@ visual overlay, or with the string TEXT if it is supplied."
 
 (defun org-drill-hide-heading-at-point (&optional text)
   (unless (org-at-heading-p)
-    (error "Point is not on a heading."))
+    (error "Point is not on a heading"))
   (save-excursion
     (let ((beg (point)))
       (end-of-line)

contrib/lisp/org-mew.el

@@ -308,7 +308,7 @@ the subject and the group number to extract.  You can get rid of
 		org-mew-subject-alist))
 	(setq id-list (cons subject id-list)))
       (cond ((null id-list)
-	     (error "No message ID to search."))
+	     (error "No message ID to search"))
 	    ((equal (length id-list) 1)
 	     (org-search-view nil (car id-list)))
 	    (t
@@ -342,7 +342,7 @@ asks you to select the capture template."
 	    (mew-message-goto-summary))
 	(let ((mew-mark-afterstep-spec '((?o 0 0 0 0 0 0 0))))
 	  (mew-summary-refile)))
-      (error "No refile folder selected."))
+      (error "No refile folder selected"))
   (let* ((org-mew-link-to-refile-destination t)
 	 (folder-name (org-mew-folder-name))
 	 (keys (if arg

contrib/lisp/org-toc.el

@@ -338,7 +338,7 @@ If DELETE is non-nil, delete other windows when in the Org buffer."
   (interactive)
   (condition-case nil
       (outline-forward-same-level 1)
-    (error (message "No next headline at this level.")))
+    (error (message "No next headline at this level")))
   (if org-toc-info-mode (org-toc-info))
   (if org-toc-follow-mode (org-toc-goto)))
 
@@ -347,7 +347,7 @@ If DELETE is non-nil, delete other windows when in the Org buffer."
   (interactive)
   (condition-case nil
       (outline-backward-same-level 1)
-    (error (message "No previous headline at this level.")))
+    (error (message "No previous headline at this level")))
   (if org-toc-info-mode (org-toc-info))
   (if org-toc-follow-mode (org-toc-goto)))
 

contrib/lisp/ox-freemind.el

@@ -312,7 +312,7 @@ will result in following node:
 		   (org-element-property :title element))
 		  (org-data
 		   (plist-get info :title))
-		  (t (error "Shouldn't come here."))))
+		  (t (error "Shouldn't come here"))))
 	 (element-contents (org-element-contents element))
 	 (section (assq 'section element-contents))
 	 (section-contents