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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d36af8c..5c21e2c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * gnus-cus.el (gnus-agent-customize-category):

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 5ba962d..3ebb5cc 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/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"))