Mercurial > emacs

comparison lisp/gnus/mm-partial.el @ 85712:a3c27999decb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk Revision: emacs@sv.gnu.org/emacs--devo--0--patch-911
author Miles Bader <miles@gnu.org>
date Sun, 28 Oct 2007 09:18:39 +0000
parents 24202b793a08
children 107ccd98fa12 880960b70474
comparison
equal deleted inserted replaced
85711:b6f5dc84b2e1 85712:a3c27999decb
32 (require 'gnus-sum) 32 (require 'gnus-sum)
33 (require 'mm-util) 33 (require 'mm-util)
34 (require 'mm-decode) 34 (require 'mm-decode)
35 35
36 (defun mm-partial-find-parts (id &optional art) 36 (defun mm-partial-find-parts (id &optional art)
37 (let ((headers (save-excursion 37 (let ((headers (with-current-buffer gnus-summary-buffer
38 (set-buffer gnus-summary-buffer)
39 gnus-newsgroup-headers)) 38 gnus-newsgroup-headers))
40 phandles header) 39 phandles header)
41 (while (setq header (pop headers)) 40 (while (setq header (pop headers))
42 (unless (eq (aref header 0) art) 41 (unless (eq (aref header 0) art)
43 (mm-with-unibyte-buffer 42 (mm-with-unibyte-buffer