From b9c22adf8a795edf4b2387a05473f33e619ddbcf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 27 Jul 1997 01:54:56 +0000 Subject: [PATCH] (mail-extr-voodoo): Handle unmatched quotes in the comment-deletion loop. --- lisp/mail/mail-extr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5