Commit 9430e988 authored by Mark Lillibridge's avatar Mark Lillibridge Committed by Glenn Morris
Browse files

Mail-utils fix for bug#7746. (tiny change)

* lisp/mail/mail-utils.el (mail-strip-quoted-names): Avoid clobbering
an existing temp buffer.
parent 8de31eec
2011-01-02 Mark Lillibridge <mark.lillibridge@hp.com> (tiny change)
* mail/mail-utils.el (mail-strip-quoted-names): Avoid clobbering
an existing temp buffer. (Bug#7746)
2011-01-02 Glenn Morris <rgm@gnu.org> 2011-01-02 Glenn Morris <rgm@gnu.org>
* mail/mail-utils.el (mail-mbox-from): Handle From: headers with * mail/mail-utils.el (mail-mbox-from): Handle From: headers with
......
...@@ -189,8 +189,7 @@ Return a modified address list." ...@@ -189,8 +189,7 @@ Return a modified address list."
;; Detect nested comments. ;; Detect nested comments.
(if (string-match "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*(" address) (if (string-match "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*(" address)
;; Strip nested comments. ;; Strip nested comments.
(with-current-buffer (get-buffer-create " *temp*") (with-temp-buffer
(erase-buffer)
(insert address) (insert address)
(set-syntax-table lisp-mode-syntax-table) (set-syntax-table lisp-mode-syntax-table)
(goto-char 1) (goto-char 1)
...@@ -203,8 +202,7 @@ Return a modified address list." ...@@ -203,8 +202,7 @@ Return a modified address list."
(forward-sexp 1) (forward-sexp 1)
(error (goto-char (point-max)))) (error (goto-char (point-max))))
(point)))) (point))))
(setq address (buffer-string)) (setq address (buffer-string)))
(erase-buffer))
;; Strip non-nested comments an easier way. ;; Strip non-nested comments an easier way.
(while (setq pos (string-match (while (setq pos (string-match
;; This doesn't hack rfc822 nested comments ;; This doesn't hack rfc822 nested comments
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment