Re: bug#8339: 24.0.50; Gnus Lisp error: (invalid-function mm-handle-type)

[Ted Zlatanov <tzz@lifelogs.com>]

[-- Attachment #1: Type: text/plain, Size: 130 bytes --]

I think this is a duplicate of 8330.  Can you test the attached patch
against Gnus?  It should work in the Emacs trunk too.

Ted


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: mm-handle-filename-moved.patch --]
[-- Type: text/x-diff, Size: 1141 bytes --]

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