diff options
| author | Richard M. Stallman | 1996-06-26 21:48:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-26 21:48:45 +0000 |
| commit | dbf0d3f8cabf1ff983dba64e640933a50b71a1db (patch) | |
| tree | dcfbe38578b403a6a0f92223db04bfe0b7845bf7 | |
| parent | f000f5c5ac061ad8075841b9c8fb2019ae5fc531 (diff) | |
| download | emacs-dbf0d3f8cabf1ff983dba64e640933a50b71a1db.tar.gz emacs-dbf0d3f8cabf1ff983dba64e640933a50b71a1db.zip | |
(mail-extract-address-components): Rename ,-pos to comma-pos.
| -rw-r--r-- | lisp/mail/mail-extr.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index aab34e9fd9e..e72dd2762d8 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el | |||
| @@ -730,7 +730,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is | |||
| 730 | (extraction-buffer (get-buffer-create " *extract address components*")) | 730 | (extraction-buffer (get-buffer-create " *extract address components*")) |
| 731 | char | 731 | char |
| 732 | ;; multiple-addresses | 732 | ;; multiple-addresses |
| 733 | <-pos >-pos @-pos :-pos ,-pos !-pos %-pos \;-pos | 733 | <-pos >-pos @-pos :-pos comma-pos !-pos %-pos \;-pos |
| 734 | group-:-pos group-\;-pos route-addr-:-pos | 734 | group-:-pos group-\;-pos route-addr-:-pos |
| 735 | record-pos-symbol | 735 | record-pos-symbol |
| 736 | first-real-pos last-real-pos | 736 | first-real-pos last-real-pos |
| @@ -849,7 +849,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is | |||
| 849 | ((setq record-pos-symbol | 849 | ((setq record-pos-symbol |
| 850 | (cdr (assq char | 850 | (cdr (assq char |
| 851 | '((?< . <-pos) (?> . >-pos) (?@ . @-pos) | 851 | '((?< . <-pos) (?> . >-pos) (?@ . @-pos) |
| 852 | (?: . :-pos) (?, . \,-pos) (?! . !-pos) | 852 | (?: . :-pos) (?, . comma-pos) (?! . !-pos) |
| 853 | (?% . %-pos) (?\; . \;-pos))))) | 853 | (?% . %-pos) (?\; . \;-pos))))) |
| 854 | (set record-pos-symbol | 854 | (set record-pos-symbol |
| 855 | (cons (point) (symbol-value record-pos-symbol))) | 855 | (cons (point) (symbol-value record-pos-symbol))) |
| @@ -978,7 +978,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is | |||
| 978 | (mail-extr-nuke-outside-range !-pos group-:-pos group-\;-pos t) | 978 | (mail-extr-nuke-outside-range !-pos group-:-pos group-\;-pos t) |
| 979 | (mail-extr-nuke-outside-range @-pos group-:-pos group-\;-pos t) | 979 | (mail-extr-nuke-outside-range @-pos group-:-pos group-\;-pos t) |
| 980 | (mail-extr-nuke-outside-range %-pos group-:-pos group-\;-pos t) | 980 | (mail-extr-nuke-outside-range %-pos group-:-pos group-\;-pos t) |
| 981 | (mail-extr-nuke-outside-range ,-pos group-:-pos group-\;-pos t) | 981 | (mail-extr-nuke-outside-range comma-pos group-:-pos group-\;-pos t) |
| 982 | (and last-real-pos | 982 | (and last-real-pos |
| 983 | (> last-real-pos (1+ group-\;-pos)) | 983 | (> last-real-pos (1+ group-\;-pos)) |
| 984 | (setq last-real-pos (1+ group-\;-pos))) | 984 | (setq last-real-pos (1+ group-\;-pos))) |
| @@ -1004,7 +1004,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is | |||
| 1004 | ;; Hell, go ahead an nuke all of the commas. | 1004 | ;; Hell, go ahead an nuke all of the commas. |
| 1005 | ;; **** This will cause problems when we start handling commas in | 1005 | ;; **** This will cause problems when we start handling commas in |
| 1006 | ;; the PHRASE part .... no it won't ... yes it will ... ????? | 1006 | ;; the PHRASE part .... no it won't ... yes it will ... ????? |
| 1007 | (mail-extr-nuke-outside-range ,-pos 1 1) | 1007 | (mail-extr-nuke-outside-range comma-pos 1 1) |
| 1008 | 1008 | ||
| 1009 | ;; can only have multiple @s inside < >. The fact that some MTAs | 1009 | ;; can only have multiple @s inside < >. The fact that some MTAs |
| 1010 | ;; put de-bracketed ROUTE-ADDRs in the UUCP-style "From " line is | 1010 | ;; put de-bracketed ROUTE-ADDRs in the UUCP-style "From " line is |