gnus-art.el (gnus-mime-delete-part): Fix mm-handle-filename usage.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9eebb585c1478ae4a2fffb7781ea8114b41c8602..8fc80eefbe12c9828485323bf93ca5e713af05f3 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-mime-delete-part): Fix mm-handle-filename usage.
+
 2011-05-20  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-sum.el (gnus-summary-hide-thread): Fix bug where moving to hide

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 5ba962d1d39b9780c4764f72fec74d114d78b0ab..3ebb5cc719b8b8bca4b4ab0652fad1a50d7b07ab 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -5048,7 +5048,7 @@ Deleting parts may malfunction or destroy the article; continue? "))
            (let ((desc (mm-handle-description data)))
              (when desc
                (mail-decode-encoded-word-string desc))))
-          (filename (or (mm-handle-filename (mm-handle-disposition data)) "(none)"))
+          (filename (or (mm-handle-filename data) "(none)"))
           (type (mm-handle-media-type data)))
       (unless data
        (error "No MIME part under point"))