diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-26 21:48:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-26 21:48:45 +0000 |
| commit | 1b29e15287b791af1c90134e0db550585b41395d (patch) | |
| tree | 6164e8ce6ab44d9a0ffe028cb2b21692a7d44f26 | |
| parent | bdfc248155c9bcea60068c73a7afacc792f7c439 (diff) | |
| download | emacs-1b29e15287b791af1c90134e0db550585b41395d.tar.gz | |
(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 (extraction-buffer (get-buffer-create " *extract address components*")) char ;; multiple-addresses - <-pos >-pos @-pos :-pos ,-pos !-pos %-pos \;-pos + <-pos >-pos @-pos :-pos comma-pos !-pos %-pos \;-pos group-:-pos group-\;-pos route-addr-:-pos record-pos-symbol first-real-pos last-real-pos @@ -849,7 +849,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is ((setq record-pos-symbol (cdr (assq char '((?< . <-pos) (?> . >-pos) (?@ . @-pos) - (?: . :-pos) (?, . \,-pos) (?! . !-pos) + (?: . :-pos) (?, . comma-pos) (?! . !-pos) (?% . %-pos) (?\; . \;-pos))))) (set record-pos-symbol (cons (point) (symbol-value record-pos-symbol))) @@ -978,7 +978,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is (mail-extr-nuke-outside-range !-pos group-:-pos group-\;-pos t) (mail-extr-nuke-outside-range @-pos group-:-pos group-\;-pos t) (mail-extr-nuke-outside-range %-pos group-:-pos group-\;-pos t) - (mail-extr-nuke-outside-range ,-pos group-:-pos group-\;-pos t) + (mail-extr-nuke-outside-range comma-pos group-:-pos group-\;-pos t) (and last-real-pos (> last-real-pos (1+ group-\;-pos)) (setq last-real-pos (1+ group-\;-pos))) @@ -1004,7 +1004,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is ;; Hell, go ahead an nuke all of the commas. ;; **** This will cause problems when we start handling commas in ;; the PHRASE part .... no it won't ... yes it will ... ????? - (mail-extr-nuke-outside-range ,-pos 1 1) + (mail-extr-nuke-outside-range comma-pos 1 1) ;; can only have multiple @s inside < >. The fact that some MTAs ;; put de-bracketed ROUTE-ADDRs in the UUCP-style "From " line is |