diff options
| author | Karl Heuer | 1996-01-04 23:19:43 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-04 23:19:43 +0000 |
| commit | 4802af7644a5f13ed68ca41684115678f03c0b02 (patch) | |
| tree | a7a8c770bb2b30358bc07ff08381ee9f80172c67 | |
| parent | 67bd87ba831b41024935062aea3fd8fd048df9db (diff) | |
| download | emacs-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.el | 10 |
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") |