diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-09-13 00:28:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-09-13 00:28:33 +0000 |
| commit | b31c47ccf55942d2599c61996344701ef185a581 (patch) | |
| tree | 24238e26958b5781e412c1b600c7dc697621f080 | |
| parent | afe673bd992fd644b405243a70e742b621d3c178 (diff) | |
| download | emacs-b31c47ccf55942d2599c61996344701ef185a581.tar.gz | |
(mail-extr-safe-move-sexp): Make sure this doesn't
signal errors even for pathological From headers.
| -rw-r--r-- | lisp/mail/mail-extr.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 !!! |