diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-06-16 18:47:08 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-06-16 18:47:08 +0000 |
commit | 6de2dc100b1f0018132ce86e8958cff8a1f7565b (patch) | |
tree | b9d36d0f9372bbe098376c68768d112fa7662f4e | |
parent | b309919e3e6a4265d500d3b9222d469baf688bc5 (diff) | |
download | emacs-6de2dc100b1f0018132ce86e8958cff8a1f7565b.tar.gz |
(mail-strip-quoted-names): `"' is not special inside an RFC 822 comment.
-rw-r--r-- | lisp/mail/mail-utils.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 42bcbd38bd3..06199bcab6b 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -75,9 +75,10 @@ Return a modified address list." (match-end 0)))) ;; Detect nested comments. - (if (string-match "[ \t]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*(" address) + (if (string-match "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*(" address) ;; Strip nested comments. (save-excursion + (debug) (set-buffer (get-buffer-create " *temp*")) (erase-buffer) (insert address) @@ -98,7 +99,7 @@ Return a modified address list." (while (setq pos (string-match ;; This doesn't hack rfc822 nested comments ;; `(xyzzy (foo) whinge)' properly. Big deal. - "[ \t]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*)" + "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*)" address)) (setq address (mail-string-delete address |