From: yamaoka <yamaoka>
Date: Thu, 10 Jul 2003 01:59:35 +0000 (+0000)
Subject: * pop3.el: Silence the byte-compiler when modifying
X-Git-Tag: t-gnus-6_16_3-00~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2a22b038e7f54c50042e40206b58888a9c9bbbb4;p=elisp%2Fgnus.git-

* pop3.el: Silence the byte-compiler when modifying
 `byte-compile-function-environment' for `md5' under latest Emacs.
---

diff --git a/ChangeLog b/ChangeLog
index c9ca4aa..9af3bcb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2003-07-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* lisp/pop3.el: Silence the byte-compiler when modifying
+	`byte-compile-function-environment' for `md5' under latest Emacs.
+
 	* texi/ptexinfmt.el (texinfo-discard-command-and-arg): Revive it
 	for Mule 2.
 
diff --git a/lisp/pop3.el b/lisp/pop3.el
index 510884f..3bb1de5 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -511,18 +511,16 @@ If NOW, use that time instead."
 ;; tree, `md5' might have been defined in w3/md5.el, ./lpath.el or one
 ;; of some other libraries and `md5' will accept only 3 arguments.  We
 ;; will deceive the byte-compiler not to say warnings.
-(eval-and-compile
-  (if (fboundp 'eval-when)
-      ;; `eval-when' might not be provided when loading .el file.
-      (eval-when 'compile
-	(let ((def (assq 'md5 byte-compile-function-environment)))
-	  (if def
-	      (setcdr def '(lambda (object &optional start end
-					   coding-system noerror)))
-	    (setq byte-compile-function-environment
-		  (cons '(md5 . (lambda (object &optional start end
-						coding-system noerror)))
-			byte-compile-function-environment)))))))
+(eval-when-compile
+  (if (boundp 'byte-compile-function-environment)
+      (let ((def (assq 'md5 byte-compile-function-environment)))
+	(if def
+	    (setcdr def '(lambda (object &optional start end
+					 coding-system noerror)))
+	  (setq byte-compile-function-environment
+		(cons '(md5 . (lambda (object &optional start end
+					      coding-system noerror)))
+		      byte-compile-function-environment))))))
 
 ;; Note that `pop3-md5' should never encode a given string to use for
 ;; the apop authentication.