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

c5fb599f · Richard M. Stallman · 0a9b0670 · c5fb599f
Commit c5fb599f authored May 26, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/mail/mail-utils.el lisp/mail/mail-utils.el +5 -1

No files found.
--- 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.