2015-09-01 Katsumi Yamaoka <yamaoka@jpl.org>
+ * gnus-util.el (gnus-format-message):
+ * tls.el (tls-format-message): Use defalias at the top level so as to
+ make eval-and-compile unnecessary. Thanks to Stefan Monnier.
+
* gnus-sum.el (gnus-summary-search-article):
Ensure that the article where the search word is found is displayed
and pointed to in the summary buffer.
(string-equal (downcase str1) (downcase prefix))
(string-equal str1 prefix))))))
-(if (fboundp 'format-message)
- (defalias 'gnus-format-message 'format-message)
- ;; for Emacs < 25, and XEmacs, don't worry about quote translation.
- (defalias 'gnus-format-message 'format))
+(defalias 'gnus-format-message
+ (if (fboundp 'format-message) 'format-message
+ ;; for Emacs < 25, and XEmacs, don't worry about quote translation.
+ 'format))
;; Simple check: can be a macro but this way, although slow, it's really clear.
;; We don't use `bound-and-true-p' because it's not in XEmacs.
: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."