Mercurial > emacs
changeset 16176:f2728b5d7085
(mail-extr-safe-move-sexp): Make sure this doesn't
signal errors even for pathological From headers.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 13 Sep 1996 00:28:33 +0000 |
| parents | fadfed208516 |
| children | da1a2b74d099 |
| files | lisp/mail/mail-extr.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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 !!!