aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1996-01-04 23:19:43 +0000
committerKarl Heuer1996-01-04 23:19:43 +0000
commit4802af7644a5f13ed68ca41684115678f03c0b02 (patch)
treea7a8c770bb2b30358bc07ff08381ee9f80172c67
parent67bd87ba831b41024935062aea3fd8fd048df9db (diff)
downloademacs-4802af7644a5f13ed68ca41684115678f03c0b02.tar.gz
emacs-4802af7644a5f13ed68ca41684115678f03c0b02.zip
(mail-extr-nuke-outside-range,
mail-extr-all-top-level-domains): Fix message spelling.
-rw-r--r--lisp/mail/mail-extr.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 1d5df8e25ea..772750e11a6 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\".")
645 ;; which lie outside of the range, one character at that position is 645 ;; which lie outside of the range, one character at that position is
646 ;; replaced with a SPC. 646 ;; replaced with a SPC.
647 (or (memq no-replace '(t nil)) 647 (or (memq no-replace '(t nil))
648 (error "no-replace must be t or nil, evalable at macroexpand-time.")) 648 (error "no-replace must be t or nil, evaluable at macroexpand-time."))
649 (` (let ((temp (, list-symbol)) 649 (` (let ((temp (, list-symbol))
650 ch) 650 ch)
651 (while temp 651 (while temp
@@ -1701,7 +1701,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is
1701 1701
1702 ;; If the last thing in the name is 2 or more periods, or one or more 1702 ;; If the last thing in the name is 2 or more periods, or one or more
1703 ;; other sentence terminators (but not a single period) then keep them 1703 ;; other sentence terminators (but not a single period) then keep them
1704 ;; and the preceeding word. This is for the benefit of whole sentences 1704 ;; and the preceding word. This is for the benefit of whole sentences
1705 ;; in the name field: it's better behavior than dropping the last word 1705 ;; in the name field: it's better behavior than dropping the last word
1706 ;; of the sentence... 1706 ;; of the sentence...
1707 (if (and (not suffix-flag) 1707 (if (and (not suffix-flag)
@@ -1740,7 +1740,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is
1740 (narrow-to-region (point) (point-max)))) 1740 (narrow-to-region (point) (point-max))))
1741 1741
1742 ;; Delete leading and trailing junk characters. 1742 ;; Delete leading and trailing junk characters.
1743 ;; *** This is probably completly unneeded now. 1743 ;; *** This is probably completely unneeded now.
1744 ;;(goto-char (point-max)) 1744 ;;(goto-char (point-max))
1745 ;;(skip-chars-backward mail-extr-non-end-name-chars) 1745 ;;(skip-chars-backward mail-extr-non-end-name-chars)
1746 ;;(if (eq ?. (following-char)) 1746 ;;(if (eq ?. (following-char))
@@ -1856,7 +1856,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is
1856 ("kp" "Korea (North)") 1856 ("kp" "Korea (North)")
1857 ("kr" "Korea (South)") 1857 ("kr" "Korea (South)")
1858 ("kw" "Kuwait") 1858 ("kw" "Kuwait")
1859 ("kz" "Kazachstan") 1859 ("kz" "Kazakhstan")
1860 ("lb" "Lebanon") 1860 ("lb" "Lebanon")
1861 ("lc" "St. Lucia") 1861 ("lc" "St. Lucia")
1862 ("li" "Liechtenstein") 1862 ("li" "Liechtenstein")
@@ -1893,7 +1893,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is
1893 ("pk" "Pakistan") 1893 ("pk" "Pakistan")
1894 ("pl" "Poland") 1894 ("pl" "Poland")
1895 ("pr" "Puerto Rico (U.S.)") 1895 ("pr" "Puerto Rico (U.S.)")
1896 ("pt" "Portugal" "The Portugese Republic") 1896 ("pt" "Portugal" "The Portuguese Republic")
1897 ("py" "Paraguay") 1897 ("py" "Paraguay")
1898 ("re" "Reunion (Fr.)") ; In .fr domain 1898 ("re" "Reunion (Fr.)") ; In .fr domain
1899 ("ro" "Romania") 1899 ("ro" "Romania")