(mail-strip-quoted-names): Catch errors from forward-sexp.

1993-05-26 18:00:55 +00:00 · 1993-05-26 18:00:55 +00:00 · c5fb599fa1
commit c5fb599fa1
parent 0a9b0670a4
1 changed files with 5 additions and 1 deletions
--- 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.