[gnus git] branch master updated: n0-15-9-g18378da =1= Move `mm-handle-filename' to mm-decode.el (bug#8330).

       via  18378da5562b895709032a65016cedf885ed3625 (commit)
      from  005516d5b03f4a6aa11ec9a7ebb1bbff4d119ccc (commit)


- Log -----------------------------------------------------------------
commit 18378da5562b895709032a65016cedf885ed3625
Author: Ted Zlatanov <[email protected]>
Date:   Fri Mar 25 17:13:16 2011 -0500

    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
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-03-25  Teodor Zlatanov  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* 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
--- 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
--- 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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog    |    6 ++++++
 lisp/mm-decode.el |    7 +++++++
 lisp/mm-util.el   |    7 -------
 3 files changed, 13 insertions(+), 7 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project