diff options
| author | Richard M. Stallman | 1996-09-13 00:28:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-09-13 00:28:33 +0000 |
| commit | 16f45d1b8d556362a0668f192e4453f126946b1c (patch) | |
| tree | 6cda56b89471ca31f1fd3e8cea7c016c117e9dba /lisp | |
| parent | 378df08c3741839371b2aa58cd793ff63d3a9fac (diff) | |
| download | emacs-16f45d1b8d556362a0668f192e4453f126946b1c.tar.gz emacs-16f45d1b8d556362a0668f192e4453f126946b1c.zip | |
(mail-extr-safe-move-sexp): Make sure this doesn't
signal errors even for pathological From headers.
Diffstat (limited to 'lisp')
| -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\".") | |||
| 696 | ;; Safely skip over one balanced sexp, if there is one. Return t if success. | 696 | ;; Safely skip over one balanced sexp, if there is one. Return t if success. |
| 697 | (` (condition-case error | 697 | (` (condition-case error |
| 698 | (progn | 698 | (progn |
| 699 | (goto-char (scan-sexps (point) (, arg))) | 699 | (goto-char (or (scan-sexps (point) (, arg)) (point))) |
| 700 | t) | 700 | t) |
| 701 | (error | 701 | (error |
| 702 | ;; #### kludge kludge kludge kludge kludge kludge kludge !!! | 702 | ;; #### kludge kludge kludge kludge kludge kludge kludge !!! |