* 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.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5b1a9e9e9e025437390b8c761a0462f418f0c1d3..541e83ee714e389702d3d0893f6d8596ac00e378 100644 (file)
--- 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 aa4b57ab3e0053314a938b9cebf8b9823dde2618..226fe33f221f94d15757192bfae85345e25a298c 100644 (file)
--- 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 e5d4d3a44649a65be732cb2b7d17dae71a930a48..d6feaa0b3466fc9c805206db92c20ec089557c77 100644 (file)
--- 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 c423448d2b19d6a41644aa07a5692dbb26417ef6..c6104462d7b80b75afdf28dd386fef6b56fef5d2 100644 (file)
--- 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 452e67caa23c2d8e4b0277dd18ca365b8516ff1a..d72bb69d52ca35a5296ae3fae97f070d2345a2e5 100644 (file)
--- 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)