Commit b9c22adf authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 9f993a10
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment