# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 892363436 0
# Node ID a61dfbd23534025d160f0611a07b3bbb6860700a
# Parent  bf0a3e277594ad512798c6e37bdda6a09e13abe3
(mail-extract-address-components):
Rename local :-pos to colon-pos.

diff -r bf0a3e277594 -r a61dfbd23534 lisp/mail/mail-extr.el
--- 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))