* gnus-art.el (gnus-article-encrypt-body):

* message.el (message-check-recipients):
* mm-util.el (mm-codepage-setup):
* nnir.el (gnus-summary-nnir-goto-thread, nnir-run-waissearch)
  (nnir-run-swish++, nnir-run-swish-e): Fix typos in error messages.

5 files changed, 18 insertions, 12 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5b1a9e9e9e0..541e83ee714 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,11 @@
+2009-09-23  Juanma Barranquero  <lekktu@gmail.com>
+
+	* gnus-art.el (gnus-article-encrypt-body):
+	* message.el (message-check-recipients):
+	* mm-util.el (mm-codepage-setup):
+	* nnir.el (gnus-summary-nnir-goto-thread, nnir-run-waissearch)
+	(nnir-run-swish++, nnir-run-swish-e): Fix typos in error messages.
+
 2009-09-18  Glenn Morris  <rgm@gnu.org>
 
 	* gnus-diary.el (gnus-diary-check-message):
@@ -10778,7 +10786,6 @@
 
 	* message.el (message-mode): Set comment-start-skip.
 
-
 2004-08-22  Sam Steingold  <sds@gnu.org>
 
 	* pop3.el (pop3-leave-mail-on-server): New user variable.
@@ -13107,7 +13114,6 @@
 	macros (gnus-group-entry, gnus-group-unread, gnus-info-marks etc.)
 	to get group information for improved readability.
 
-
 2004-01-09  Jesper Harder  <harder@ifa.au.dk>
 
 	* gnus-art.el (article-decode-mime-words, article-babel)
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index aa4b57ab3e0..226fe33f221 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -8322,7 +8322,7 @@ For example:
   (when (and gnus-article-encrypt-protocol
 	     gnus-novice-user)
     (unless (gnus-y-or-n-p "Really encrypt article(s)? ")
-      (error "Encrypt aborted.")))
+      (error "Encrypt aborted")))
   (let ((func (cdr (assoc protocol gnus-article-encrypt-protocol-alist))))
     (unless func
       (error "Can't find the encrypt protocol %s" protocol))
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index e5d4d3a4464..d6feaa0b346 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4247,7 +4247,7 @@ This function could be useful in `message-setup-hook'."
 		 (not (y-or-n-p
 		       (format
 			"Address `%s' might be bogus.  Continue? " bog)))
-		 (error "Bogus address."))))))))
+		 (error "Bogus address"))))))))
 
 (custom-add-option 'message-setup-hook 'message-check-recipients)
 
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index c423448d2b1..c6104462d7b 100644
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -315,7 +315,7 @@ the alias.  Else windows-NUMBER is used."
 	 (candidates (if (fboundp 'cp-supported-codepages)
 			 (cp-supported-codepages)
 		       ;; Removed in Emacs 23 (unicode), so signal an error:
-		       (error "`codepage-setup' not present in this Emacs version."))))
+		       (error "`codepage-setup' not present in this Emacs version"))))
      (list (completing-read "Setup DOS Codepage: (default 437) " candidates
 			    nil t nil nil "437"))))
   (when alias
@@ -326,7 +326,7 @@ the alias.  Else windows-NUMBER is used."
     (unless (mm-coding-system-p cp)
       (if (fboundp 'codepage-setup)	; silence compiler
 	  (codepage-setup number)
-	(error "`codepage-setup' not present in this Emacs version.")))
+	(error "`codepage-setup' not present in this Emacs version")))
     (when (and alias
 	       ;; Don't add alias if setup of cp failed.
 	       (mm-coding-system-p cp))
diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 452e67caa23..d72bb69d52c 100644
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -690,7 +690,7 @@ The returned format is as `gnus-server-to-method' needs it.  See
 and show thread that contains this article."
   (interactive)
   (unless (eq 'nnir (car (gnus-find-method-for-group gnus-newsgroup-name)))
-    (error "Can't execute this command unless in nnir group."))
+    (error "Can't execute this command unless in nnir group"))
   (let* ((cur (gnus-summary-article-number))
          (group (nnir-artlist-artitem-group nnir-artlist cur))
          (backend-number (nnir-artlist-artitem-number nnir-artlist cur))
@@ -889,7 +889,7 @@ ready to be added to the list of search results."
   "Run given query agains waissearch.  Returns vector of (group name, file name)
 pairs (also vectors, actually)."
   (when group
-    (error "The freeWAIS-sf backend cannot search specific groups."))
+    (error "The freeWAIS-sf backend cannot search specific groups"))
   (save-excursion
     (let ((qstring (cdr (assq 'query query)))
 	  (prefix (nnir-read-server-parm 'nnir-wais-remove-prefix server))
@@ -1162,7 +1162,7 @@ Tested with swish++ 4.7 on GNU/Linux and with swish++ 5.0b2 on
 Windows NT 4.0."
 
   (when group
-    (error "The swish++ backend cannot search specific groups."))
+    (error "The swish++ backend cannot search specific groups"))
 
   (save-excursion
     (let ( (qstring (cdr (assq 'query query)))
@@ -1179,7 +1179,7 @@ Windows NT 4.0."
            score artno dirnam filenam)
 
       (when (equal "" qstring)
-        (error "swish++: You didn't enter anything."))
+        (error "swish++: You didn't enter anything"))
 
       (set-buffer (get-buffer-create nnir-tmp-buffer))
       (erase-buffer)
@@ -1251,7 +1251,7 @@ Tested with swish-e-2.0.1 on Windows NT 4.0."
 
   ;; swish-e crashes with empty parameter to "-w" on commandline...
   (when group
-    (error "The swish-e backend cannot search specific groups."))
+    (error "The swish-e backend cannot search specific groups"))
 
   (save-excursion
     (let ((qstring (cdr (assq 'query query)))
@@ -1261,7 +1261,7 @@ Tested with swish-e-2.0.1 on Windows NT 4.0."
           artlist score artno dirnam group )
 
       (when (equal "" qstring)
-        (error "swish-e: You didn't enter anything."))
+        (error "swish-e: You didn't enter anything"))
 
       (set-buffer (get-buffer-create nnir-tmp-buffer))
       (erase-buffer)