From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 5 Jan 1996 07:14:40 +0000 (+0000)
Subject: (mail-extr-nuke-outside-range): Fix error message.
X-Git-Tag: emacs-19.34~1831
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=29565a87223a1ca2223b79227f51fc15f3c8270f;p=emacs.git

(mail-extr-nuke-outside-range): Fix error message.
(mail-extract-address-components, what-domain): Fix error messages.
---

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 772750e11a6..2d84609bf42 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -645,7 +645,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".")
   ;;  which lie outside of the range, one character at that position is
   ;;  replaced with a SPC.
   (or (memq no-replace '(t nil))
-      (error "no-replace must be t or nil, evaluable at macroexpand-time."))
+      (error "no-replace must be t or nil, evaluable at macroexpand-time"))
   (` (let ((temp (, list-symbol))
 	   ch)
        (while temp
@@ -759,7 +759,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is
 	    ((bufferp address)
 	     (insert-buffer-substring address))
 	    (t
-	     (error "Illegal address: %s" address)))
+	     (error "Invalid address: %s" address)))
       
       ;; stolen from rfc822.el
       ;; Unfold multiple lines.
@@ -1955,7 +1955,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is
 			    mail-extr-all-top-level-domains nil t))))
   (or (setq domain (intern-soft (downcase domain)
 				mail-extr-all-top-level-domains))
-      (error "no such domain"))
+      (error "No such domain"))
   (message "%s: %s" (upcase (symbol-name domain)) (get domain 'domain-name)))