procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mail-extr-nuke-outside-range): Fix error message.

Browse source 
(mail-extract-address-components, what-domain): Fix error messages.
This commit is contained in:
Richard M. Stallman 1996-01-05 07:14:40 +00:00
parent 6a994023c4
commit 29565a8722
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/mail-extr.el
View file

@ -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)))