Mercurial > emacs
changeset 21477:a61dfbd23534
(mail-extract-address-components):
Rename local :-pos to colon-pos.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 12 Apr 1998 06:43:56 +0000 |
| parents | bf0a3e277594 |
| children | 54680b998295 |
| files | lisp/mail/mail-extr.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mail-extr.el Sun Apr 12 06:41:01 1998 +0000 +++ b/lisp/mail/mail-extr.el Sun Apr 12 06:43:56 1998 +0000 @@ -786,7 +786,7 @@ (not (eobp)))) (let (char end-of-address - <-pos >-pos @-pos :-pos comma-pos !-pos %-pos \;-pos + <-pos >-pos @-pos colon-pos comma-pos !-pos %-pos \;-pos group-:-pos group-\;-pos route-addr-:-pos record-pos-symbol first-real-pos last-real-pos @@ -881,7 +881,7 @@ ((setq record-pos-symbol (cdr (assq char '((?< . <-pos) (?> . >-pos) (?@ . @-pos) - (?: . :-pos) (?, . comma-pos) (?! . !-pos) + (?: . colon-pos) (?, . comma-pos) (?! . !-pos) (?% . %-pos) (?\; . \;-pos))))) (set record-pos-symbol (cons (point) (symbol-value record-pos-symbol))) @@ -921,7 +921,7 @@ ;; Example: @foo.bar.dom,@xxx.yyy.zzz:mailbox@aaa.bbb.ccc ;; This commonly happens on the UUCP "From " line. Ugh. (cond ((and (> (length @-pos) 1) - (eq 1 (length :-pos)) ;TODO: check if between last two @s + (eq 1 (length colon-pos)) ;TODO: check if between last two @s (not \;-pos) (not <-pos)) (goto-char (point-min)) @@ -961,9 +961,9 @@ ;; Check for : that indicates GROUP list and for : part of ;; ROUTE-ADDR spec. ;; Can't possibly be more than two :. Nuke any extra. - (while :-pos - (setq temp (car :-pos) - :-pos (cdr :-pos)) + (while colon-pos + (setq temp (car colon-pos) + colon-pos (cdr colon-pos)) (cond ((and <-pos >-pos (> temp <-pos) (< temp >-pos))