# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 842574513 0
# Node ID f2728b5d7085db746ffeebc57924b3fe03510c59
# Parent  fadfed208516bd403d5e49eef65d7779dbb4f7b3
(mail-extr-safe-move-sexp): Make sure this doesn't
signal errors even for pathological From headers.

diff -r fadfed208516 -r f2728b5d7085 lisp/mail/mail-extr.el
--- a/lisp/mail/mail-extr.el	Thu Sep 12 21:34:10 1996 +0000
+++ b/lisp/mail/mail-extr.el	Fri Sep 13 00:28:33 1996 +0000
@@ -696,7 +696,7 @@
   ;; 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 !!!