Lines Matching defs:extern
1 ;;; mm-extern.el --- showing message/external-body
38 (defvar mm-extern-function-alist
39 '((local-file . mm-extern-local-file)
40 (url . mm-extern-url)
41 (anon-ftp . mm-extern-anon-ftp)
42 (ftp . mm-extern-ftp)
43 ;;; (tftp . mm-extern-tftp)
44 (mail-server . mm-extern-mail-server)
45 ;;; (afs . mm-extern-afs))
48 (defvar mm-extern-anonymous "anonymous")
50 (defun mm-extern-local-file (handle)
61 (defun mm-extern-url (handle)
73 (defun mm-extern-anon-ftp (handle)
80 (path (concat "/" (or mm-extern-anonymous
89 (defun mm-extern-ftp (handle)
90 (let (mm-extern-anonymous)
91 (mm-extern-anon-ftp handle)))
93 (defun mm-extern-mail-server (handle)
115 (defun mm-extern-cache-contents (handle)
123 mm-extern-function-alist)))
155 (mm-extern-cache-contents handle))
166 (provide 'mm-extern)
169 ;;; mm-extern.el ends here