;; display smiley in Mew message buffer !
;;   gnus の directory および bitmap-mule の directory には load-path を
;;   通しておきましょう。
(if (featurep 'xemacs)
    (autoload 'smiley-buffer "smiley")		; in Gnus package
  (autoload 'smiley-buffer "smiley-mule"))	; in tm/bitmap package

;; 常に bitmap 表示したい場合、あとは以下の一行で O.K.
;(add-hook 'mew-message-hook 'smiley-buffer)

;; message の smiley を bitmap 表示するための関数
(defun TT:mew-smiley-message ()
  (interactive)
  (save-excursion
    (set-buffer (mew-buffer-message))
    (let ((buffer-read-only nil))
      (smiley-buffer))))

;; Mew summay で、")" に smiley-buffer を割り当て
(add-hook 'mew-init-hook
	  (function
	   (lambda ()
	     (define-key mew-summary-mode-map ")" 'TT:mew-smiley-message))))

;; Gnus の smiley は、default では日本顔 (^_^;) の処理が たまに 変なので、
;; smiley-nosey-regexp-alist を使います。
(if (featurep 'xemacs)
    (progn
      (require 'smiley)		; in Gnus package
      (setq smiley-regexp-alist
	    (append 
	     '(("\\(\\^_?\\^;;;\\)\\W" 1 "WideFaceAse3.xbm")
	       ("\\(\\^_?\\^;;\\)\\W" 1 "WideFaceAse2.xbm")
	       ("\\(\\^_?\\^;\\)\\W" 1 "WideFaceAse1.xbm")
	       ("\\(\\^_?\\^\\)\\W" 1 "WideFaceSmile.xbm")
	       ("\\(;_;\\)\\W" 1 "WideFaceWeep.xbm")
	       ("\\(T_T\\)\\W" 1 "WideFaceWeep.xbm"))
	     smiley-nosey-regexp-alist))))