Emacs 21.3 (emcws パッチ) + Mew 3.2 のインストールログ

1. Emacs の展開とインストール

  gtar zxvf emacs-21.3.tar.gz
  gtar leim-21.3.tar.gz
  cd emacs-21.3
  gzcat ../emcws-21.3-20030507.gz | patch -p1
  
  今回は Solaris 9 付属の X(Openwin)と Wnn, Canna を使う設定にする。
  (Canna は /usr/local 以下に Canna36p3.tar.gz をインストールしておく)

  Solaris 9 付属のフリーソフトウェアをインストールしてあると、/opt/sfw/lib
  または /usr/sfw/lib に Xaw3d, Xpm, jpeg, tiff, png のライブラリがあるはず。
  (ungif のライブラリもあるが何故か configure で使ってくれなかった。)

  ./configure --with-wnn-includes=/usr/lib/locale/ja/wnn/demo/include/wnn \
    --with-wnn-libraries=/usr/lib/locale/ja/wnn/demo/lib \
    --with-canna \
    --with-canna-includes=/usr/local/canna/include \  
    --with-canna-libraries=/usr/local/canna/lib \
    --x-libraries=/usr/lib:/usr/dt/lib:/usr/openwin/lib:/opt/sfw/lib: \
      /usr/sfw/lib:/usr/local/lib \
    --x-includes=/usr/include:/usr/dt/include:/usr/openwin/include: \
      /opt/sfw/include:/usr/sfw/include:/usr/local/include

   make
   make install

   この場合インストールされるのは emcws なので /usr/local/bin で
   ln -s emcsw emacs としておく。

2. Mew 3.2 のインストール

   gtar zxvf mew-3.2.tar.gz
   cd mew-3.2
   make
   make install

   .emacs に次のように記述。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (language environment)
;; Usually, you only need set-keyboard-coding-system
;;   for input from personal computer's IME.
;;     If something wrong, edit other lines.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(set-language-environment "Japanese")
(set-terminal-coding-system 'euc-japan)
(set-keyboard-coding-system 'euc-japan)
(set-buffer-file-coding-system 'euc-japan)
;(set-buffer-process-coding-system 'iso-2022-jp)
;(set-buffer-process-coding-system 'euc-japan)
;(set-default-font "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; If you want use canna, uncomment these lines.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq jserver-list (list "localhost"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; If you want use canna, uncomment these lines.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (and (boundp 'CANNA) CANNA)
    (progn
      (cond ((boundp 'egg-version)
             (require 'can-n-egg)
             (can-n-egg))
            (t
             (require 'canna)
             (canna)))
      ))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; some useful setting ?
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq mail-fill-column 72)
(setq display-time-day-and-date t)
(display-time)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; If you want use mew for MUA, uncomment these lines.
; Mew 2.0 read .mew.el file. please set these lines in .mew.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)

    同様に .mew.el を雛形を元に記述。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; sample file of .emacs or .mew.el
;;;
;
; This is just a sample. You should customize as you like...
;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Site configuration
;;;

;(autoload 'mew "mew" nil t)
;(autoload 'mew-send "mew" nil t)
(setq mew-name "Namae wo kaku") ;; (user-full-name)
(setq mew-user "userID") ;; (user-login-name)
(setq mew-mail-domain "hoge1.fukuoka-edu.ac.jp")
;; (setq mew-pop-user "your POP account")   ;; (user-login-name)
;(setq mew-pop-server "hoge1.fukuoka-edu.ac.jp")    ;; if not localhost
;(setq mew-smtp-server "hoge1.fukuoka-edu.ac.jp")  ;; if not localhost
;(setq mew-icon-directory "/usr/local/lib/emacs/etc/Mew") ;; if using XEmacs/Emacs 21
;; See also mew-config-alist for advanced use
;
;; To use local mailbox "mbox" or "maildir" instead of POP
(setq mew-mailbox-type 'mbox)
;; use mewinc included mew-2.0 package
;(setq mew-mbox-command "mewinc")
;; use incm command delivered at ftp.mew.org
(setq mew-mbox-command "incm")
;(setq mew-mbox-command-arg "-d /path/to/mbox")
;; If /path/to/mbox is a file, it means "mbox".
;; If /path/to/mbox is a directory, it means "maildir".
;
;; Optional setup (Read Mail menu for Emacs 21):
;(if (boundp 'read-mail-command)
;    (setq read-mail-command 'mew))
;
;; Optional setup (e.g. C-xm for sending a message):
;(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-message
;      'mew-draft-kill
;      'mew-send-hook))

(setq mew-use-fancy-thread t)