Mercurial > emacs
diff lisp/mail/mail-utils.el @ 3118:e7dd24a618fb
(mail-strip-quoted-names): Catch errors from forward-sexp.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 26 May 1993 18:00:55 +0000 |
parents | 10e417efb12a |
children | a3d3d7eef5ce |
line wrap: on
line diff
--- a/lisp/mail/mail-utils.el Wed May 26 17:58:22 1993 +0000 +++ b/lisp/mail/mail-utils.el Wed May 26 18:00:55 1993 +0000 @@ -75,7 +75,11 @@ (forward-char -1) (skip-chars-backward " \t") (delete-region (point) - (save-excursion (forward-sexp 1) (point)))) + (save-excursion + (condition-case () + (forward-sexp 1) + (error (goto-char (point-max)))) + (point)))) (setq address (buffer-string)) (erase-buffer)) ;; Strip non-nested comments an easier way.