-(if (featurep 'xemacs)
- (progn
- (maybe-fbind '(propertize))
- (maybe-bind '(mh-lib-progs)))
- ;; FSFmacs
- (maybe-fbind '(charsetp
- function-max-args propertize smiley-encode-buffer))
- (if (boundp 'MULE)
- (progn
- (maybe-fbind '(coding-system-get
- compose-mail
- file-name-extension find-coding-systems-region
- get-charset-property shell-command-to-string))
- (maybe-bind '(mh-lib-progs)))))
+(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))