diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-26 18:00:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-26 18:00:55 +0000 |
| commit | c5fb599fa1be4b9a645e86d7129f30f84d139d5e (patch) | |
| tree | 77925b6d1d40382e0deaaaa71ceacd2ede631c41 /lisp | |
| parent | 0a9b0670a44263255219f3bfc094f7a24edd106c (diff) | |
| download | emacs-c5fb599fa1be4b9a645e86d7129f30f84d139d5e.tar.gz emacs-c5fb599fa1be4b9a645e86d7129f30f84d139d5e.tar.bz2 emacs-c5fb599fa1be4b9a645e86d7129f30f84d139d5e.zip | |
(mail-strip-quoted-names): Catch errors from forward-sexp.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/mail-utils.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 63757511013..0d32fbe23fe 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -75,7 +75,11 @@ Return a modified address list." (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. |