6365
|
1 ;;; mh-mime --- mh-e support for composing MIME messages
|
11332
|
2 ;; Time-stamp: <94/11/18 17:48:19 gildea>
|
6365
|
3
|
11332
|
4 ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
6365
|
5
|
11333
|
6 ;; This file is part of GNU Emacs.
|
6365
|
7
|
11333
|
8 ;; GNU Emacs is free software; you can redistribute it and/or modify
|
6365
|
9 ;; it under the terms of the GNU General Public License as published by
|
|
10 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
11 ;; any later version.
|
|
12
|
11333
|
13 ;; GNU Emacs is distributed in the hope that it will be useful,
|
6365
|
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
16 ;; GNU General Public License for more details.
|
|
17
|
|
18 ;; You should have received a copy of the GNU General Public License
|
11333
|
19 ;; along with GNU Emacs; see the file COPYING. If not, write to
|
6365
|
20 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
21
|
|
22 ;;; Commentary:
|
|
23
|
|
24 ;;; Internal support for mh-e package.
|
|
25 ;;; Support for generating an mhn composition file.
|
|
26 ;;; MIME is supported only by MH 6.8 or later.
|
|
27
|
11332
|
28 ;;; Change Log:
|
|
29
|
11333
|
30 ;; $Id: mh-mime.el,v 1.2 1995/04/09 22:30:35 kwzh Exp kwzh $
|
11332
|
31
|
6365
|
32 ;;; Code:
|
|
33
|
|
34 (provide 'mh-mime)
|
|
35 (require 'mh-comp)
|
|
36
|
|
37
|
|
38 ;; To do:
|
|
39 ;; paragraph code should not fill # lines if MIME enabled.
|
|
40 ;; implement mh-auto-edit-mhn (if non-nil, \\[mh-send-letter]
|
|
41 ;; invokes mh-edit-mhn automatically before sending.)
|
|
42 ;; actually, instead of mh-auto-edit-mhn,
|
|
43 ;; should read automhnproc from profile
|
|
44 ;; MIME option to mh-forward
|
|
45 ;; command to move to content-description insertion point
|
|
46
|
11332
|
47 (defvar mh-mhn-args nil
|
|
48 "Extra arguments to have \\[mh-edit-mhn] pass to the \"mhn\" command.
|
|
49 The arguments are passed to mhn if \\[mh-edit-mhn] is given a
|
|
50 prefix argument. Normally default arguments to mhn are specified in the
|
|
51 MH profile.")
|
|
52
|
|
53 (defvar mh-edit-mhn-hook nil
|
|
54 "Invoked on the formatted letter by \\<mh-letter-mode-map>\\[mh-edit-mhn].")
|
|
55
|
6365
|
56 (defvar mh-mime-content-types
|
|
57 '(("text/plain") ("text/richtext")
|
|
58 ("multipart/mixed") ("multipart/alternative") ("multipart/digest")
|
|
59 ("multipart/parallel")
|
|
60 ("message/rfc822") ("message/partial") ("message/external-body")
|
|
61 ("application/octet-stream") ("application/postscript")
|
|
62 ("image/jpeg") ("image/gif")
|
|
63 ("audio/basic")
|
|
64 ("video/mpeg"))
|
|
65 "Legal MIME content types.")
|
|
66
|
|
67 (defun mh-mhn-compose-insertion (pathname type description)
|
|
68 "Add a directive to insert a message part from a file.
|
|
69 This is the typical way to insert non-text parts in a message.
|
11332
|
70 Arguments are PATHNAME, which tells where to find the file, TYPE, the
|
|
71 MIME content type, and DESCRIPTION, a line of text for the
|
|
72 Content-description header. See also \\[mh-edit-mhn]."
|
6365
|
73 (interactive (list
|
|
74 (read-file-name "Insert contents of: ")
|
|
75 (completing-read "Content-type: "
|
|
76 mh-mime-content-types nil nil nil)
|
|
77 (read-string "Content-description: ")))
|
|
78 (mh-mhn-compose-type pathname type description))
|
|
79
|
|
80 (defun mh-mhn-compose-type (pathname type
|
|
81 &optional description attributes comment)
|
|
82 (beginning-of-line)
|
|
83 (insert "#" type)
|
|
84 (and attributes
|
|
85 (insert "; " attributes))
|
|
86 (and comment
|
|
87 (insert " (" comment ")"))
|
|
88 (insert " [")
|
|
89 (and description
|
|
90 (insert description))
|
|
91 (insert "] " (expand-file-name pathname))
|
|
92 (insert "\n"))
|
|
93
|
|
94
|
|
95 (defun mh-mhn-compose-anon-ftp (host pathname type description)
|
|
96 "Add a directive for an anonymous ftp external body part.
|
11332
|
97 This directive tells MH to include a reference to a
|
|
98 message/external-body part retrievable by anonymous FTP. Arguments
|
|
99 are HOST and PATHNAME, which tell where to find the file, TYPE, the
|
|
100 MIME content type, and DESCRIPTION, a line of text for the
|
|
101 Content-description header. See also \\[mh-edit-mhn]."
|
6365
|
102 (interactive (list
|
|
103 (read-string "Remote host: ")
|
|
104 (read-string "Remote pathname: ")
|
|
105 (completing-read "External Content-type: "
|
|
106 mh-mime-content-types nil nil nil)
|
|
107 (read-string "External Content-description: ")))
|
|
108 (mh-mhn-compose-external-type "anon-ftp" host pathname
|
|
109 type description))
|
|
110
|
|
111 (defun mh-mhn-compose-external-compressed-tar (host pathname description)
|
|
112 "Add a directive to include a reference to a compressed tar file.
|
11332
|
113 The file should be available via anonymous ftp. This directive
|
|
114 tells MH to include a reference to a message/external-body part.
|
|
115 Arguments are HOST and PATHNAME, which tell where to find the file, and
|
|
116 DESCRIPTION, a line of text for the Content-description header.
|
6365
|
117 See also \\[mh-edit-mhn]."
|
|
118 (interactive (list
|
|
119 (read-string "Remote host: ")
|
|
120 (read-string "Remote pathname: ")
|
|
121 (read-string "Tar file Content-description: ")))
|
|
122 (mh-mhn-compose-external-type "anon-ftp" host pathname
|
|
123 "application/octet-stream"
|
|
124 description
|
|
125 "type=tar; conversions=x-compress"
|
|
126 "mode=image"))
|
|
127
|
|
128
|
|
129 (defun mh-mhn-compose-external-type (access-type host pathname type
|
|
130 &optional description
|
|
131 attributes extra-params comment)
|
|
132 (beginning-of-line)
|
|
133 (insert "#@" type)
|
|
134 (and attributes
|
|
135 (insert "; " attributes))
|
|
136 (and comment
|
|
137 (insert " (" comment ") "))
|
|
138 (insert " [")
|
|
139 (and description
|
|
140 (insert description))
|
|
141 (insert "] ")
|
|
142 (insert "access-type=" access-type "; ")
|
|
143 (insert "site=" host)
|
|
144 (insert "; name=" (file-name-nondirectory pathname))
|
|
145 (insert "; directory=\"" (file-name-directory pathname) "\"")
|
|
146 (and extra-params
|
|
147 (insert "; " extra-params))
|
|
148 (insert "\n"))
|
|
149
|
11332
|
150 (defun mh-mhn-compose-forw (&optional description folder messages)
|
6365
|
151 "Add a forw directive to this message.
|
|
152 This directive tells MH to include the named messages in this one.
|
|
153 Arguments are DESCRIPTION, a line of text for the Content-description header,
|
11332
|
154 FOLDER and MESSAGES, which name the message(s) to be forwarded.
|
6365
|
155 See also \\[mh-edit-mhn]."
|
|
156 (interactive (list
|
|
157 (read-string "Forw Content-description: ")
|
11332
|
158 (mh-prompt-for-folder "Message from" mh-sent-from-folder nil)
|
6365
|
159 (read-string (format "Messages%s: "
|
|
160 (if mh-sent-from-msg
|
|
161 (format " [%d]" mh-sent-from-msg)
|
11332
|
162 "")))))
|
6365
|
163 (beginning-of-line)
|
|
164 (insert "#forw [")
|
|
165 (and description
|
|
166 (not (string= description ""))
|
|
167 (insert description))
|
|
168 (insert "]")
|
|
169 (and folder
|
|
170 (not (string= folder ""))
|
|
171 (insert " " folder))
|
11332
|
172 (if (and messages
|
|
173 (not (string= messages "")))
|
6365
|
174 (let ((start (point)))
|
11332
|
175 (insert " " messages)
|
6365
|
176 (subst-char-in-region start (point) ?, ? ))
|
|
177 (if mh-sent-from-msg
|
|
178 (insert " " (int-to-string mh-sent-from-msg))))
|
|
179 (insert "\n"))
|
|
180
|
11332
|
181 (defun mh-edit-mhn (&optional extra-args)
|
|
182 "Format the current draft for MIME, expanding any mhn directives.
|
|
183 Process the current draft with the mhn program, which,
|
|
184 using directives already inserted in the draft, fills in
|
6365
|
185 all the MIME components and header fields.
|
|
186 This step should be done last just before sending the message.
|
|
187 The mhn program is part of MH version 6.8 or later.
|
|
188 The `\\[mh-revert-mhn-edit]' command undoes this command.
|
11332
|
189 The arguments in the list `mh-mhn-args' are passed to mhn
|
|
190 if this function is passed an argument.
|
|
191
|
|
192 For assistance with creating mhn directives to insert
|
6365
|
193 various types of components in a message, see
|
|
194 \\[mh-mhn-compose-insertion] (generic insertion from a file),
|
|
195 \\[mh-mhn-compose-anon-ftp] (external reference to file via anonymous ftp),
|
|
196 \\[mh-mhn-compose-external-compressed-tar] \
|
|
197 \(reference to compressed tar file via anonymous ftp), and
|
|
198 \\[mh-mhn-compose-forw] (forward message)."
|
11332
|
199 (interactive "*P")
|
6365
|
200 (save-buffer)
|
|
201 (message "mhn editing...")
|
11332
|
202 (mh-exec-cmd-error (format "mhdraft=%s" buffer-file-name)
|
|
203 "mhn" (if extra-args mh-mhn-args) buffer-file-name)
|
6365
|
204 (revert-buffer t t)
|
11332
|
205 (message "mhn editing...done")
|
|
206 (run-hooks 'mh-edit-mhn-hook))
|
6365
|
207
|
|
208
|
|
209 (defun mh-revert-mhn-edit (noconfirm)
|
|
210 "Undoes the effect of \\[mh-edit-mhn] by reverting to the backup file.
|
11332
|
211 Optional non-nil argument means don't ask for confirmation."
|
6365
|
212 (interactive "*P")
|
|
213 (if (null buffer-file-name)
|
|
214 (error "Buffer does not seem to be associated with any file"))
|
|
215 (let ((backup-strings '("," "#"))
|
|
216 backup-file)
|
|
217 (while (and backup-strings
|
|
218 (not (file-exists-p
|
|
219 (setq backup-file
|
|
220 (concat (file-name-directory buffer-file-name)
|
|
221 (car backup-strings)
|
|
222 (file-name-nondirectory buffer-file-name)
|
|
223 ".orig")))))
|
|
224 (setq backup-strings (cdr backup-strings)))
|
|
225 (or backup-strings
|
|
226 (error "mhn backup file for %s no longer exists!" buffer-file-name))
|
|
227 (or noconfirm
|
|
228 (yes-or-no-p (format "Revert buffer from file %s? "
|
|
229 backup-file))
|
|
230 (error "mhn edit revert not confirmed."))
|
|
231 (let ((buffer-read-only nil))
|
|
232 (erase-buffer)
|
|
233 (insert-file-contents backup-file))
|
|
234 (after-find-file nil)))
|