Mercurial > emacs
changeset 14500:20946c9d3806
(mail-extract-address-components): Accept strings
that end with double trailing quote marks.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 06 Feb 1996 10:06:24 +0000 |
| parents | 894f8352b8e5 |
| children | 6ac4623cdc87 |
| files | lisp/mail/mail-extr.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mail-extr.el Tue Feb 06 02:46:23 1996 +0000 +++ b/lisp/mail/mail-extr.el Tue Feb 06 10:06:24 1996 +0000 @@ -1274,7 +1274,8 @@ (backward-char 1) (mail-extr-delete-char 1) (goto-char quote-beg) - (mail-extr-delete-char 1)) + (or (eobp) + (mail-extr-delete-char 1))) (mail-extr-undo-backslash-quoting quote-beg quote-end) (or (eq ?\ (char-after (point))) (insert " "))