# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869968496 0
# Node ID 8a0265f609fff861d2ea77342f0d9d4305a022ed
# Parent  b07745668138733ee27fdcab07ee1f00de620aee
(mail-extr-voodoo): Handle unmatched quotes in the comment-deletion loop.

diff -r b07745668138 -r 8a0265f609ff lisp/mail/mail-extr.el
--- a/lisp/mail/mail-extr.el	Sun Jul 27 00:07:08 1997 +0000
+++ b/lisp/mail/mail-extr.el	Sun Jul 27 01:54:56 1997 +0000
@@ -1456,7 +1456,7 @@
 	(let ((cbeg (point)))
 	  (set-syntax-table mail-extr-address-text-comment-syntax-table)
 	  (cond ((memq (following-char) '(?\' ?\`))
-		 (search-forward "'" nil t
+		 (search-forward "'" nil 'move
 				 (if (eq ?\' (following-char)) 2 1)))
 		(t
 		 (or (mail-extr-safe-move-sexp 1)