[Mew-Win32 01672] hidden "From:"

[Sawada Toyonobu]

澤田です。
先日、Message bufferをメモ帳経由で印刷したら、
なぜか"From:"が2行に並んで印刷されました。
Message bufferに見えているのは1つなのですが、
移動してカーソルを動かしていくとFrom:行で一旦停止します。

; Subject: [Mew-Win32 01671] Re: Re; mew-win32 user meeting(?)
; From: SUGIMORI (杉森 隆行) <taro at example.com>
; From: SUGIMORI (杉森 隆行) <taro at example.com>
; To: mew-win32 at example.com

M-wして貼り付けただけで、↑のような感じ。
x-face-muleを設定するとこうなるようですが、
他にこんな症状のある方はいらっしゃいます?
関係しそうなところをつけます。

# user meeting いいな、いいな。
# でも富山からはちょっと。。。

  の＠会社		non at example.com

-------------- next part --------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; x-face-mule の設定
;;
(setq x-face-mule-highlight-x-face-position 'from)
(setq x-face-mule-highlight-x-face-style 'default)
(setq mew-use-highlight-x-face-function nil)
(setq mew-use-highlight-x-face t)
(setq mew-use-highlight-x-face-function
      (function
       (lambda (beg end)
        (x-face-mule-x-face-decode-message-header beg end))))
(require 'x-face-mule)

; X-Face が分かれないように
(defvar mew-summary-display-message-filter-hook nil)

(defun mew-summary-display-message-filter ()
  (save-excursion
    (set-buffer (mew-buffer-message))
    (goto-char (point-min))
    (let ((buffer-read-only nil))
      (run-hooks 'mew-summary-display-message-filter-hook)
      )))

(add-hook 'mew-message-hook 'mew-summary-display-message-filter)

(add-hook 'mew-summary-display-message-filter-hook 'mew-x-face-mule-view)

(defun mew-x-face-mule-view ()
  (if (not mew-use-highlight-x-face)
      ()
    (goto-char (point-min))
    (if (and (re-search-forward "\n\n" nil t)
	     (re-search-backward "^X-Face:" nil t))
	(x-face-mule-x-face-decode-message-header))))