From 8e3694835053c1b253f335c673d060a5285d9ca4 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 28 Sep 1999 19:03:31 +0000 Subject: [PATCH] (gnus-article-mime-part-status): Use `mime-entity-children'. --- lisp/gnus-art.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 1.7.10.4