From: yamaoka <yamaoka>
Date: Mon, 10 Dec 2001 05:09:52 +0000 (+0000)
Subject: Fix last change (remove mm-util stuff).
X-Git-Tag: t-gnus-6_15_4-09-quimby-last-~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=45d259e8fd40a21a4ba548dc6a26d5ba7c22607f;p=elisp%2Fgnus.git-

Fix last change (remove mm-util stuff).
---

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 3850d1e..ba9b422 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -1183,31 +1183,30 @@ find-file-hooks, etc.
       (message "%s(Y/n) Yes" prompt)
       t)))
 
-(eval-and-compile
-  (unless (featurep 'mm-util)
-    (defun nnheader-image-load-path (&optional package)
-      (let (dir result)
-	(dolist (path load-path (nreverse result))
-	  (if (file-directory-p
-	       (setq dir (concat (file-name-directory
-				  (directory-file-name path))
-				 "etc/" (or package "gnus/"))))
-	      (push dir result))
-	  (push path result))))
-    (defalias 'mm-image-load-path 'nnheader-image-load-path)
-
-    (defalias 'mm-read-coding-system
-      (if (or (and (featurep 'xemacs)
-		   (<= (string-to-number emacs-version) 21.1))
-	      (boundp 'MULE))
-	  (lambda (prompt &optional default-coding-system)
-	    (read-coding-system prompt))
-	'read-coding-system))
-
-    (defalias 'mm-multibyte-string-p
-      (if (fboundp 'multibyte-string-p)
-	  'multibyte-string-p
-	'ignore))))
+(unless (featurep 'mm-util)
+  (defun nnheader-image-load-path (&optional package)
+    (let (dir result)
+      (dolist (path load-path (nreverse result))
+	(if (file-directory-p
+	     (setq dir (concat (file-name-directory
+				(directory-file-name path))
+			       "etc/" (or package "gnus/"))))
+	    (push dir result))
+	(push path result))))
+  (defalias 'mm-image-load-path 'nnheader-image-load-path)
+
+  (defalias 'mm-read-coding-system
+    (if (or (and (featurep 'xemacs)
+		 (<= (string-to-number emacs-version) 21.1))
+	    (boundp 'MULE))
+	(lambda (prompt &optional default-coding-system)
+	  (read-coding-system prompt))
+      'read-coding-system))
+
+  (defalias 'mm-multibyte-string-p
+    (if (fboundp 'multibyte-string-p)
+	'multibyte-string-p
+      'ignore)))
 
 (when (featurep 'xemacs)
   (require 'nnheaderxm))