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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9eebb58..8fc80ee 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 5ba962d..3ebb5cc 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"))