Move `mm-handle-filename' to mm-decode.el (bug#8330).

* mm-decode.el (mm-handle-filename): Move from mm-util.el (bug#8330).

* mm-util.el (mm-handle-filename): Move to mm-decode.el (bug#8330).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec1bc75..ab534bb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-03-25  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * mm-util.el (mm-handle-filename): Move to mm-decode.el (bug#8330).
+
+       * mm-decode.el (mm-handle-filename): Move from mm-util.el (bug#8330).
+
 2011-03-21  Julien Danjou  <julien@danjou.info>
 
        * mm-view.el (mm-display-inline-fontify): Make mode optional, and call

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 3909e12..f543920 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1744,6 +1744,13 @@ If RECURSIVE, search recursively."
            (delete-region ,(point-min-marker)
                           ,(point-max-marker))))))))
 
+(defun mm-handle-filename (handle)
+  "Return filename of HANDLE if any."
+  (or (mail-content-type-get (mm-handle-type handle)
+                             'name)
+      (mail-content-type-get (mm-handle-disposition handle)
+                             'filename)))
+
 (provide 'mm-decode)
 
 ;;; mm-decode.el ends here

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index d53784e..435c3bb 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -1667,13 +1667,6 @@ gzip, bzip2, etc. are allowed."
        (when decomp
          (kill-buffer (current-buffer)))))))
 
-(defun mm-handle-filename (handle)
-  "Return filename of HANDLE if any."
-  (or (mail-content-type-get (mm-handle-type handle)
-                             'name)
-      (mail-content-type-get (mm-handle-disposition handle)
-                             'filename)))
-
 (provide 'mm-util)
 
 ;;; mm-util.el ends here