Meadowでメイリオフォントを使うため、http://d.hatena.ne.jp/kenkitii/20060627/p1を参考にさせていただき（ありがとうございます！）、.emacsに以下のように記述しました（なお、この設定を使って、トラブルが起きても責任は負いかねますので、各自の責任でご使用ください）：
その他参考にしたサイト：http://koress.jp/2007/02/meadow.html
;; メイリオ設定
;;
(let ((make-spec
(function
(lambda (size charset fontname &optional windows-charset)
(setq size (- size))
(if (not windows-charset)
(setq windows-charset
(cadr (assq charset mw32-charset-windows-font-info-alist))))
`(((:char-spec ,charset :height any)
strict
(w32-logfont ,fontname 0 ,size 400 0 nil nil nil ,windows-charset
1 3 0))
((:char-spec ,charset :height any :weight bold)
strict
(w32-logfont ,fontname 0 ,size 700 0 nil nil nil ,windows-charset
1 3 0)
((spacing . -1)))
((:char-spec ,charset :height any :slant italic)
strict
(w32-logfont ,fontname 0 ,size 400 0 t nil nil ,windows-charset
1 3 0))
((:char-spec ,charset :height any :weight bold :slant italic)
strict
(w32-logfont ,fontname 0 ,size 700 0 t nil nil ,windows-charset
1 3 0)
((spacing . -1)))))))
(make-spec-list
(function
(lambda (size params-list)
(list (cons 'spec
(apply 'append
(mapcar (lambda (params)
(apply make-spec (cons size params)))
params-list))))
)))
(define-fontset
(function
(lambda (fontname size fontset-list)
(let ((spec (funcall make-spec-list size fontset-list)))
(if (w32-list-fonts fontname)
(w32-change-font fontname spec)
(w32-add-font fontname spec)
)))))
(meiryo-fontset-list
'(
(ascii "Courier New")
(katakana-jisx0201 "メイリオ")
(japanese-jisx0208 "メイリオ")
))
)
(funcall define-fontset "Meiryo 10" 10 meiryo-fontset-list)
(funcall define-fontset "Meiryo 12" 12 meiryo-fontset-list)
(funcall define-fontset "Meiryo 14" 14 meiryo-fontset-list)
(funcall define-fontset "Meiryo 16" 16 meiryo-fontset-list)
(funcall define-fontset "Meiryo 18" 18 meiryo-fontset-list)
(funcall define-fontset "Meiryo 20" 20 meiryo-fontset-list)
(funcall define-fontset "Meiryo 22" 22 meiryo-fontset-list)
(funcall define-fontset "Meiryo 24" 24 meiryo-fontset-list)
(funcall define-fontset "Meiryo 36" 36 meiryo-fontset-list)
(funcall define-fontset "Meiryo 48" 48 meiryo-fontset-list)
);; 初期フレームの設定
(setq default-frame-alist
(append (list '(foreground-color . "black")
'(background-color . "white")
'(border-color . "black")
'(mouse-color . "white")
'(cursor-color . "black")
'(font . "Meiryo 14")
'(width . 80)
'(height . 40)
'(top . 0)
'(left . 30))
default-frame-alist))
