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

(mail-strip-quoted-names): Catch errors from forward-sexp.

parent 0a9b0670
......@@ -75,7 +75,11 @@ Return a modified address list."
(forward-char -1)
(skip-chars-backward " \t")
(delete-region (point)
(save-excursion (forward-sexp 1) (point))))
(save-excursion
(condition-case ()
(forward-sexp 1)
(error (goto-char (point-max))))
(point))))
(setq address (buffer-string))
(erase-buffer))
;; Strip non-nested comments an easier way.
......
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