summaryrefslogtreecommitdiff
path: root/lisp/mh-e
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2016-02-12 14:39:30 +1100
committerLars Ingebrigtsen <larsi@gnus.org>2016-02-12 14:39:30 +1100
commit37cf4454b1646481935e7b5bfffc8f64eb484b3a (patch)
treeabaf9658273165e5f15256db2686d97c81cc47f8 /lisp/mh-e
parent87931c8dc0094facff7c8e27267d630a9254a524 (diff)
downloademacs-37cf4454b1646481935e7b5bfffc8f64eb484b3a.tar.gz
Remove XEmacs compat functions from mm-util.el
* lisp/gnus/mm-util.el (mm-special-display-p): Remove. (mm-decode-coding-string, mm-encode-coding-string) (mm-decode-coding-region, mm-encode-coding-region): Remove. (mm-string-to-multibyte): Remove. (mm-char-or-char-int-p): Remove. (mm-ucs-to-char): Remove compat versions of the function. (mm-read-coding-system): Remove. (mm-coding-system-p): Remove compat code. (mm-enrich-utf-8-by-mule-ucs): Remove. (mm-enable-multibyte, mm-disable-multibyte): Remove compat versions. (mm-delete-duplicates): Remove. (mm-multibyte-p): Remove compat versions. (mm-xemacs-find-mime-charset-1): Remove. (mm-xemacs-find-mime-charset): Remove. (mm-make-temp-file): Made obsolete. (mm-find-buffer-file-coding-system): Remove XEmacs compat.
Diffstat (limited to 'lisp/mh-e')
-rw-r--r--lisp/mh-e/mh-comp.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index 4e64cfb12d3..72980b7ead8 100644
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -916,14 +916,14 @@ CONFIG is the window configuration before sending mail."
;; use it as the drafts folder. Then copy the skeleton to a regular
;; temp file, and return the regular temp file.
(let (new
- (temp-folder (mm-make-temp-file
+ (temp-folder (make-temp-file
(concat mh-user-path "draftfolder.") t)))
(mh-exec-cmd "comp" "-nowhatnowproc"
"-draftfolder" (format "+%s"
(file-name-nondirectory temp-folder))
(if (stringp mh-comp-formfile)
(list "-form" mh-comp-formfile)))
- (setq new (mm-make-temp-file "comp."))
+ (setq new (make-temp-file "comp."))
(rename-file (concat temp-folder "/" "1") new t)
(delete-file (concat temp-folder "/" ".mh_sequences"))
(delete-directory temp-folder)