diff options
| author | Richard M. Stallman | 1997-07-27 01:54:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-27 01:54:56 +0000 |
| commit | b9c22adf8a795edf4b2387a05473f33e619ddbcf (patch) | |
| tree | 596c17a95d1cb45a6ed8648c64efe3ea57f0293c | |
| parent | 9f993a1044305652dbee613b562b74ee110ad7e2 (diff) | |
| download | emacs-b9c22adf8a795edf4b2387a05473f33e619ddbcf.tar.gz emacs-b9c22adf8a795edf4b2387a05473f33e619ddbcf.zip | |
(mail-extr-voodoo): Handle unmatched quotes in the comment-deletion loop.
| -rw-r--r-- | lisp/mail/mail-extr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 4b5fa650e62..b7975928253 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el | |||
| @@ -1456,7 +1456,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is | |||
| 1456 | (let ((cbeg (point))) | 1456 | (let ((cbeg (point))) |
| 1457 | (set-syntax-table mail-extr-address-text-comment-syntax-table) | 1457 | (set-syntax-table mail-extr-address-text-comment-syntax-table) |
| 1458 | (cond ((memq (following-char) '(?\' ?\`)) | 1458 | (cond ((memq (following-char) '(?\' ?\`)) |
| 1459 | (search-forward "'" nil t | 1459 | (search-forward "'" nil 'move |
| 1460 | (if (eq ?\' (following-char)) 2 1))) | 1460 | (if (eq ?\' (following-char)) 2 1))) |
| 1461 | (t | 1461 | (t |
| 1462 | (or (mail-extr-safe-move-sexp 1) | 1462 | (or (mail-extr-safe-move-sexp 1) |