Emacs 20.7 (Canna, Wnn 対応版) + gnus + mew (+X-Face) のインストールログ

[準備]

    emacs-20.7.tar.gz
    leim-20.7.tar.gz
    emcws-20.7-20010830.gz (Canna, Wnn パッチ)
    apel-10.3.tar.gz
    flim-1.14.3.tar.gz
    semi-1.14.3.tar.gz
    t-gnus-6_15_4-06-quimby.tar.gz
    t-gnus-6_15_4-06-quimby-200109032221.patch
    mew-2.0.tar.gz
    compface.tar.Z
    bitmap-mule-8.4.tar.gz
    bitmap-fonts-1.0.tar.gz
    x-face-1.3.6.13.tar.gz

1. 展開

    tar zxvf emacs-20.7.tar.gz
    tar zxvf leim-20.7.tar.gz
    cd emacs-20.7
    zcat ../emcws-20.7-20010830.gz | patch -p1

2. configure

    ./configure  --with-gcc --with-x --with-x-toolkit 
    --with-canna --with-canna-includes=/usr/local/canna/include 
    --with-canna-libraries=/usr/local/canna/lib
    --with-wnn4 --with-wnn-includes=/usr/local/X11R6.4/include/wnn
    --with-wnn-libraries=/usr/local/X11R6.4/lib

3. make

    make all

5. インストール

    make install

6. apel + flim + semi のインストール

   各々、

   gtar zxvf apel-10.3.tar.gz
   cd apel-10.3
   make
   make install

   等とする。

7. t-gnus のインストール

   gtar zxvf t-gnus-6_15_4-06-quimby.tar.gz
   cd t-gnus-6_15_4-06-quimby
   patch -p1 < ../t-gnus-6_15_4-06-quimby-200109032221.patch
   ./configure
   make

   (注：make の時、texi で error が出たので gnus.texi の 5008 行の
    @itemize の行をエラーメッセージに従って @itemize @bullet と変更)

8. mew-2.0 のインストール

   gtar zxvf mew-2.0.tar.gz
   cd mew-2.0
   (Makefile の修正。今回はあらかじめ emacs -> emcws-20.7 とリンクを
   張っておいたので修正なし。)
   make
   make install

9. X-Face のインストール

   gtar zxvf compface.tar.Z
   cd compface
   (Makefile の MANDIR を /usr/local/man に変更し CC を gcc に)
   make
   make install

   tar zxvf bitmap-mule-8.4.tar.gz
   cd bitmap-mule-8.4/font
   tar zxvf ../../bitmap-fonts-1.0.tar.gz
   make
   make install-nogzip
   (何故かこれではエラーになったので cp *.pcf /usr/X11R6/lib/X11/fonts/misc
   してから cd /usr/X11R6/lib/X11/fonts/misc; mkfontsdir; xset fp rehash)
   cd ..
   make EMACS=emacs20
   make install EMACS=emacs20

   これで .emacs に

(if window-system
    (progn
      (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)))

   を入れると xbm ファイルが見えるはず
   (Emacs で M-x bitmap-insert-xbm-file hoge.xbm で表示してみる)

   gtar zxvf x-face-1.3.6.13.tar.gz
   cd x-face-1.3.6.13
   Emacs で x-face.el を byte-compile-file して x-face.elc 作成
   cp x-face.el* /usr/local/share/emacs/lib/site-lisp
   これで .emacs に

(autoload 'x-face-encode "x-face"
  "Generate X-Face string(s) from xbm file." t)
(autoload 'x-face-insert "x-face"
  "Insert X-Face fields." t)
(autoload 'x-face-save "x-face"
  "Save X-Face fields to files." t)
(autoload 'x-face-view "x-face"
  "View X-Face fields." t)
(autoload 'x-face-ascii-view "x-face"
  "View X-Face fields as ascii pictures." t)

   を入れると x-face を表示できるようになる。


[備考]

    mule と共存させるため、.emacs は以下のとおり。

  (if(string-match "20." emacs-version)
        (load "~/.emacs20" nil t nil)
        (load "~/.mule" nil t nil))

    また、.emacs20 は以下のとおり。

(set-language-environment "Japanese")
(set-terminal-coding-system 'euc-japan)
(set-keyboard-coding-system 'euc-japan)
(set-buffer-file-coding-system 'euc-japan)

;;
(if (and (boundp 'CANNA) CANNA)
    (progn
      (cond ((boundp 'egg-version)
             (require 'can-n-egg)
             (can-n-egg))
            (t
             (require 'canna)
             (canna)))
      ))
;

;;
;;  mew minimum setting (remaining setting will be in .mew.el 
;;
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)

;;
;; gnus setup
;;
;(load "mime-setup")
;
(setq user-mail-address "kanamitu@fukuoka-edu.ac.jp")
(setq user-full-name "Osamu Kanamitsu")

;
(setq gnus-local-organization "Fukuoka University of Education")

(autoload 'gnus "gnus" nil t)
(setq message-required-mail-headers
    '(From Subject Date (optional . In-Reply-To) Lines
                (optional . X-Mailer)))
(setq message-syntax-checks
      '((long-lines . disabled)
        (control-chars . disabled)
                (multiple-headers . disabled)
        (sender . disabled)
))
(setq message-required-news-headers
      '(From Newsgroups Subject Lines
 (optional . Organization) (optional . X-Newsreader)(optional . X-Face)
 (optional . User-Agent)))
(setq gnus-select-method '(nntp "news.fukuoka-edu.ac.jp" ))
(setq gnus-local-timezone t)
(setq gnus-local-timezone +0900)
(setq gnus-novice-user t)

;; header list
(setq gnus-visible-headers
       (list
       "From:"
       "Subject:"
       "Newsgroups:"
       "Lines:"
       "Date:"
       "Message-ID:"
       "Organization:"
       "X-Newsreader:"
       "X-Face:"
))


   残りの mew の設定は mew-2.0 附属の mew.dot.emacs を元に ~/.mew.el
   に設定。ここでは POP を使わずローカルスプールからメールを読むので
   mew-2.0 の contrib にある mewinc (Perl スクリプト)を修正して
   /usr/local/bin にインストールしておいた。.mew.el は例えば次のよう。

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

(setq mew-name "User Full Name") ;; (user-full-name)
(setq mew-user "user") ;; (user-login-name)
(setq mew-mail-domain "fukuoka-edu.ac.jp")
;; (setq mew-pop-user "your POP account")   ;; (user-login-name)
;(setq mew-pop-server "mail.fukuoka-edu.ac.jp")    ;; if not localhost
(setq mew-smtp-server "mail.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".

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Citation tip
;;;
;;;
;;; From: Kazu-kun
;;; Subject: Hello World
;;; Date: Thu, 08 Dec 1994 11:44:08 +0900
;;; Message-Id: <199509291309.WAA21663@decpc07.aist-nara.ac.jp>
;;;
;;; Kazu-kun> The quick brown fox jumped over the very lazy dog.
;;;

(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
(setq mew-cite-prefix-function 'mew-cite-prefix-username)
;(setq mew-addrbook-for-cite-label 'nickname)
;(setq mew-addrbook-for-cite-prefix 'nickname)

    (一部略)


[補足]

emacs をX-Window で(-nw でなく)立ち上げる時の .Xdefaults の例。

Emacs*Fontset-0: -*-fixed-medium-r-normal--16-*-*-*-*-*-fontset-16,\
		 ascii:-*-fixed-medium-r-normal-*-16-*-iso8859-1,\
		 japanese-jisx0208:-*-fixed-medium-r-normal-*-16-*-jisx0208*
Emacs*Geometry: 80x40+0+0
XEmacs*EmacsFrame.geometry: 80x40+0+0

最初の設定はフォント設定でこれを使うには例えば .emacs に、

(setq default-frame-alist
      (append '((font . "fontset-16")) default-frame-alist))

などとする。

また、下の２行はウィンドウの大きさを設定するが、上の行だけだと XEmacs と
共存させた時に xemacs 起動時に 

Initialization error: Invalid geometry resource

と出るので、これを回避するために入れてある。