Synch to No Gnus 200410012233.

[elisp/gnus.git-] / lisp / mm-partial.el

diff --git a/lisp/mm-partial.el b/lisp/mm-partial.el
index 7a4cd0b..ab84d4b 100644 (file)
--- a/lisp/mm-partial.el
+++ b/lisp/mm-partial.el
@@ -32,8 +32,7 @@
 (require 'mm-decode)
 
 (defun mm-partial-find-parts (id &optional art)
-  (let ((headers (save-excursion
-                  (set-buffer gnus-summary-buffer)
+  (let ((headers (with-current-buffer gnus-summary-buffer
                   gnus-newsgroup-headers))
        phandles header)
     (while (setq header (pop headers))