X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Ftls.el;fp=lisp%2Ftls.el;h=544aec5cfda934212c5b7f5b4c95053708a92db5;hp=46891be38e6f42dcdac1d41c1c6d6474ce62ab77;hb=9b59bbc726ce58ee2923a0e3eff5b05523e88630;hpb=b9d4597a71a404851e3180b476ffe6186131adac

diff --git a/lisp/tls.el b/lisp/tls.el
index 46891be38..544aec5cf 100644
--- a/lisp/tls.el
+++ b/lisp/tls.el
@@ -174,11 +174,10 @@ Used by `tls-certificate-information'."
   :type 'string
   :group 'tls)
 
-(eval-and-compile
-  (if (fboundp 'format-message)
-      (defalias 'tls-format-message 'format-message)
+(defalias 'tls-format-message
+  (if (fboundp 'format-message) 'format-message
     ;; for Emacs < 25, and XEmacs, don't worry about quote translation.
-    (defalias 'tls-format-message 'format)))
+    'format))
 
 (defun tls-certificate-information (der)
   "Parse X.509 certificate in DER format into an assoc list."