Commit d93ec753 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

* 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.
parent f924a367
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)
......
......@@ -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))
......
......@@ -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)
......
......@@ -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))
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment