-;;; mh-mime --- mh-e support for composing MIME messages
-;; Time-stamp: <95/08/19 16:45:17 gildea>
+;;; mh-mime.el --- mh-e support for composing MIME messages
+;; Time-stamp: <2001-07-15 09:52:45 pavel>
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
-;; This file is part of mh-e, part of GNU Emacs.
+;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;;; Change Log:
-;; $Id: mh-mime.el,v 1.5 1995/11/03 02:29:49 kwzh Exp erik $
+;; $Id: mh-mime.el,v 1.8 1998/09/23 21:51:50 kwzh Exp $
;;; Code:
("video/mpeg"))
"Legal MIME content types. See documentation for \\[mh-edit-mhn].")
-(defun mh-mhn-compose-insertion (pathname type description)
+(defun mh-mhn-compose-insertion (filename type description attributes)
"Add a directive to insert a MIME message part from a file.
This is the typical way to insert non-text parts in a message.
-Arguments are PATHNAME, which tells where to find the file, TYPE, the
+Arguments are FILENAME, which tells where to find the file, TYPE, the
MIME content type, and DESCRIPTION, a line of text for the
Content-description header. See also \\[mh-edit-mhn]."
- (interactive (list
- (read-file-name "Insert contents of: ")
- (completing-read "Content-type: "
+ (interactive (let ((filename (read-file-name "Insert contents of: ")))
+ (list
+ filename
+ (completing-read "Content-type: "
mh-mime-content-types nil nil nil)
- (read-string "Content-description: ")))
- (mh-mhn-compose-type pathname type description))
-
-(defun mh-mhn-compose-type (pathname type
+ (read-string "Content-description: ")
+ (read-string "Content-Attributes: "
+ (concat "name=\""
+ (file-name-nondirectory filename)
+ "\"")))))
+ (mh-mhn-compose-type filename type description attributes ))
+
+(defun mh-mhn-compose-type (filename type
&optional description attributes comment)
(beginning-of-line)
(insert "#" type)
(insert " [")
(and description
(insert description))
- (insert "] " (expand-file-name pathname))
+ (insert "] " (expand-file-name filename))
(insert "\n"))
-(defun mh-mhn-compose-anon-ftp (host pathname type description)
+(defun mh-mhn-compose-anon-ftp (host filename type description)
"Add a directive for a MIME anonymous ftp external body part.
This directive tells MH to include a reference to a
message/external-body part retrievable by anonymous FTP. Arguments
-are HOST and PATHNAME, which tell where to find the file, TYPE, the
+are HOST and FILENAME, which tell where to find the file, TYPE, the
MIME content type, and DESCRIPTION, a line of text for the
Content-description header. See also \\[mh-edit-mhn]."
(interactive (list
(read-string "Remote host: ")
- (read-string "Remote pathname: ")
+ (read-string "Remote filename: ")
(completing-read "External Content-type: "
mh-mime-content-types nil nil nil)
(read-string "External Content-description: ")))
- (mh-mhn-compose-external-type "anon-ftp" host pathname
+ (mh-mhn-compose-external-type "anon-ftp" host filename
type description))
-(defun mh-mhn-compose-external-compressed-tar (host pathname description)
+(defun mh-mhn-compose-external-compressed-tar (host filename description)
"Add a directive to include a MIME reference to a compressed tar file.
The file should be available via anonymous ftp. This directive
tells MH to include a reference to a message/external-body part.
-Arguments are HOST and PATHNAME, which tell where to find the file, and
+Arguments are HOST and FILENAME, which tell where to find the file, and
DESCRIPTION, a line of text for the Content-description header.
See also \\[mh-edit-mhn]."
(interactive (list
(read-string "Remote host: ")
- (read-string "Remote pathname: ")
+ (read-string "Remote filename: ")
(read-string "Tar file Content-description: ")))
- (mh-mhn-compose-external-type "anon-ftp" host pathname
+ (mh-mhn-compose-external-type "anon-ftp" host filename
"application/octet-stream"
description
"type=tar; conversions=x-compress"
"mode=image"))
-(defun mh-mhn-compose-external-type (access-type host pathname type
+(defun mh-mhn-compose-external-type (access-type host filename type
&optional description
attributes extra-params comment)
(beginning-of-line)
(insert "] ")
(insert "access-type=" access-type "; ")
(insert "site=" host)
- (insert "; name=" (file-name-nondirectory pathname))
- (insert "; directory=\"" (file-name-directory pathname) "\"")
+ (insert "; name=" (file-name-nondirectory filename))
+ (insert "; directory=\"" (file-name-directory filename) "\"")
(and extra-params
(insert "; " extra-params))
(insert "\n"))
(or noconfirm
(yes-or-no-p (format "Revert buffer from file %s? "
backup-file))
- (error "mhn edit revert not confirmed."))
+ (error "mhn edit revert not confirmed"))
(let ((buffer-read-only nil))
(erase-buffer)
(insert-file-contents backup-file))
(after-find-file nil)))
+
+;;; mh-mime.el ends here