mail-extract-address-components with "Ver Surname, Given"

mail-extract-address-components with "Ver Surname, Given"

[Kevin Rodgers]

(mail-extract-address-components
  "\"Surname, Given\" <given.surname@example.com>")

correctly returns:
("Given Surname" "given.surname@example.com")

But:
(mail-extract-address-components
  "\"Ver Surname, Given\" <given.ver.surname@example.com>")

returns:
("Ver Surname" "given.ver.surname@example.com")

instead of:
("Given Ver Surname" "given.ver.surname@example.com")

-- 
Kevin Rodgers

Re: mail-extract-address-components with "Ver Surname, Given"

[Kevin Rodgers]

Similarly:
(mail-extract-address-components
  "\"Howell III, Thurston\" <thurston.howell.3rd@gilligans.is>")

returns:
("Howell III" "thurston.howell.3rd@gilligans.is")

instead of:
("Thurston Howell III" "thurston.howell.3rd@gilligans.is")

-- 
Kevin Rodgers

Re: mail-extract-address-components with "Ver Surname, Given"

[Richard Stallman]

This change fixes it.  What I am not sure is whether the 
criterion is now too general so that it would give bad results
in some other case.

*** mail-extr.el	10 Feb 2005 01:13:43 -0500	1.47
--- mail-extr.el	17 Jun 2005 20:03:46 -0400	
***************
*** 1594,1600 ****
  
  	   ;; Check for initial last name followed by comma
  	   ((and (eq ?, (following-char))
! 		 (eq word-count 1))
  	    (forward-char 1)
  	    (setq last-name-comma-flag t)
  	    (or (eq ?\  (following-char))
--- 1594,1605 ----
  
  	   ;; Check for initial last name followed by comma
  	   ((and (eq ?, (following-char))
! 		 (not last-name-comma-flag))
! 	    ;; This used to check for (eq word-count 1),
! 	    ;; but that failed for the case
! 	    ;; (mail-extract-address-components
! 	    ;;  "\"Ver Surname, Given\" <given.ver.surname@example.com>")
! 	    ;; However, not checking at all may make this too general.
  	    (forward-char 1)
  	    (setq last-name-comma-flag t)
  	    (or (eq ?\  (following-char))