mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(mail-extr-safe-move-sexp): Make sure this doesn't

Browse Source 
signal errors even for pathological From headers.
This commit is contained in:
Richard M. Stallman 1996-09-13 00:28:33 +00:00
parent 378df08c37
commit 16f45d1b8d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/mail/mail-extr.el
View File

@ -696,7 +696,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".")
;; Safely skip over one balanced sexp, if there is one. Return t if success. ;; Safely skip over one balanced sexp, if there is one. Return t if success.
(` (condition-case error (` (condition-case error
(progn (progn
(goto-char (scan-sexps (point) (, arg))) (goto-char (or (scan-sexps (point) (, arg)) (point)))
t) t)
(error (error
;; #### kludge kludge kludge kludge kludge kludge kludge !!! ;; #### kludge kludge kludge kludge kludge kludge kludge !!!