From dbf0d3f8cabf1ff983dba64e640933a50b71a1db Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 26 Jun 1996 21:48:45 +0000 Subject: [PATCH] (mail-extract-address-components): Rename ,-pos to comma-pos. --- lisp/mail/mail-extr.el | 8 ++++---- 1 file 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 -- 2.39.2