;;; mm-uu.el -- Return uu stuffs as mm handles
-;; Copyright (c) 1998,99 Free Software Foundation, Inc.
+;; Copyright (c) 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Keywords: postscript uudecode binhex shar forward news
;;; Code:
+(eval-when-compile (require 'cl))
(require 'mail-parse)
-(require 'message)
(require 'nnheader)
(require 'mm-decode)
(require 'mailcap)
((eq type 'uu)
(mm-make-handle (mm-uu-copy-to-buffer start-char end-char)
(list (or (and file-name
- (string-match "\\.[^\\.]+$" file-name)
+ (string-match "\\.[^\\.]+$"
+ file-name)
(mailcap-extension-to-mime
(match-string 0 file-name)))
"application/octet-stream"))