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

* lisp/mail/mail-utils.el (mail-strip-quoted-names): Avoid clobbering
an existing temp buffer.

2 files changed, 7 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88295cb6a1c..cc6eb24b816 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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>
 
         * mail/mail-utils.el (mail-mbox-from): Handle From: headers with
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 19ddada1025..ce3036390c9 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -189,8 +189,7 @@ Return a modified address list."
        ;; Detect nested comments.
        (if (string-match "[ \t]*(\\([^)\\]\\|\\\\.\\|\\\\\n\\)*(" address)
            ;; Strip nested comments.
-           (with-current-buffer (get-buffer-create " *temp*")
-             (erase-buffer)
+           (with-temp-buffer
              (insert address)
              (set-syntax-table lisp-mode-syntax-table)
              (goto-char 1)
@@ -203,8 +202,7 @@ Return a modified address list."
                                     (forward-sexp 1)
                                   (error (goto-char (point-max))))
                                   (point))))
-             (setq address (buffer-string))
-             (erase-buffer))
+             (setq address (buffer-string)))
          ;; Strip non-nested comments an easier way.
          (while (setq pos (string-match
                             ;; This doesn't hack rfc822 nested comments