projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* mime-edit.el (mime-file-types): Add application/pdf. Use base64
[elisp/semi.git]
/
mime-edit.el
diff --git
a/mime-edit.el
b/mime-edit.el
index
13c0c84
..
4b3c704
100644
(file)
--- a/
mime-edit.el
+++ b/
mime-edit.el
@@
-236,6
+236,9
@@
To insert a signature file automatically, call the function
("application"
("octet-stream" ("type" "" "tar" "shar"))
("postscript")
("application"
("octet-stream" ("type" "" "tar" "shar"))
("postscript")
+ ("pdf")
+ ("msword")
+ ("vnd.ms-excel")
("vnd.ms-powerpoint")
("x-kiss" ("x-cnf")))
("image"
("vnd.ms-powerpoint")
("x-kiss" ("x-cnf")))
("image"
@@
-321,6
+324,11
@@
To insert a signature file automatically, call the function
"base64"
"attachment" (("filename" . file))
)
"base64"
"attachment" (("filename" . file))
)
+ ("\\.xls$" ; MS Excel
+ "application" "vnd.ms-excel" nil
+ "base64"
+ "attachment" (("filename" . file))
+ )
("\\.ppt$" ; MS Power Point
"application" "vnd.ms-powerpoint" nil
"base64"
("\\.ppt$" ; MS Power Point
"application" "vnd.ms-powerpoint" nil
"base64"
@@
-334,7
+342,12
@@
To insert a signature file automatically, call the function
)
("\\.ps$"
"application" "postscript" nil
)
("\\.ps$"
"application" "postscript" nil
- "quoted-printable"
+ "base64"
+ "attachment" (("filename" . file))
+ )
+ ("\\.pdf$"
+ "application" "pdf" nil
+ "base64"
"attachment" (("filename" . file))
)
"attachment" (("filename" . file))
)
@@
-498,6
+511,7
@@
If encoding is nil, it is determined from its contents."
(iso-8859-7 8 "quoted-printable")
(iso-8859-8 8 "quoted-printable")
(iso-8859-9 8 "quoted-printable")
(iso-8859-7 8 "quoted-printable")
(iso-8859-8 8 "quoted-printable")
(iso-8859-9 8 "quoted-printable")
+ (iso-8859-14 8 "quoted-printable")
(iso-8859-15 8 "quoted-printable")
(iso-2022-jp 7 "base64")
(iso-2022-jp-3 7 "base64")
(iso-8859-15 8 "quoted-printable")
(iso-2022-jp 7 "base64")
(iso-2022-jp-3 7 "base64")
@@
-2301,7
+2315,13
@@
Content-Description: S/MIME Encrypted Message][base64]]\n")
(narrow-to-region beg (mime-edit-content-end))
(goto-char beg)
(while (re-search-forward "\\(\\=\\|[^\r]\\)\n" nil t)
(narrow-to-region beg (mime-edit-content-end))
(goto-char beg)
(while (re-search-forward "\\(\\=\\|[^\r]\\)\n" nil t)
- (replace-match "\\1\r\n"))))
+ ;; In a certain period, `replace-match' with "\\N"
+ ;; converted 8-bit characters into multibyte string,
+ ;; but it has been fixed at 2004-01-15.
+ ;;(replace-match "\\1\r\n"))))
+ (backward-char 1)
+ (insert "\r")
+ (forward-char 1))))
(goto-char beg)
(mime-encode-region beg (mime-edit-content-end)
(or encoding "7bit"))
(goto-char beg)
(mime-encode-region beg (mime-edit-content-end)
(or encoding "7bit"))