From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 24 Jun 1996 20:47:16 +0000 (+0000)
Subject: (mail-extract-address-components): Quote the comma in ,-pos.
X-Git-Tag: emacs-19.34~357
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d123b4d43867264055b8f544e4db4c135786798;p=emacs.git

(mail-extract-address-components): Quote the comma in ,-pos.
---

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)))