From 4d123b4d43867264055b8f544e4db4c135786798 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 24 Jun 1996 20:47:16 +0000
Subject: [PATCH] (mail-extract-address-components): Quote the comma in ,-pos.

---
 lisp/mail/mail-extr.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index dd69f63f88d..aab34e9fd9e 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -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) (?, . \,-pos) (?! . !-pos)
 			     (?% . %-pos) (?\; . \;-pos)))))
 	  (set record-pos-symbol
 	       (cons (point) (symbol-value record-pos-symbol)))
-- 
2.39.2