Mercurial > emacs
diff lisp/mail/mail-extr.el @ 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 | 83f275dcd93a |
| children | 4706508583bd |
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 " "))