From: ueno <ueno>
Date: Tue, 28 Sep 1999 19:03:31 +0000 (+0000)
Subject: (gnus-article-mime-part-status): Use `mime-entity-children'.
X-Git-Tag: t-gnus-6_13_2-01~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8e3694835053c1b253f335c673d060a5285d9ca4;p=elisp%2Fgnus.git-

(gnus-article-mime-part-status): Use `mime-entity-children'.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index b1ef891..0692dd8 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3058,9 +3058,11 @@ value of the variable `gnus-show-mime' is non-nil."
     (gnus-mime-pipe-part "|" "Pipe To Command...")))
 
 (defun gnus-article-mime-part-status ()
-  (if gnus-article-mime-handle-alist-1
-      (format " (%d parts)" (length gnus-article-mime-handle-alist-1))
-    ""))
+  (with-current-buffer gnus-article-buffer
+    (let ((entity (get-text-property (point-min) 'mime-view-entity)))
+      (if (and entity (mime-entity-children entity))
+	  (format " (%d parts)" (length (mime-entity-children entity)))
+	""))))
 
 (defvar gnus-mime-button-map nil)
 (unless gnus-mime-button-map