Mercurial > emacs

changeset 3118:e7dd24a618fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 1d3a6f78266f
children 0d4886af9262
files lisp/mail/mail-utils.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
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.