From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 6 Feb 1996 10:06:24 +0000 (+0000)
Subject: (mail-extract-address-components): Accept strings
X-Git-Tag: emacs-19.34~1360
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21a36d2362ebdae00de21af05c2d75292870b17b;p=emacs.git

(mail-extract-address-components): Accept strings
that end with double trailing quote marks.
---

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 " "))