[mew-dist 26255] select-xface をすると送信できない

[Mimpei MORISHITA]

森下と申します。

select-xface をし、X-Face の画像を表示させると送信ができない、という現
象が発生しています。

1. w で draft バッファを作り、Subject、本文を書く。
2. C-c C-x (M-x select-xface) で X-Face を選択。
3. M-t (M-x x-face-show) で X-Face の画像を表示させる。
4. C-c C-c で送信。

とすると、Making a message... の表示が出たままプロンプトが戻ってこなく
なります。

C-g で止めて、draft ファイルを見てみると、From ヘッダとすぐ下の
X-Mailer ヘッダの間にたくさんの空行が出来ていて、どうもそのあたりでルー
プしているような雰囲気です。

2. のときに、C-c C-x の代わりに、C-x 4 i (M-x x-face-insert) だと現象
は発生しません。また、3. の M-t をもう一度入力して X-Face の画像を消し
た状態にした場合も現象は発生しません。

設定は、添付の .emacs と .mew-debug の通りです。

Emacs は、Meadow-2.00pre1 (KIKYOU) で、select-xface、x-face ともに
Meadow のパッケージに含まれていたものをそのまま使用しています。

よろしくお願いいたします。

--
もりした みんぺい
-------------- next part --------------
;;;; -*- mode: lisp-interaction; syntax: elisp; coding: iso-2022-7bit -*-
;; Language setting
(set-language-environment "Japanese")

;;;;; Mew setting
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-icon-directory "C:/tools/Meadow/site-lisp/mew/etc")
(setq mew-rc-file "~/.mew-debug")
-------------- next part --------------
;;;; -*- mode: lisp-interaction; syntax: elisp; coding: iso-2022-7bit -*-

(setq mew-config-alist
      '(
	("default"
	 ("user" .  "mimpei")
	 ("name" . "Mimpei MORISHITA")
	 ("mail-domain" . "cac.co.jp")
	 ("smtp-server" . "smtp.sbcglobal.net")
	)))

(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
    (setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
    (define-mail-user-agent
      'mew-user-agent
      'mew-user-agent-compose
      'mew-draft-send-letter
      'mew-draft-kill
      'mew-send-hook))

(setq mew-decode-quoted t)
(setq mew-auto-get nil)

;;; Summary 表示
(setq mew-summary-form '(type (5 date) " " (14 from) " " t (50 subj) "|" (0 body)))


;;; Select-X-Face Settings.
(autoload 'select-xface "select-xface" "Select X-Face" t)
(add-hook 'mew-draft-mode-hook
	  (lambda ()
	    (define-key (current-local-map) "\C-c\C-x" 
	      'select-xface)))
(setq select-xface-directory "~/x-faces")

;;; X Face Settings.
(require 'x-face-e21)
(cond ((featurep 'xemacs)
       ;;
       )
      ((= 21 emacs-major-version)
       (setq mew-use-highlight-x-face t)
       (if (fboundp 'mew-use-highlight-x-face-function)
	   (setq mew-use-highlight-x-face-function
		 'x-face-decode-message-header)
	 (defalias 'mew-highlight-x-face 'x-face-decode-message-header))
       (define-key mew-draft-mode-map "\C-x4i" 'x-face-insert)
       (define-key mew-draft-header-map "\C-x4i" 'x-face-insert)
       (define-key mew-draft-mode-map "\M-t" 'x-face-show)
       (define-key mew-draft-header-map "\M-t" 'x-face-show)
       (setq x-face-image-file-directory "~/x-faces")
       (setq x-face-default-xbm-file "mimpei-kao.xbm")
       )
      (t
       ;;
       ))