From 16f45d1b8d556362a0668f192e4453f126946b1c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 13 Sep 1996 00:28:33 +0000 Subject: [PATCH] (mail-extr-safe-move-sexp): Make sure this doesn't signal errors even for pathological From headers. --- 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 e72dd2762d8..6b0ba81cb9e 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -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 !!! -- 2.39.2