* 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 5b1a9e9..541e83e 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):
 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.
 
 
        * 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.
 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.
 
        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)
 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 aa4b57a..226fe33 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)? ")
   (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))
   (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 e5d4d3a..d6feaa0 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)))
                 (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)
 
 
 (custom-add-option 'message-setup-hook 'message-check-recipients)
 

diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index c423448..c610446 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:
         (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
      (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)
     (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))
     (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 452e67c..d72bb69 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)))
 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))
   (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
   "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))
   (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
 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)))
 
   (save-excursion
     (let ( (qstring (cdr (assq 'query query)))


@@ -1179,7 +1179,7 @@ Windows NT 4.0."
            score artno dirnam filenam)
 
       (when (equal "" qstring)
            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)
 
       (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
 
   ;; 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)))
 
   (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)
           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)
 
       (set-buffer (get-buffer-create nnir-tmp-buffer))
       (erase-buffer)