From d93ec753516a2bc0482d380a96bd471db75b8586 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 23 Sep 2009 23:58:40 +0000 Subject: [PATCH] * 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. --- lisp/gnus/ChangeLog | 10 ++++++++-- lisp/gnus/gnus-art.el | 2 +- lisp/gnus/message.el | 2 +- lisp/gnus/mm-util.el | 4 ++-- lisp/gnus/nnir.el | 12 ++++++------ 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 + + * 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 --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) -- 2.39.2