🚀 go-pugleaf

金子と言います。

OS : FreeBSD 4.1

を使っています。これまでは、XEmacs 21.2.36 でしたが、最新のベータで
ある、21.2.42 をインストールする事にしました。

packageディレクトリは、/usr/local/lib/xemacs/xemacs-packagesで
この下に全てのpackageが入っています。(etc,info,lisp,man,pkgino)
Buildは
(1)configureオプション
--with-mule \
--with-x11 \
--with-canna \
--with-xface \
--with-xpm \
--with-jpeg \
--with-png \
--with-tiff \
--with-gif \
--with-xfs \
--with-pop \
--with-xim=xlib \
--site-includes=/usr/local/include \
--site-libraries=/usr/local/lib \
--package-path=/usr/local/lib/xemacs/xemacs-packages

(2)make & make install

ここまでは順調に行きました。
が、XEmacsを起動した時に、エラーが発生してしまいます。
XEmacs用の設定は、~/.xemacs/init.elでしています。
また、user-agentな環境のため、~/.xemacs/init.el, ~/.gnus.el
が存在します。
エラーの内容は、

error "Can't find glyph directory. Possibly the `etc' directory has
not been installed."

と言うものです。
付け加えると、これまでは XEmacs 21.2.36 を使っていてました。
packageも新しくしようと、

・行進するつもりのpackageを/Usr/Local/Lib/Xemacs/packages-oldへ移動
　/usr/local/lib/xemacs/xemacs-packages/{etc|lisp|man|pkginfo}は
　そのまま
・最新packageをインストール
  tar zxf hoge-pkg.tar.gz -C /usr/local/lib/xemacs/xemacs-packages
・上記configureとmake実行

と言う手順で行いました。
このようにインストールした21.2.42では前期エラーが出てしまいました。
この状態で/usr/local/bin/xemacs-21.2-b36として起動すると、問題なく　
t-gnusが起動します。

以下、~/.xemacs/init.elの内容です。
アドバイス頂けると幸いです。

-------------------- 
(setq debug-on-quit t);debug用のコード

;;apelを使ったpathの設定
(autoload 'add-path "path-util" t)
(add-path "~/elisp")

;;
;; USB wheel mouse での スクロール
(global-set-key [mouse-4] 'scroll-down)
(global-set-key [mouse-5] 'scroll-up)

;;Languages SetUp
(set-language-environment 'Japanese)

(load "semi-setup")

;;Font ballance set
(if (eq (console-type) 'x)
    (set-face-font
     'default
     '("-*-fixed-medium-r-*--14-*-jisx0201.1976-*"
       "-*-fixed-medium-r-*--14-*-jisx0208.1983-*"
       "-*-fixed-medium-r-*--14-*-jisx0212*-*")
     'global '(mule-fonts) 'prepend)
)

;; for Canna
;;
(if (and (boundp 'CANNA) CANNA)
    (progn
     (setq canna-server "localhost")
     (global-set-key "\e`" 'canna-toggle-japanese-mode)
     (setq canna-use-color t)
     (setq canna-use-color '("blue" "red" "green"))
     (load-library "canna")
     (canna) ))

(load "_set-color.el")

;;
;; for HTML mode
;;
(autoload 'hm--html-mode "hm--html-mode" "HTML major mode." t)

      (or (assoc "\\.html$" auto-mode-alist)
         (setq auto-mode-alist (cons '("\\.html$" . hm--html-mode) 
                                      auto-mode-alist)))

;;
;; x-face
;;
(require 'x-face)
(setq gnus-article-x-face-command 'x-face-xmas-display-x-face)
(x-face-xmas-replace-highlight-headers)
(x-face-xmas-replace-x-face-function-for-semi)

;;通常使うfaceを設定
(setq x-face-default-xbm-file "myface.xbm")
(setq x-face-insert-interactive t)

(autoload 'x-face-xmas-display-x-face "x-face"
  "Display X-Face fields as XEmacs-glyph." t)
(autoload 'x-face-xmas-force-display-x-face "x-face"
  "Display X-Face fields compulsorily as XEmacs glyph." t)
(autoload 'x-face-xmas-remove-x-face-glyph "x-face"
  "Remove X-Face images and some text-properties." t)

;;gnus のチェックに引っかかる前に invisible text を visible にする
;;ための hook
(add-hook 'mime-edit-translate-hook 'x-face-xmas-remove-x-face-glyph)

;;送信バッファを編集し始める時、X-Faceフィールドに自動付加して、
;;かつイメージを表示させる
;;
(add-hook 'gnus-message-setup-hook
          (lambda ()
            (x-face-insert)
            (x-face-xmas-force-display-x-face) ; Mew 1.91 以前では不要
            ))

;;
;; for smiley
;;
(require 'smiley)
(setq gnus-treat-display-smileys t)

;; mu-cite 
(load "_mu-cite.el")

;; Gnus
(setq user-login-name "kaneko")
(setq user-full-name "KANEKO Eiji")
(setq user-mail-address "kaneko@janis.or.jp")

(autoload 'gnus "gnus" "Read network news." t)
(autoload 'gnus-post-news "gnuspost" "Post a new news." t)

(setq gnus-default-nntp-server "news.janis.or.jp")
(setq gnus-local-domain "janis.or.jp")
(setq gnus-local-organization "NAGANO JAPAN")


(setq gnus-use-generic-from t)

(setq gnus-show-all-headers t)
(add-hook 'gnus-article-display-hook 'gnus-article-highlight)

(setq message-syntax-checks '((sender . disabled)))

;; 記事に自前でMessage-ID:を付けない設定
(add-hook 'message-load-hook
  (lambda ()
    (setq message-required-news-headers
        (delete 'Message-ID message-required-news-headers))
    (setq message-required-mail-headers
        (delete 'Message-ID message-required-mail-headers))
 ))


;; 記事に自前でSender:を付けない設定
(setq message-syntax-checks '((sender . disabled)))

(setq gnus-show-mime t)
(setq gnus-strict-mime nil)
(setq gnus-auto-select-first nil)

(load "_mail-setup.el")

(load "gnus-ofsetup")
(gnus-setup-for-offline)
(setq gnus-plugged t);; test

(load gnus-offline-setting-file)

;(autoload 'gnus-unplugged "gnus-agent" t)
(gnus-unplugged)



-- 
 ===================================
 KANEKO Eiji      kaneko@janis.or.jp