# HG changeset patch # User Juanma Barranquero # Date 1253750320 0 # Node ID e14dfafc8256e6ba770fea6270a4824705922e3f # Parent 172e1951f385a71ae52a4892c8d7a1ae85100e02 * 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 -r 172e1951f385 -r e14dfafc8256 lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Wed Sep 23 23:55:26 2009 +0000 +++ b/lisp/gnus/ChangeLog Wed Sep 23 23:58:40 2009 +0000 @@ -1,3 +1,11 @@ +2009-09-23 Juanma Barranquero + + * 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 * gnus-diary.el (gnus-diary-check-message): @@ -10778,7 +10786,6 @@ * message.el (message-mode): Set comment-start-skip. - 2004-08-22 Sam Steingold * 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 * gnus-art.el (article-decode-mime-words, article-babel) diff -r 172e1951f385 -r e14dfafc8256 lisp/gnus/gnus-art.el --- a/lisp/gnus/gnus-art.el Wed Sep 23 23:55:26 2009 +0000 +++ b/lisp/gnus/gnus-art.el Wed Sep 23 23:58:40 2009 +0000 @@ -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)) diff -r 172e1951f385 -r e14dfafc8256 lisp/gnus/message.el --- a/lisp/gnus/message.el Wed Sep 23 23:55:26 2009 +0000 +++ b/lisp/gnus/message.el Wed Sep 23 23:58:40 2009 +0000 @@ -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) diff -r 172e1951f385 -r e14dfafc8256 lisp/gnus/mm-util.el --- a/lisp/gnus/mm-util.el Wed Sep 23 23:55:26 2009 +0000 +++ b/lisp/gnus/mm-util.el Wed Sep 23 23:58:40 2009 +0000 @@ -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)) diff -r 172e1951f385 -r e14dfafc8256 lisp/gnus/nnir.el --- a/lisp/gnus/nnir.el Wed Sep 23 23:55:26 2009 +0000 +++ b/lisp/gnus/nnir.el Wed Sep 23 23:58:40 2009 +0000 @@ -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)