From 29565a87223a1ca2223b79227f51fc15f3c8270f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 5 Jan 1996 07:14:40 +0000 Subject: [PATCH] (mail-extr-nuke-outside-range): Fix error message. (mail-extract-address-components, what-domain): Fix error messages. --- lisp/mail/mail-extr.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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))) -- 2.39.2