Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
dbf0d3f8
Commit
dbf0d3f8
authored
Jun 26, 1996
by
Richard M. Stallman
Browse files
(mail-extract-address-components): Rename ,-pos to comma-pos.
parent
f000f5c5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
lisp/mail/mail-extr.el
lisp/mail/mail-extr.el
+4
-4
No files found.
lisp/mail/mail-extr.el
View file @
dbf0d3f8
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment