Mercurial > emacs
changeset 14029:8812f5ef65db
(mail-extr-nuke-outside-range): Fix error message.
(mail-extract-address-components, what-domain): Fix error messages.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 05 Jan 1996 07:14:40 +0000 |
| parents | e8d6c760f796 |
| children | 33b3923c36b9 |
| files | lisp/mail/mail-extr.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mail-extr.el Fri Jan 05 06:03:24 1996 +0000 +++ b/lisp/mail/mail-extr.el Fri Jan 05 07:14:40 1996 +0000 @@ -645,7 +645,7 @@ ;; 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 @@ ((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 @@ 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)))