procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mail-extract-address-components): Rename ,-pos to comma-pos.

Browse source
This commit is contained in:
Richard M. Stallman 1996-06-26 21:48:45 +00:00
parent f000f5c5ac
commit dbf0d3f8ca
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/mail/mail-extr.el
View file

@ -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