diff options
Diffstat (limited to 'lisp/mh-e/mh-xface.el')
-rw-r--r-- | lisp/mh-e/mh-xface.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-xface.el b/lisp/mh-e/mh-xface.el index 027d79a948a..1c7531b59d1 100644 --- a/lisp/mh-e/mh-xface.el +++ b/lisp/mh-e/mh-xface.el @@ -125,7 +125,8 @@ in this order is used." (defun mh-face-to-png (data) "Convert base64 encoded DATA to png image." (with-temp-buffer - (set-buffer-multibyte nil) + (if (fboundp 'set-buffer-multibyte) + (set-buffer-multibyte nil)) (insert data) (ignore-errors (base64-decode-region (point-min) (point-max))) (buffer-string))) @@ -133,7 +134,8 @@ in this order is used." (defun mh-uncompface (data) "Run DATA through `uncompface' to generate bitmap." (with-temp-buffer - (set-buffer-multibyte nil) + (if (fboundp 'set-buffer-multibyte) + (set-buffer-multibyte nil)) (insert data) (when (and mh-uncompface-executable (equal (call-process-region (point-min) (point-max) @@ -271,7 +273,8 @@ file contents as a string is returned. If FILE is nil, then both elements of the list are nil." (if (stringp file) (with-temp-buffer - (set-buffer-multibyte nil) + (if (fboundp 'set-buffer-multibyte) + (set-buffer-multibyte nil)) (let ((type (and (string-match ".*\\.\\(...\\)$" file) (intern (match-string 1 file))))) (insert-file-contents-literally file) |