[Mew-dist 04172] Re: kiki と jiji を表示しよう ! (Re: BDF font durability test)

[小関 吉則 (KOSEKI Yoshinori)]

こせきです。

kose> 以下のパッチででなくはなります。

あ、いや、やっぱり、表示の遅さに耐え兼ねて...

XBM ではなくMULE bitmap形式にあらかじめ変換しておきましょうか。

1. make Mew.img

(cd "./mew-1.93b24/etc/")

(let ((file.xbm "Mew.xbm")
      (file.img "Mew.img"))
  (require 'bitmap)
  (find-file file.img)
  (bitmap-insert-xbm-file file.xbm)
  (save-buffer (current-buffer))
  (kill-buffer (current-buffer))
  )
という感じで、Mew.img を用意します。

2. cp Mew.img mew-icon-directory

3. patch mew-demo.el
   patch mew-vars.el

*** mew-demo.el.orig	Wed Feb 25 13:15:21 1998
--- mew-demo.el	Wed Mar 11 14:12:29 1998
***************
*** 79,88 ****
        (sit-for 0) ;; to redraw
        )
       ((and (featurep 'bitmap) mew-demo-picture)
!       (bitmap-insert-xbm-file 
!        (expand-file-name mew-icon-mew-mono mew-icon-directory))
        (center-region (point-min) (point-max))
        (sit-for 0) ;; to redraw
        )
       (t
        (insert "/\\\\ - \\\\/")
--- 79,90 ----
        (sit-for 0) ;; to redraw
        )
       ((and (featurep 'bitmap) mew-demo-picture)
!       (let ((file (expand-file-name 
!                      mew-icon-mew-mule-bitmap-image mew-icon-directory)))
!         (and (file-exists-p file)(insert-file file)))
        (center-region (point-min) (point-max))
        (sit-for 0) ;; to redraw
+       (if mew-demo (mew-demo))
        )
       (t
        (insert "/\\\\ - \\\\/")

*** mew-vars.el.orig	Tue Mar 11 06:38:59 1997
--- mew-vars.el	Wed Mar 11 14:10:49 1998
***************
*** 673,678 ****
--- 673,679 ----
  
  (defvar mew-icon-mew "Mew.xpm")
  (defvar	mew-icon-mew-mono "Mew.xbm")
+ (defvar	mew-icon-mew-mule-bitmap-image "Mew.img")
  
  (defvar mew-logo nil)
  

4. ~/.emacs

(setq mew-demo-picture t)


表示が遅くて使いたくないと思っていた方は一度お試しあれ。

以下、蛇足。何度も kiki&jiji を表示させたいな...

*** mew.el.orig	Tue Mar 11 06:39:00 1997
--- mew.el	Wed Mar 11 14:44:45 1998
***************
*** 235,240 ****
--- 235,241 ----
    (interactive "P")
    (let ((auto (if arg (not mew-auto-get) mew-auto-get)))
      (mew-window-push)
+     (mew-hello)
      (if (null mew-mail-path) (mew-init))
      (if auto
  	(mew-summary-get)
***************
*** 253,259 ****
  ;;;
  
  (defun mew-init ()
!   (mew-hello)
    (message "Setting Mew world ...")
    (mew-set-environment)
    (if mew-use-bbdb (require 'bbdb-com)) ;; bbdb is implicitly required
--- 254,260 ----
  ;;;
  
  (defun mew-init ()
!   ;;(mew-hello)
    (message "Setting Mew world ...")
    (mew-set-environment)
    (if mew-use-bbdb (require 'bbdb-com)) ;; bbdb is implicitly required

--
こせき