/[emacs]/emacs/lisp/gnus/mm-util.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by zsh, Thu Jan 3 14:51:05 2002 UTC revision 1.25 by zsh, Thu Mar 21 19:11:23 2002 UTC
# Line 723  If INHIBIT is non-nil, inhibit mm-inhibi Line 723  If INHIBIT is non-nil, inhibit mm-inhibi
723            (push dir result))            (push dir result))
724        (push path result))))        (push path result))))
725    
726    ;; It is not a MIME function, but some MIME functions use it.
727    (defalias 'mm-make-temp-file
728      (if (fboundp 'make-temp-file)
729          'make-temp-file
730        (lambda (prefix &optional dir-flag)
731          (let ((file (expand-file-name
732                       (make-temp-name prefix)
733                       (if (fboundp 'temp-directory)
734                           (temp-directory)
735                         temporary-file-directory))))
736            (if dir-flag
737                (make-directory file))
738            file))))
739    
740  (provide 'mm-util)  (provide 'mm-util)
741    
742  ;;; mm-util.el ends here  ;;; mm-util.el ends here

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26