[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100344: Mail-utils fix for bug#7746. (tiny change)

[Glenn Morris]

------------------------------------------------------------
revno: 100344
author: Mark Lillibridge <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: emacs-23
timestamp: Sat 2011-01-01 18:43:26 -0800
message:
  Mail-utils fix for bug#7746.  (tiny change)
  
  * lisp/mail/mail-utils.el (mail-strip-quoted-names): Avoid clobbering
  an existing temp buffer.
modified:
  lisp/ChangeLog
  lisp/mail/mail-utils.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-02 02:35:23 +0000
+++ b/lisp/ChangeLog    2011-01-02 02:43:26 +0000
@@ -1,3 +1,8 @@
+2011-01-02  Mark Lillibridge  <address@hidden>  (tiny change)
+
+       * mail/mail-utils.el (mail-strip-quoted-names): Avoid clobbering
+       an existing temp buffer.  (Bug#7746)
+
 2011-01-02  Glenn Morris  <address@hidden>
 
        * mail/mail-utils.el (mail-mbox-from): Handle From: headers with

=== modified file 'lisp/mail/mail-utils.el'
--- a/lisp/mail/mail-utils.el   2011-01-02 02:35:23 +0000
+++ b/lisp/mail/mail-utils.el   2011-01-02 02:43:26 +0000
@@ -189,8 +189,7 @@
        ;; 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 @@
                                    (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