From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 27 Jul 1997 01:54:56 +0000 (+0000)
Subject: (mail-extr-voodoo): Handle unmatched quotes in the comment-deletion loop.
X-Git-Tag: emacs-20.1~940
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b9c22adf8a795edf4b2387a05473f33e619ddbcf;p=emacs.git

(mail-extr-voodoo): Handle unmatched quotes in the comment-deletion loop.
---

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 4b5fa650e62..b7975928253 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -1456,7 +1456,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is
 	(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)