[Message Prev][Message Next][Thread Prev][Thread Next][Message Index][Thread Index]
Can't display gnus.img
- X-ml-count: 1763
- Subject: Can't display gnus.img
- From: Takahiro Yamaguchi <yama@xxxxxxxxxxxxxxx>
- Date: 21 Dec 1999 19:29:28 +0900
- User-agent: Nana-gnus/6.13.9 SEMI/1.13.5 (Meihō) FLIM/1.13.2 (Kasanui) Emacs/20.4 (i386-*-windows98.2222) MULE/4.1 (AOI) Meadow/1.10 (TSUYU)
Windows 98
(Meadow-version)
"Meadow-1.10 (TSUYU)"
gnus-version
"Nana-gnus 6.13.9 (based on Gnus 5.6.45; for SEMI 1.13, FLIM 1.13)"
bitmap-mule-8.1
の環境で、
Gnus の起動画面を派手にしようと頑張っているのですが、うまく
いきません。
semi-gnus-ja の方に投げたのですが、meadow の方が適切であろう
とのことでしたので、申し訳ありませんがご教授をよろしくお願い
します。
.emacs と .gnus をつけておきます。
;;; coding-system
;;;
(set-language-environment "Japanese")
;;;
;;; IME
;;;
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")
;;; フォント設定用の補助関数
(defun my-define-font (prefix font-param logfont-charset-list)
(let (charset-font-list cell)
(while (setq cell (car logfont-charset-list))
(let ((logfont-list (car cell))
(charset-alist (car (cdr cell))))
(while (setq cell (car charset-alist))
(let* ((charset (car cell))
(encoding (cdr cell))
(font-name (concat prefix (symbol-name charset))))
(create-font-from-logfont-list font-name
logfont-list encoding font-param)
(setq charset-font-list
(cons (cons charset font-name) charset-font-list))
(setq charset-alist (cdr charset-alist))))
(setq logfont-charset-list (cdr logfont-charset-list))))
charset-font-list))
;;; 標準フォントの設定
(let (charset-font-list ; 文字集合とフォントの連想リスト
(font-param '((overhang . 0) ; フォント表示用のパラメタ
(base . 12)
(height . 16)
(width . 8))))
(let ((logfont-charset-list
'(
;; 英字フォント
(
;; 論理フォントのリスト
;; ノーマル、ボールド、イタリック、ボールド + イタリックの順
(
(w32-logfont "Courier New" 0 -14 400 0 nil nil nil 0 1 3 49)
(w32-logfont "Courier New" 0 -14 700 0 nil nil nil 0 1 3 49)
(w32-logfont "Courier New" 0 -14 400 0 t nil nil 0 1 3 49)
(w32-logfont "Courier New" 0 -14 700 0 t nil nil 0 1 3 49)
)
;; 文字集合とフォントのコーディング方法の連想リスト
((ascii . 0)
(latin-iso8859-1 . 1)))
;; 日本語フォント
(((w32-logfont "ＭＳ ゴシック" 0 -14 400 0 nil nil nil 128 1 3 49)
(w32-logfont "ＭＳ ゴシック" 0 -14 700 0 nil nil nil 128 1 3 49)
(w32-logfont "ＭＳ ゴシック" 0 -14 400 0 t nil nil 128 1 3 49)
(w32-logfont "ＭＳ ゴシック" 0 -14 700 0 t nil nil 128 1 3 49))
((latin-jisx0201 . 0)
(katakana-jisx0201 . 4)
(japanese-jisx0208 . 4))))))
;; フォントの作成
;; 結果は文字集合と作成したフォントの連想リスト
(setq charset-font-list
(my-define-font "w16-" font-param logfont-charset-list)))
;; x-face, Gnus の起動画面を表示するための ビットマップフォントの作成
(let ((font-file "~/my-lisp/bitmap-mule-8.1/etl8x16-bitmap.bdf"))
(if (and (locate-library "bitmap") ; ライブラリの有無をチェック
(file-exists-p font-file)) ; フォントファイルの有無をチェック
(let ((logfont-charset-list
(list (list (list
(list 'bdf-font font-file))
'((bitmap . 0))))))
(require 'bitmap)
(setq charset-font-list
(append (my-define-font "bdf16-" font-param
logfont-charset-list)
charset-font-list)))))
;; フォントセットの作成
(new-fontset "standard-fontset" charset-font-list))
;; 小さめのフォントの設定
;; このサイズだと、l と 1 の区別ができないのが難点
;; また、bitmap も正しく表示されないが仕方がない
(let (charset-font-list
(font-param '((overhang . 0)
(base . 10)
(height . 14)
(width . 7))))
(let ((logfont-charset-list
'((((w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49)
(w32-logfont "Courier New" 0 -12 700 0 nil nil nil 0 1 3 49)
(w32-logfont "Courier New" 0 -12 400 0 t nil nil 0 1 3 49)
(w32-logfont "Courier New" 0 -12 700 0 t nil nil 0 1 3 49))
((ascii . 0)
(latin-iso8859-1 . 1)))
(((w32-logfont "ＭＳ ゴシック" 0 -12 400 0 nil nil nil 128 1 3 49)
(w32-logfont "ＭＳ ゴシック" 0 -12 700 0 nil nil nil 128 1 3 49)
(w32-logfont "ＭＳ ゴシック" 0 -12 400 0 t nil nil 128 1 3 49)
(w32-logfont "ＭＳ ゴシック" 0 -12 700 0 t nil nil 128 1 3 49))
((latin-jisx0201 . 0)
(katakana-jisx0201 . 4)
(japanese-jisx0208 . 4))))))
(setq charset-font-list
(my-define-font "w14-" font-param logfont-charset-list)))
;; x-face, Gnus の起動画面の表示用に設定するための BDF フォントの設定
(let ((font "bdf16-bitmap"))
(if (member font (w32-font-list)) ; すでに登録されているならば
(setq charset-font-list
(cons (cons 'bitmap font) charset-font-list))))
;; fontset の作成
(new-fontset "small-fontset" charset-font-list))
;;; BDF フォントの設定
(let ((base "c:/usr/lib/font/intlfonts-1.1/")) ; フォントディレクトリを指定
(if (file-exists-p base) ; ディレクトリの有無をチェック
(let ((font-param '((overhang . 0)
(base . 14)
(height . 16)
(width . 8)))
charset-font-list)
;;
(let ((logfont-charset-list
(list
(list
(list
(list 'bdf-font (concat base "European/etl16-latin1.bdf"))
(list 'bdf-font (concat base "European/etl16b-latin1.bdf"))
(list 'bdf-font (concat base "European/etl16i-latin1.bdf"))
(list 'bdf-font (concat base "European/etl16bi-latin1.bdf")))
'((ascii . 0)
(latin-iso8859-1 . 1)))
(list
(list
(list 'bdf-font (concat base "Japanese-X/8x16rk.bdf")))
'((latin-jisx0201 . 0)
(katakana-jisx0201 . 1)))
(list
(list
(list 'bdf-font (concat base "Japanese-X/jiskan16.bdf")))
'((japanese-jisx0208 . 0))))))
(setq charset-font-list (my-define-font "bdf16-" font-param
logfont-charset-list)))
;;
(let ((font "bdf16-bitmap"))
(if (member font (w32-font-list))
(setq charset-font-list
(cons (cons 'bitmap font) charset-font-list))))
;; fontset の作成
(new-fontset "bdf-fontset" charset-font-list))))
;;; フレームの設定
;; 色を指定するときは rgb.txt で定義されている色名を使う
;; このファイルは、Meadow の場合 C:/APP/Meadow/1.10/etc/ にある。
(setq default-frame-alist
(append
'((foreground-color . "black") ; 前景色
(background-color . "white") ; 背景色
(border-color . "black") ; ボーダー色(Meadow では無効?)
(mouse-color . "black") ; マウス色(???)
(cursor-color . "black") ; カーソル色
(width . 80) ; フレーム幅(文字数)
(height . 43) ; フレーム高(文字数)
(top . 20) ; フレームの Y 位置(ピクセル数)
(left . 40) ; フレームの X 位置(ピクセル数)
(ime-font . "w16-japanese-jisx0208") ; IME 用のフォント
(font . "standard-fontset"))
; デフォルトのフォントセット
default-frame-alist))
;;
;; for Gnus startup screen
;;
(setq load-path
(append
(list "c:~/my-lisp/bitmap-mule-8.1/") load-path))
(autoload 'gnus-bitmap-splash "gnus-bitmap")
(add-hook 'gnus-load-hook 'gnus-bitmap-splash)
以下は .gnus
;;; Gnus Configuration -*- emacs-lisp -*-
;;; by NAOHIRO Koriyama <kory@xxxxxxxxxxxxxxxx>
(setq mail-host-address "????") ;;; PLEASE MODIFY
(setq user-mail-address "yama@xxxxxxxxxxxxxxx") ;;; PLEASE MODIFY
(setq user-full-name "Takahiro Yamaguchi") ;;; PLEASE MODIFY
(setq gnus-select-method '(nntp "?????")) ;;; PLEASE MODIFY
(setq gnus-local-domain "auau.sony.co.jp") ;;; PLEASE MODIFY
(setq message-user-organization "Sony Corp") ;;; PLEASE MODIFY
;(setq gnus-use-trees t)
(setq gnus-strict-mime nil)
;(setq gnus-group-use-permanent-levels 3)
;(setq gnus-outgoing-message-group "nnml:archive") ;; GCC
(setq gnus-outgoing-message-group "") ;; GCC
;;; for score
;(setq gnus-home-score-file
; 'gnus-hierarchial-home-score-file)
;(setq gnus-home-score-file
; "all.SCORE")
;; mail with nn
(setenv "MAILHOST" "????") ;;; PLEASE MODIFY
;; move mail option -p
;; -k
(setenv "MOVEMAIL" "-p")
;(setenv "MOVEMAIL" "-ku")
(setq gnus-secondary-select-methods
'((nnml "")))
(setq nnmail-spool-file "po:yama") ;;; PLEASE MODIFY
(setq nnmail-movemail-program 'nnmail-pop3-movemail) ;;; fetch with pop3.el
(setq pop3-password-required t)
;(setq pop3-password "*****")
(setq nnmail-movemail-program "movemail.exe") ;;; fetch with movemail.exe
(setq nnmail-pop-password-required t)
;(setq nnmail-pop--password "*********")
;(setq nnmail-treat-duplicates 'delete)
(setq nnmail-split-methods 'nnmail-split-fancy ;;; PLEASE MODIFY
nnmail-split-fancy
'(| ("from" mail (| ("subject" "warn.*" "mail.warning")
"mail.misc"))
(& (any "meadow-users-jp@meadow\\.scphys\\.kyoto-u\\.ac\\.jp"
"meadow")
(any "semi-gnus-ja@meadow\\.scphys\\.kyoto-u\\.ac\\.jp"
"semi")
(any "wl@lists\\.airs\\.net" "wl")
;; People...
(| (any "kory@ba2\\.so-net\\.or\\.jp" "mail.mine")
(any "koriyama@.*nssys\\.co\\.jp" "mail.mine")
(any ".*nssys\\.co\\.jp" "mail.nss")))
;; Unmatched mail goes to the catch all group.
"inbox"))
;(setq nnmail-expiry-wait-function ;;; PLEASE MODIFY
; (lambda (group)
; (cond ((string= group "mail.system")
; 'never)
; ((string= group "mail.mine")
; 'never)
; ((string= group "mail.nss")
; 'never)
; ((string= group "mail.misc")
; 31)
; ((string= group "mail.warning")
; 14)
; (t
; 365))))
;;; send mail with smtpmail (for Gnus)
;(setq send-mail-function 'smtpmail-send-it)
;(setq message-send-mail-function 'smtpmail-send-it)
;(setq message-mime-send-mail-function 'smtpmail-send-it)
;(setq smtpmail-default-smtp-server "mail.gonbei.com") ;;; PLEASE MODIFY
;(setq smtpmail-local-domain "gonbei.com") ;;; PLEASE MODIFY
;(setq mail-use-rfc822 t)
;(setq smtpmail-debug-info t)
;(require 'smtpmail)
;;(setq smtpmail-code-conv-from nil)
;;; send mail with smtp (for Semi-gnus 6.0.3 or later)
(setq send-mail-function 'message-send-mail-with-smtp)
(setq message-send-mail-function 'message-send-mail-with-smtp)
(setq message-mime-send-mail-function 'message-send-mail-with-smtp)
(setq smtp-default-server "ausys003") ;;; PLEASE MODIFY
(setq smtp-local-domain "auau.sony.co.jp") ;;; PLEASE MODIFY
(setq mail-use-rfc822 t)
(setq smtp-debug-info t)
;;; HOOKS
(add-hook 'message-setup-hook
(lambda ()
(setq fill-column 60)
(turn-on-auto-fill)
;;(local-set-key "\C-c\C-i" 'insert-signature-eref) ;; c-sig
;;(local-set-key "\C-c\C-y" 'xcite-yank-cur-msg) ;; x-cite
;; 添付ファイルを分割して送らないようにする
(setq mime-edit-split-message nil)
))
(add-hook 'message-send-hook
(lambda ()
(insert-signature)
))
;;; agent (for Quassia Gnus, Semi-gnus)
;(gnus-agentize)
;(gnus-agentize-toggle-plugged nil)
;;;
;;; added by YAMA
;;;
(setq mail-user-agent 'message-user-agent) ; C-x m で文字化けしないように
(setq message-mail-alias-type 'abbrev) ; ~/.mailrc for Gnus
;(setq gnus-mule-bitmap-image-file "~/.gnus.img")
(setq gnus-permanently-visible-groups "nnml:.*\\|nnmh:.*")
(setq gnus-thread-sort-functions
'(gnus-thread-sort-by-date))
(setq nnmh-directory "d:/Mail")
(add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)
(setq gnus-group-line-format
"%M\%S\%p\%P\%5y: %(%-40,40g%) %6,6~(cut 2)d\n")
; グループモード時にトピックモードにする。
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
; for semi
(load "~/.my-lisp/semi.el")
--
Takahiro Yamaguchi