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

(mail-extr-safe-move-sexp): Make sure this doesn't

signal errors even for pathological From headers.
parent 378df08c
......@@ -696,7 +696,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".")
;; Safely skip over one balanced sexp, if there is one. Return t if success.
(` (condition-case error
(progn
(goto-char (scan-sexps (point) (, arg)))
(goto-char (or (scan-sexps (point) (, arg)) (point)))
t)
(error
;; #### kludge kludge kludge kludge kludge kludge kludge !!!
......
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