From dc8026879ec33cfdcb47973ab7a3c14789c62aa6 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Fri, 25 Mar 2011 23:27:18 +0000 Subject: [PATCH] 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). --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/mm-decode.el | 7 +++++++ lisp/gnus/mm-util.el | 7 ------- 3 files changed, 13 insertions(+), 7 deletions(-) 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 -- 2.11.4.GIT