From: Teodor Zlatanov Date: Fri, 25 Mar 2011 23:27:18 +0000 (+0000) Subject: mm-util.el (mm-handle-filename): Move to mm-decode.el (bug#8330). X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~483 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc8026879ec33cfdcb47973ab7a3c14789c62aa6;p=emacs.git 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). --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index d728d1957b1..ddc946383b6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2011-03-25 Teodor Zlatanov + + * 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 * mm-view.el (mm-display-inline-fontify): Make mode optional, and call diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 3909e12186f..f543920446b 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/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/gnus/mm-util.el b/lisp/gnus/mm-util.el index d53784e8cc4..435c3bba00f 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/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