+;; T-gnus.
+(let ((functions
+ (cond
+ ((featurep 'xemacs)
+ nil)
+ ((>= emacs-major-version 21)
+ '(function-max-args smiley-encode-buffer))
+ ((boundp 'MULE)
+ '(coding-system-get
+ coding-system-to-mime-charset compose-mail file-name-extension
+ find-coding-systems-for-charsets find-coding-systems-region
+ function-max-args get-charset-property smiley-encode-buffer))
+ (t
+ '(function-max-args smiley-encode-buffer))))
+ (common-fns
+ nil)
+ (variables
+ (cond
+ ((featurep 'xemacs)
+ nil)
+ ((>= emacs-major-version 21)
+ nil)
+ ((boundp 'MULE)
+ nil)
+ (t
+ nil)))
+ (common-vars
+ '(navi2ch-mona-font)))
+ (maybe-fbind functions)
+ (maybe-fbind common-fns)
+ (maybe-bind variables)
+ (maybe-bind common-vars))