diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-06 10:06:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-06 10:06:24 +0000 |
| commit | ea762adecc76fcff36f990e7048ffbdd8dff23a0 (patch) | |
| tree | a315af924664a436a46a1ccd88689477bd1ea132 | |
| parent | 88efb5a2945048c92f84cf0518a9b115873f7f9e (diff) | |
| download | emacs-ea762adecc76fcff36f990e7048ffbdd8dff23a0.tar.gz | |
(mail-extract-address-components): Accept strings
that end with double trailing quote marks.
| -rw-r--r-- | lisp/mail/mail-extr.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 2d59aef47d8..27cc23f1df7 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -1274,7 +1274,8 @@ If ADDRESS contains more than one RFC-822 address, only the first is (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 " ")) |