# HG changeset patch # User Juanma Barranquero # Date 1202216443 0 # Node ID 86418444e2d1202328d2c1bc0fb60888735044ee # Parent f5910be081e518c8523931bb5543e832edc0ce09 *** empty log message *** diff -r f5910be081e5 -r 86418444e2d1 lisp/mail/mail-extr.el --- a/lisp/mail/mail-extr.el Tue Feb 05 12:57:01 2008 +0000 +++ b/lisp/mail/mail-extr.el Tue Feb 05 13:00:43 2008 +0000 @@ -850,7 +850,7 @@ (setq char ?\() ; HAVE I NO SHAME?? ) ;; record the position of various interesting chars, determine - ;; legality later. + ;; validity later. ((setq record-pos-symbol (cdr (assq char '((?< . <-pos) (?> . >-pos) (?@ . @-pos) @@ -862,9 +862,9 @@ ((eq char ?.) (forward-char 1)) ((memq char '( - ;; comment terminator illegal + ;; comment terminator invalid ?\) - ;; domain literal terminator illegal + ;; domain literal terminator invalid ?\] ;; \ allowed only within quoted strings, ;; domain literals, and comments