Mercurial > emacs
changeset 15520:4b152daa5b1d
(mail-extract-address-components): Rename ,-pos to comma-pos.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 26 Jun 1996 21:48:45 +0000 |
| parents | 045a36502ad4 |
| children | 2b61a33a4576 |
| files | lisp/mail/mail-extr.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mail-extr.el Wed Jun 26 18:16:08 1996 +0000 +++ b/lisp/mail/mail-extr.el Wed Jun 26 21:48:45 1996 +0000 @@ -730,7 +730,7 @@ (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 @@ ((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 @@ (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 @@ ;; 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