procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mm-util.el (mm-handle-filename): Move to mm-decode.el (bug#8330).

Browse source 
mm-decode.el (mm-handle-filename): Move from mm-util.el (bug#8330).
This commit is contained in:
Teodor Zlatanov 2011-03-25 23:27:18 +00:00 • committed by Katsumi Yamaoka
parent 625897eca3
commit dc8026879e
3 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
2011-03-25 Teodor Zlatanov <tzz@lifelogs.com>
* 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 <julien@danjou.info>
* mm-view.el (mm-display-inline-fontify): Make mode optional, and call

7
lisp/gnus/mm-decode.el
View file

@ -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

7
lisp/gnus/mm-util.el
View file

@ -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