+ '(gnus-face t face ,(symbol-value (intern (format "gnus-face-%d" type))))))
+
+;;; Avoid byte-compile warning.
+(defun gnus-tilde-pad-form (el pad-width)
+ "Dummy function except for XEmacs-mule. It will be redefined
+by `gnus-xmas-redefine'."
+ (let ((val (if (symbolp el) (eval el) el)))
+ (` (, val))))
+
+(defun gnus-balloon-face-function (form type)
+ `(gnus-put-text-property
+ (point) (progn ,@form (point))
+ 'balloon-help
+ ,(intern (format "gnus-balloon-face-%d" type))))