From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Ted Zlatanov Newsgroups: gmane.emacs.bugs Subject: Re: bug#8339: 24.0.50; Gnus Lisp error: (invalid-function mm-handle-type) Date: Fri, 25 Mar 2011 13:44:38 -0500 Organization: =?utf-8?B?0KLQtdC+0LTQvtGAINCX0LvQsNGC0LDQvdC+0LI=?= @ Cienfuegos Message-ID: <874o6rujjd.fsf@lifelogs.com> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1301082017 27903 80.91.229.12 (25 Mar 2011 19:40:17 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 25 Mar 2011 19:40:17 +0000 (UTC) To: bug-gnu-emacs@gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Mar 25 20:40:11 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Q3Crj-0001HS-2V for geb-bug-gnu-emacs@m.gmane.org; Fri, 25 Mar 2011 20:40:11 +0100 Original-Received: from localhost ([127.0.0.1]:55336 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Q3Cri-0005G3-G4 for geb-bug-gnu-emacs@m.gmane.org; Fri, 25 Mar 2011 15:40:10 -0400 Original-Path: usenet.stanford.edu!news-transit.tcx.org.uk!news.albasani.net!.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.bug Original-Lines: 51 Original-X-Trace: news.albasani.net a9uCRcjDKoHiZ8INw2iI2sSncOO8fshuO1iLWRgqWGHxbxe4wEzSVf/nKklJ1jzjZzVZPgDzVZEvCe8PhiwyVJqXsudMihGUoUkJoNJdGQ+AUJSAuZwrKhbI01/d11O2 Original-NNTP-Posting-Date: Fri, 25 Mar 2011 18:44:39 +0000 (UTC) Injection-Info: news.albasani.net; logging-data="elUWQt4tXujbdR8eoTXWy8CqV9cYtU+YVDst7lvYR7swxDH+TP/NGF3zOw6bEuuyZEjgwlEsJDeYSrgvr1ezJ2ZZpnrgfr8eDuXv4C0xfrWNvC4HfnNG9jf8WIVSkfat"; mail-complaints-to="abuse@albasani.net" User-Agent: Gnus/5.110016 (No Gnus v0.16) Emacs/24.0.50 (gnu/linux) X-Face: bd.DQ~'29fIs`T_%O%C\g%6jW)yi[zuz6; d4V0`@y-~$#3P_Ng{@m+e4o<4P'#(_GJQ%TT= D}[Ep*b!\e,fBZ'j_+#"Ps?s2!4H2-Y"sx" Cancel-Lock: sha1:LhQMHXD4S9kCBXVz3Q/RPhvq9DU= sha1:bFp+Io8j6Yi+qdvFJTmfG7k5Vew= Original-Xref: usenet.stanford.edu gnu.emacs.bug:72678 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:45365 Archived-At: --=-=-= Content-Type: text/plain 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 --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=mm-handle-filename-moved.patch 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 --=-=-=--