diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-05 07:14:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-05 07:14:40 +0000 |
| commit | 29565a87223a1ca2223b79227f51fc15f3c8270f (patch) | |
| tree | 9cbbae432436ae0986edf50fd9527f2abfead49e /lisp | |
| parent | 6a994023c4e73dfeb72881d915e2ed17396b2792 (diff) | |
| download | emacs-29565a87223a1ca2223b79227f51fc15f3c8270f.tar.gz emacs-29565a87223a1ca2223b79227f51fc15f3c8270f.tar.bz2 emacs-29565a87223a1ca2223b79227f51fc15f3c8270f.zip | |
(mail-extr-nuke-outside-range): Fix error message.
(mail-extract-address-components, what-domain): Fix error messages.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/mail-extr.el | 6 |
1 files 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))) |