From 21a36d2362ebdae00de21af05c2d75292870b17b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 6 Feb 1996 10:06:24 +0000 Subject: [PATCH] (mail-extract-address-components): Accept strings that end with double trailing quote marks. --- lisp/mail/mail-extr.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 " ")) -- 2.39.2