X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmm-partial.el;h=ab84d4bdf6212f396576275a9b3c2d47640159fe;hb=0a919ac2e96918074f11c8740a5acadbec21a676;hp=7a4cd0b8f78a5ab47e93c7919defcc2c0bb012e2;hpb=06aa1b92759389956224a3116e4d3655e5118670;p=elisp%2Fgnus.git-

diff --git a/lisp/mm-partial.el b/lisp/mm-partial.el
index 7a4cd0b..ab84d4b 100644
--- 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))