[Mew-dist 09563] Re: 新しい frame で bold 表示されない

[Hideyuki SHIRAI ( 白井秀行 )]

こんにちは、白井です。

From: TAKAHASHI Masafumi <mta at example.com> さん曰く
Subject: [Mew-dist 09560] 新しい frame で bold 表示されない
Message-ID: <199907080304.MAA01278 at example.com>
Date: Thu, 8 Jul 1999 12:05:00 +0900

高橋> Mew 起動後に新たに開いた frame で Mew を使うと、Message バッファで
高橋> bold フォントで表示されていた部分が bold でないふつうのフォントで
高橋> 表示されてしまいます。
高橋> Mew 起動前に開いてあった frame ではみな問題無く表示されます。

ちなみに、italic も italic-bold もだめです。
これって、Mew だけの問題じゃないので、Emacs20.3.x の不具合の様な
気がします。
とっても悲しいので bold などを使っている face をみんな調べあげて、
以下の様にしています。余分なモノがたくさん入っているので取捨選択
して下さい。

# Mew って書いてあっても、original な Mew に無いものもありますし、
# 判定条件もいいかげんです。お気をつけを。。。

(cond
 ((boundp 'after-make-frame-functions)
  (setq after-make-frame-functions 'shirai-face-refresh)))

(defun shirai-face-refresh (&optional arg)
  (interactive)
  (if (functionp 'sdic-init-dictionary)
      (progn
        (copy-face 'bold-italic 'sdic-face)
        (set-face-underline-p 'sdic-face t)
        (set-face-foreground 'sdic-face "Blue")))

  (if (functionp 'mew-version-show)
      (progn
        (mew-highlight-face-setup mew-highlight-header-face-list)
        (mew-highlight-face-setup mew-highlight-body-face-list)
        (mew-highlight-face-setup mew-highlight-mark-face-list)))

  (if (facep 'mew-refile-face)
      (progn
        (copy-face 'bold-italic 'mew-refile-face)
        (set-face-underline-p 'mew-refile-face t)
        (set-face-foreground 'mew-refile-face "Blue")))

  (if (facep 'mew-cite-color-comment-face)
      (progn
        (copy-face mew-cite-color-comment-face-type 'mew-cite-color-comment-face)
        (set-face-foreground 'mew-cite-color-comment-face mew-cite-color-comment-face-color)))

  (if (boundp 'mew-cite-color-faces)
      (mapcar '(lambda (face-list)
                 (if (facep '(cdr face-list))
                     (progn
                       (copy-face mew-cite-color-face-type (cdr face-list))
                       (set-face-foreground (cdr face-list) (car face-list)))))
              mew-cite-color-faces))
    
  (if (functionp 'woman-colour-faces)
      (progn
        (copy-face 'bold woman-bold-face)
        (if (or woman-always-colour-faces
                (not (face-differs-from-default-p woman-bold-face)))
            (set-face-foreground woman-bold-face "Blue")))))