Re: Followup to names with commas

[Alan Shutko <ats@acm.org>]

>>>>> "A" == Anders Melchiorsen <postmaster@and.nospam.kampsax.k-net.dk> writes:

A> I just received a mail with approximately the following To:
A> header...  To: "Melchiorsen, Anders" <and@campsax.dtu.dk>

Iirc, that was a bug in rmail-dont-reply-to, and should be fixed in
recent Emacsen.  The patch probably didn't filter back to XEmacs.  Try
putting this somewhere and using it (current one from Emacs).  Someone
should probably mention this to the XEmacs people.

(defun rmail-dont-reply-to (userids)
  "Returns string of mail addresses USERIDS sans any recipients
that start with matches for `rmail-dont-reply-to-names'.
Usenet paths ending in an element that matches are removed also."
  (if (null rmail-dont-reply-to-names)
      (setq rmail-dont-reply-to-names
	    (concat (if rmail-default-dont-reply-to-names
			(concat rmail-default-dont-reply-to-names "\\|")
		        "")
		    (concat (regexp-quote (user-login-name))
			    "\\>"))))
  (let ((match (concat "\\(^\\|,\\)[ \t\n]*"
		       ;; Can anyone figure out what this is for?
		       ;; Is it an obsolete remnant of another way of
		       ;; handling Foo Bar <foo@machine>?
		       "\\([^,\n]*[!<]\\|\\)"
		       "\\("
			     rmail-dont-reply-to-names
		       "\\|"
		             ;; Include the human name that precedes <foo@bar>.
			     "\\([^\,.<\"]\\|\"[^\"]*\"\\)*"
			     "<\\(" rmail-dont-reply-to-names "\\)"
		       "\\)"))
	(case-fold-search t)
	pos epos)
    (while (setq pos (string-match match userids pos))
      (if (> pos 0) (setq pos (match-beginning 2)))
      (setq epos
	    ;; Delete thru the next comma, plus whitespace after.
	    (if (string-match ",[ \t\n]*" userids (match-end 0))
		(match-end 0)
	      (length userids)))
      ;; Count the double-quotes since the beginning of the list.
      ;; Reject this match if it is inside a pair of doublequotes.
      (let (quote-pos inside-quotes)
	(while (and (setq quote-pos (string-match "\"" userids quote-pos))
		    (< quote-pos pos))
	  (setq quote-pos (1+ quote-pos))
	  (setq inside-quotes (not inside-quotes)))
	(if inside-quotes
	    ;; Advance to next even-parity quote, and scan from there.
	    (setq pos (string-match "\"" userids pos))
	  (setq userids
		(mail-string-delete
		 userids pos epos)))))
    ;; get rid of any trailing commas
    (if (setq pos (string-match "[ ,\t\n]*\\'" userids))
	(setq userids (substring userids 0 pos)))
    ;; remove leading spaces. they bother me.
    (if (string-match "\\s *" userids)
	(substring userids (match-end 0))
      userids)))

-- 
Alan Shutko <ats@acm.org> - By consent of the corrupted
Love means nothing to a tennis player.