[Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-art.el message.e...

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/09/23 23:58:42

Modified files:
        lisp/gnus      : ChangeLog gnus-art.el message.el mm-util.el 
                         nnir.el 

Log message:
        * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.830&r2=1.831
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-art.el?cvsroot=emacs&r1=1.185&r2=1.186
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/message.el?cvsroot=emacs&r1=1.172&r2=1.173
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/mm-util.el?cvsroot=emacs&r1=1.85&r2=1.86
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/nnir.el?cvsroot=emacs&r1=1.6&r2=1.7

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.830
retrieving revision 1.831
diff -u -b -r1.830 -r1.831
--- ChangeLog   18 Sep 2009 07:39:56 -0000      1.830
+++ ChangeLog   23 Sep 2009 23:58:40 -0000      1.831
@@ -1,3 +1,11 @@
+2009-09-23  Juanma Barranquero  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus-diary.el (gnus-diary-check-message):
@@ -10778,7 +10786,6 @@
 
        * message.el (message-mode): Set comment-start-skip.
 
-
 2004-08-22  Sam Steingold  <address@hidden>
 
        * 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  <address@hidden>
 
        * gnus-art.el (article-decode-mime-words, article-babel)

Index: gnus-art.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-art.el,v
retrieving revision 1.185
retrieving revision 1.186
diff -u -b -r1.185 -r1.186
--- gnus-art.el 9 Sep 2009 09:28:44 -0000       1.185
+++ gnus-art.el 23 Sep 2009 23:58:40 -0000      1.186
@@ -8322,7 +8322,7 @@
   (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))

Index: message.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/message.el,v
retrieving revision 1.172
retrieving revision 1.173
diff -u -b -r1.172 -r1.173
--- message.el  18 Sep 2009 07:39:57 -0000      1.172
+++ message.el  23 Sep 2009 23:58:41 -0000      1.173
@@ -4247,7 +4247,7 @@
                 (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)
 

Index: mm-util.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/mm-util.el,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -b -r1.85 -r1.86
--- mm-util.el  4 Sep 2009 02:47:27 -0000       1.85
+++ mm-util.el  23 Sep 2009 23:58:41 -0000      1.86
@@ -315,7 +315,7 @@
         (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 @@
     (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))

Index: nnir.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnir.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- nnir.el     29 Aug 2009 03:03:23 -0000      1.6
+++ nnir.el     23 Sep 2009 23:58:42 -0000      1.7
@@ -690,7 +690,7 @@
 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 @@
   "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 @@
 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 @@
            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 @@
 
   ;; 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 @@
           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)