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

4d123b4d · Richard M. Stallman · faee8ef0 · 4d123b4d
Commit 4d123b4d authored Jun 24, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/mail/mail-extr.el lisp/mail/mail-extr.el +1 -1

No files found.
--- 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)))