changeset 15505:4d3ce6ab31d8

(mail-extract-address-components): Quote the comma in ,-pos.
author Richard M. Stallman <rms@gnu.org>
date Mon, 24 Jun 1996 20:47:16 +0000
parents a01d40110af0
children 1a66dbb1a470
files lisp/mail/mail-extr.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mail-extr.el	Mon Jun 24 19:54:38 1996 +0000
+++ b/lisp/mail/mail-extr.el	Mon Jun 24 20:47:16 1996 +0000
@@ -849,7 +849,7 @@
 	 ((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)))