(defun riece-mcat (string)
"Translate STRING in the current language environment."
- (let ((feature (get-language-info current-language-environment
- 'riece-mcat-feature)))
+ (let ((feature (if (featurep 'mule)
+ (get-language-info current-language-environment
+ 'riece-mcat-feature))))
(if feature
(progn
(require feature)
(defun riece-mcat-extract (files)
(save-excursion
- (let (message-list)
+ (let (message-list pointer)
(while files
(with-temp-buffer
(insert-file-contents (car files))