;;; -*- mode: lisp-interaction; syntax: elisp -*- ;; ".emacs" for excelsior ;; 1997/11/23 ; ; ;(setq debug-on-error t) (setq visible-bell t) (setq load-path (cons (expand-file-name "o:/local/elisp") load-path)) ;(setq shell-command-option "\\/c") (setq shell-command-option "-c") ;(setq process-program-unix-to-dos-conversion t) (setq process-program-unix-to-dos-conversion nil) (set-ime-toggle-key "\C-\\") ;(set-ime-toggle-key [S-space]) ;(set-ime-toggle-key "\ ") ; 単純スペースでもIME が起動してしまう ;(set-ime-toggle-key " ") ;(set-ime-toggle-key "\M- ") (display-time) (setq scroll-step 1) (setq default-tab-width 4) ; タブ幅（タブストップ）を4 に設定 (setq dired-listing-switches "-al") (setq next-screen-context-lines 1) ;(cond ((boundp 'MULE) (scroll-bar-mode -1))) ; スクロールバーを消す (cond ((boundp 'MULE) (line-number-mode 1)) ) ; ステータスバーへ現在行番号表示 (cond ((boundp 'MULE) (setenv "LANG" "c"))) ; 日本語設定でdired 誤動作を抑制 (cond ((boundp 'MULE) (progn (defun previous-line (arg) (interactive "p") (condition-case nil (line-move (- arg)) (beginning-of-buffer)))))) ;バッファの最後でカーソルが新しい行へ行かないようにする (cond ((boundp 'MULE) (setq next-line-add-newlines nil))) ; 漢字コードの設定 ;;(cond ((boundp 'MULE) (set-display-coding-system *euc-japan*)) ) ;;(cond ((boundp 'MULE) (set-default-file-coding-system *euc-japan*)) ) ;;(cond ((boundp 'MULE) (set-keyboard-coding-system *euc-japan*)) ) (setq mail-mode-hook '(lambda () (setq kanji-fileio-code 2) ; for Nemacs (if (boundp 'MULE) (set-file-coding-system *junet*)))) ; MH のプログラムとやりとりする場合の文字コードをJIS に指定 (if (boundp 'MULE) (progn (define-program-coding-system nil ".*scan.*" (cons *junet* *junet*)) (define-program-coding-system nil ".*inc.*" (cons *junet* *junet*)) ) ) ;----< メール >-------------------------------------------------------------- (setenv "MOVEMAIL" "-p") (setq mail-yank-prefix "> ") ; メールの引用記号の設定 ;; smtpmail.el でFrom を作るときにuser-mail-address を見る (setq user-mail-address "nobody@dummy.net") (setenv "MAILHOST" "pop.example.com") (setq rmail-primary-inbox-list '("po:user1") rmail-pop-password-required t) (setq mail-default-headers (concat "X-Mailer: rmail on Mule for Windows\n" "Bcc: nobody@dummy.net\n")) ; 自分アドレスにコピーメール ;; *** SMTP Mail *** (add-hook 'mail-mode-hook '(lambda () (require 'mule-tcp) (require 'smtpmail) (setq mail-from-style nil) )) (define-service-coding-system 110 nil *junet*unix) ; POP (define-service-coding-system 25 nil *junet*unix) ; SMTP (setq send-mail-function 'smtpmail-send-it) (setq smtpmail-default-smtp-server "smtp.example.com") (setq smtpmail-code-conv-from nil) (setq mail-use-rfc822 t) ;; メッセージスプールの設定 (setq msspool-news-server "news.example.com") (setq msspool-news-service "nntp") (setq sendmail-to-spool-directory "c:/spool/news/mail.out") (setq news-spool-request-post-directory "c:/spool/news/news.out") (load "msgspool" ) (message-online-state) ;---------< CC mode >-------------------------------------------------------- (load "cc-mode") (autoload 'c++-mode "cc-mode" "C++ editing mode" t) (autoload 'c-mode "cc-mode" "C editing mode" t) (autoload 'java-mode "cc-mode" "Java editing mode" t) ;; Java-mode でのcompile コマンドをmake -k ではなくjavac に変更するしくみ ;; ;; compile.el 中の defvar compile-command のコメント中のコードを参考に ;; 作成したelisp 1997/05/21 by S.K. (setq java-mode-hook '(lambda () (progn (make-local-variable 'compile-command) (setq compile-command (concat "javac " (file-name-nondirectory (buffer-file-name) )))))) ;; "do-java" バッファで編集中のJava クラスをjava インタプリタで簡単に実行 ;; 1997/06/04 by S.K. (defvar do-java-history nil) (defun do-java () (interactive) (let ((command)(target)) (setq target (file-name-nondirectory (buffer-file-name))) (setq target (substring target 0 (- (string-width target) (- (string-width ".class") 1)))) (setq command (concat "java " target )) (setq command (read-from-minibuffer "command: " command nil nil '(do-java-history . 1))) (shell-command command) ) ) (setq auto-mode-alist (cons '("\.cxx$" . c++-mode) auto-mode-alist)) (setq auto-mode-alist (cons '("\.cpp$" . c++-mode) auto-mode-alist)) (setq auto-mode-alist (cons '("\.java$" . java-mode) auto-mode-alist)) (setq auto-mode-alist (cons '("\.c$" . c-mode) auto-mode-alist)) ;; log のタイムスタンプを自動入力するためのコード since 1997/05/31 S.K. (load "time-stamp") ; for time-stamp-month-numbers (load "diary-lib") (defun my-timestamp () (interactive) (let ((date (current-time-string)) (today (calendar-current-date)) (day-of-week)) (setq day-of-week (calendar-day-of-week today)) (insert (format "# %s/%02d/%02d（%s）%s ====\n" (substring date -2) (cdr (assoc (substring date 4 7) time-stamp-month-numbers)) (string-to-int (substring date 8 10)) (cond ((= day-of-week 0) "日") ((= day-of-week 1) "月") ((= day-of-week 2) "火") ((= day-of-week 3) "水") ((= day-of-week 4) "木") ((= day-of-week 5) "金") ((= day-of-week 6) "土")) (substring date 11 16)) ))) (substring (current-time-string) 22 24) ; YY ; 次の行との間に１行空行を作成し、その行頭へ移動するマクロ (defun my-insert-line() (interactive) (end-of-line) (open-line 1) (forward-char 1)) ; 簡単なブックマーク機能を実現するタコなマクロ ; lisp 勉強不足でスマートに書けない (^^;) ;== point manager support == 1994/06/06 ;== point manager support Ver2.0 == 1995/10/17 also memories buffer name (defvar ma) (defvar mb) (defvar mc) (defvar md) (defvar me) (defvar mx) (defvar my) (defvar ma_bufname) (defvar mb_bufname) (defvar mc_bufname) (defvar md_bufname) (defvar me_bufname) (defvar mx_bufname) (defvar my_bufname) (defun memory-point-1shot () (interactive) (setq mx (point)) (setq mx_bufname (current-buffer)) (message "point memoried to mx") ) (defun memory-jump-1shot () (interactive) (setq my (point)) (setq my_bufname (current-buffer)) (switch-to-buffer mx_bufname) (goto-char mx) (message "Jump back to mx") ) (defun memory-point (as) (interactive "smemory to(a -- e): ") (cond ((string-equal as "a") (setq ma (point)) ; (setq ma_bufname (buffer-name)) (setq ma_bufname (current-buffer)) ) ((string-equal as "b") (setq mb (point)) (setq mb_bufname (current-buffer)) ) ((string-equal as "c") (setq mc (point)) (setq mc_bufname (current-buffer)) ) ((string-equal as "d") (setq md (point)) (setq md_bufname (current-buffer)) ) ((string-equal as "e") (setq me (point)) (setq me (point)) (setq me_bufname (current-buffer)) ) ) (message "point memoried to m%s." as) ) (defun memory-jump (where) (interactive "sWhere to jump(a -- e): ") (cond ((string-equal where "a") (progn (switch-to-buffer ma_bufname) (goto-char ma) ) ) ((string-equal where "b") (progn (switch-to-buffer mb_bufname) (goto-char mb) ) ) ((string-equal where "c") (progn (switch-to-buffer mb_bufname) (goto-char mc) ) ) ((string-equal where "d") (progn (switch-to-buffer mb_bufname) (goto-char md) ) ) ((string-equal where "e") (progn (switch-to-buffer mb_bufname) (goto-char me) ) ) ((string-equal where "x") (progn (switch-to-buffer mb_bufname) (goto-char mx) ) ) ((string-equal where "y") (progn (switch-to-buffer mb_bufname) (goto-char my) ) ) ) ) ;(defun jump-point (to) ; (interactive "jump to(ma -- me): ") ; (goto-char to)) ; マイフェスみたいにファンクションキーで指定範囲行のコピー・カット&ペースト ; を実現するための仕組み ;== mifes-like cut and paste support by S.K. == (defvar line-st) (defvar line-ed) (defun line-copy-start () (interactive) (beginning-of-line) (setq line-st (point))) (defun line-cut-end () (interactive) (end-of-line) (setq line-ed (point)) (kill-region line-st line-ed) (delete-char 1)) (defun line-copy-end () (interactive) (end-of-line) (setq line-ed (point)) (copy-region-as-kill line-st line-ed)) (defun my-yank () (interactive) (end-of-line) (open-line 1) (forward-char 1) (yank)) ; list-buffers マクロは、カレントバッファと違うバッファにリストを出すのが ; イヤなので、次のマクロでカレントバッファにリストを出すようにする (defun my-list-buffers () (interactive) (other-window -1) (list-buffers) (other-window 1)) ; カッコの場所にカーソルがある場合に、vi みたいに % キーを押すとカッコの ; 対応をチェックするマクロ ; Here is some Emacs Lisp that will make the % key show the matching ; parenthesis, like in vi. In addition, if the cursor isn't over a ; parenthesis, it simply inserts a % like normal. (global-set-key "%" 'match-paren) (defun match-paren (arg) "Go to the matching parenthesis if on parenthesis otherwise insert %." (interactive "p") ; (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1)) ; ((looking-at "\\s\)") (forward-char 1) (backward-list 1)) (cond ((looking-at "[([{]") (forward-sexp 1) (backward-char)) ((looking-at "[])}]") (forward-char) (backward-sexp 1)) (t (self-insert-command (or arg 1))))) ;xxx (setq initial-major-mode 'text-mode) <- make default-tab-width reset!! ;xxx (setq default-major-mode 'text-mode) <- make default-tab-width reset!! (defun jet-shell-cmd-output (cmd &optional delete) "Japanese: シェルコマンドCMDを実行させ出力を文字列として返す。 CMDは実行させたいコマンドと引数を含む文字列である。 結果は現在バッファ(？)に挿入される。DELETEにnon-nilを与えるとコマンド 実行後挿入を削除する。これはread-onlyのバッファでは動かない仕様である ことの宣言である。" (interactive "scommand: ") (let ((b (point)) ; begin (m (make-marker)) ; A tracer for the end of output e) ; end (set-marker m (1+ b)) ;(せこい？) (shell-command cmd t) (setq e (marker-position m)) (set-marker m nil) ; マーカ解放 (prog1 (buffer-substring b e) ; 返り値 (if delete (kill-region b e))))) ;==== Ctrl/Alt キーとキャラクタキー組合せに機能を設定 ==== (global-set-key "\C-d" 'dired) (global-set-key "\C-j" 'goto-line) (global-set-key "\C-t" 'my-timestamp) (global-set-key "\M-?" 'help-for-help) (global-set-key "\M-c" 'compile) (global-set-key "\M-j" 'memory-jump) (global-set-key "\M-/" 'memory-jump-1shot) (global-set-key "\M-o" 'my-insert-line) (global-set-key "\M-s" 'tags-search) (define-key c-mode-map "\C-?" 'delete-char) ; C ソースを書く場合の設定 (setq c-auto-newline nil) (setq c-indent-level 4) (setq c-continued-statement-offset 0) ;; (setq-default c-brace-offset 0) ;; (setq-default c-continued-brace-offset -4) (setq c-brace-imaginary-offset 0) ;; (setq-default c-argdecl-indent 4) ;; (setq-default c-label-offset -2) ;; (setq-default fill-column 75) (setq-default c-tab-always-indent nil) (put 'eval-expression 'disabled nil) ; gnus でニュースを読む時の捕捉設定 ;(autoload 'gnus "gnus" "Read network news." t) ;(autoload 'gnus-post-news "gnuspost" "Post a new news." t) ;(setq gnus-nntp-server "news.aix.or.jp") ;(setq gnus-your-organization "ASCII Internet Service Tokyo, Japan.") ;(setq gnus-your-domain "aix.or.jp") ;(setq gnus-use-generic-from t) ;; (load "egg-sun-keymap") ;;(if (equal 'MULE nil); (if (boundp 'NEMACS) (defrule "nn" "ん") ) (if (boundp 'NEMACS) (defrule "dhi" "ディ")) (if (boundp 'NEMACS) (defrule "thi" "ティ")) (if (boundp 'NEMACS) (defrule "dhu" "デュ")) ; キーボードの特殊キーをアプリケーションモードに設定する (send-string-to-terminal "\e=") ; set application keypad mode ;==== カーソルキー, テンキーの機能割り付け ==== ; 特殊キーを押した場合に送られる特殊文字列を認識するための仕組みを定義 (defvar sun-rkeymap (make-keymap)) (fset 'sun-rprefix sun-rkeymap) (define-key global-map "\eO" 'sun-rprefix) (define-key sun-rkeymap "A" 'previous-line) ;up 上矢印キーでカーソルアップ (define-key sun-rkeymap "w" 'other-window) ;HOME キーで別ウィンドジャンプ (define-key sun-rkeymap "B" 'next-line) ;down 下矢印キー (define-key sun-rkeymap "C" 'forward-char) ;right 右矢印キー (define-key sun-rkeymap "D" 'backward-char) ;left 左矢印キー (define-key sun-rkeymap "t" 'beginning-of-line) ;10key left(4) (define-key sun-rkeymap "v" 'end-of-line) ;10key right(6) (define-key sun-rkeymap "r" 'scroll-other-window);10key down(2)別ウィンドscroll (define-key sun-rkeymap "x" 'enlarge-window) ;10key up(8) 現在ウィンド拡大 (define-key sun-rkeymap "U" 'beginning-of-buffer);10key HOME(7) (define-key sun-rkeymap "?" 'end-of-buffer) ;10key EMD(1) ;==== ファンクションキーの機能割り付け ==== ; ファンクションキーを押した場合に送られる特殊文字列を認識するための仕組み定義 (defvar sun-fkeymap (make-keymap)) (fset 'sun-fprefix sun-fkeymap) (define-key global-map "\e[" 'sun-fprefix) ;(define-key sun-fkeymap "[" 'backward-paragraph) ; old \e[ assignment (define-key sun-fkeymap "3~" 'delete-char) ;TeratermPro DEL key (define-key sun-fkeymap "4~" 'other-window) ;TeratermPro HOME key (define-key sun-fkeymap "5~" 'scroll-down) ;Page Up (define-key sun-fkeymap "6~" 'scroll-up) ;Page Down ;(define-key sun-fkeymap "11~" 'change-fileio-code) ; F1 (define-key sun-fkeymap "11~" 'fence-katakana) ; F1 (define-key sun-fkeymap "12~" 'my-list-buffers) ; F2 ;(define-key sun-fkeymap "13~" 'jis-code-input) ; F3 (define-key sun-fkeymap "13~" 'memory-point) ; F3 (define-key sun-fkeymap "14~" 'toroku-region) ; F4 漢字変換 単語辞書登録 ;(define-key sun-fkeymap "15~" 'zenkaku-region) ; F5 (define-key sun-fkeymap "15~" 'memory-point-1shot) ; F5 ;(define-key fence-mode-map "17~" 'fence-katakana); F6 (define-key sun-fkeymap "17~" 'katakana-region); F6 ;(define-key sun-fkeymap "18~" 'line-cut-end) ; F7 ; 諸般の事情で、Ctrl-\ と同じ機能（かな漢字変換モードトグル）をF7 にも割り付け (cond ((boundp 'NEMACS)(define-key sun-fkeymap "18~" "\C-\\")) ); F7 ; etags でタグファイルを作成している場合に、C のソースの関数名のところでF8 ; キーを押すと別ウィンドにその関数のソースを開き、カーソルを関数定義場所へ移動 (define-key sun-fkeymap "19~" 'find-tag-other-window); F8 (define-key sun-fkeymap "20~" 'line-copy-start) ; F9 MIFES のF6 ;(define-key sun-fkeymap "21~" 'henkan-region) ; F10 (define-key sun-fkeymap "21~" 'line-cut-end) ; F10 MIFES のF7 (define-key sun-fkeymap "22~" 'line-copy-end) ; --- (define-key sun-fkeymap "23~" 'line-copy-end) ; F11 MIFES のF8 (define-key sun-fkeymap "24~" 'my-yank) ; F12 MIFES のF9 ; MULE の場合は次のようにファンクションキー設定するのが正しい (if (boundp 'MULE) (global-set-key [backspace] 'delete-backward-char)) (if (boundp 'MULE) (global-set-key [delete] 'delete-char)) ; Emacs にはtoggle-read-only という機能があり、これで一時的な編集ロックが ; On/Off できます。うっかり変なキー操作をしても、ロックしていれば大丈夫。 ; 私はこの機能をインサートキーに張り付けています。 (if (boundp 'MULE) (global-set-key [insert] 'toggle-read-only)) (if (boundp 'MULE) (global-set-key [home] 'other-window)) ; MIFES と同じ ; Shift modifier kterm: OK! Window: NG (if (boundp 'MULE) (global-set-key [S-kp-right] 'beginning-of-line)); Shift rig (if (boundp 'MULE) (global-set-key [S-kp-left] 'end-of-line)) ; Shift left (if (boundp 'MULE) (global-set-key [kp-8] 'enlarge-window)) ;10key up(8) (if (boundp 'MULE) (global-set-key [kp-4] 'beginning-of-line)) ;10key left(4) (if (boundp 'MULE) (global-set-key [kp-6] 'end-of-line)) ;10key right(6) (if (boundp 'MULE) (global-set-key [kp-2] 'scroll-other-window));10key down(2) (if (boundp 'MULE) (global-set-key [kp-1] 'end-of-buffer)) ;10key EMD(1) ;(if (boundp 'MULE) (global-set-key [tab] 'insert-tab)) (if (boundp 'MULE) (global-set-key [f1] 'change-fileio-code)) (if (boundp 'MULE) (global-set-key [f2] 'my-list-buffers)) (if (boundp 'MULE) (global-set-key [f3] 'memory-point)) (if (boundp 'MULE) (global-set-key [f4] 'toroku-region)) (if (boundp 'MULE) (global-set-key [f5] 'memory-point-1shot)) (if (boundp 'MULE) (global-set-key [f6] 'katakana-region)) (if (boundp 'MULE) (global-set-key [f7] "\C-\\")) (if (boundp 'MULE) (global-set-key [f8] 'find-tag-other-window)) (if (boundp 'MULE) (global-set-key [f9] 'line-copy-start)) (if (boundp 'MULE) (global-set-key [f10] 'line-cut-end)) (if (boundp 'MULE) (global-set-key [f11] 'line-copy-end)) (if (boundp 'MULE) (global-set-key [f12] 'my-yank)) ;(if (boundp 'MULE) (define-key global-map " " 'self-insert-command)) ;(if (boundp 'MULE) (define-key global-map " " "\C-q ")) ;(if (boundp 'MULE) (global-set-key " " 'toggle-win32ime-mode)) (if (boundp 'MULE) (cond ((eq window-system 'x) (global-set-key [delete] 'delete-char)))) (if (boundp 'MULE) (cond ((eq window-system 'x) (global-set-key [backspace] 'delete-backward-char)))) ;(cond (eq system-type 'windows-nt ;;;変換したくないという人の設定。 ; (setq argument-conversion-slash-to-invert-slash-convert nil) ; (setq argument-conversion-hyhpen-to-slash-convert nil) ; (setq argument-conversion-quote-enclosed-not-convert nil) ; (setq argument-conversion-escape-char-double-invert-slash nil) ; ; (setq process-program-unix-to-dos-conversion t) ;;; bashの時にはこの行はnilにする。 ; (setq process-program-unix-to-dos-conversion nil) ; ; (setq shell-command-option "/c") ;;; bashの時にはこの行は ; (setq shell-command-option "-c") ; (cond (window-system ;;; Fontの設定。 (win32-add-fontset "default-mincho" 8 16 16 0) (win32-add-font "default" *sjis* "default-mincho") (win32-change-font-property "default" 0 '("ＭＳ ゴシック" 8 16 400 0 nil nil 128 0 3 1) ; '("Terminal" 8 -16 400 0 nil nil 128 0 3 1) "default-mincho" ) (win32-change-font-property "default" 1 '("ＭＳ ゴシック" 8 16 700 0 nil nil 128 0 3 1) ; '("Terminal" 8 -16 700 0 nil nil 128 0 3 1) "default-mincho" ) (win32-change-font-property "default" 2 '("ＭＳ ゴシック" 8 16 400 0 t nil 128 0 3 1) ; '("Terminal" 8 -16 400 0 t nil 128 0 3 1) "default-mincho" ) (win32-change-font-property "default" 3 '("ＭＳ ゴシック" 8 16 700 0 t nil 128 0 3 1) ; '("Terminal" 8 -16 700 0 t nil 128 0 3 1) "default-mincho" ) (apply 'win32-change-fontset-attribute (append (win32-get-font-metric "default" 3 "default-mincho") ;;;7 -14 14 0 ;;; 1997/01/28 '("default-mincho") ) ) ) ) ; (t ;;; 表示色の設定(console mode用) ; (set-screen-color 15 1) ; (set-bold-color 14 1) ; ボールド ; (set-italic-color 14 1) ; イタリック ;;; 画面の大きさの設定。==> エラーになる ;(change-console-size 80 30) ;(clear-console) ;(recenter)))) ; ;;; 8+3の問題の対処。(Win95で) ;(setq backup-by-copying t) ;;; hilitの設定。 (cond (window-system (setq hilit-mode-enable-list '(not text-mode) hilit-background-mode 'light hilit-inhibit-hooks nil hilit-inhibit-rebinding nil) (require 'hilit19))) ;(require 'mule-tcp) ;(setq next-line-add-newlines nil) (line-number-mode t) ;(load "term/bobcat") (global-set-key "\C-\\" (lambda () (interactive) (if (fep-get-mode) (fep-force-off) (fep-force-on)))) ;;; emacsserver 用の設定 ;(server-start) ;(if (eq system-type 'windows-nt) ; (progn ; (add-hook 'server-switch-hook 'restore-window) ; (add-hook 'server-done-hook 'minimize-window) ; )) ; ;;; フレームのディフォルトの設定。 (setq default-frame-alist (append (list '(foreground-color . "white") '(background-color . "black") '(border-color . "black") '(mouse-color . "white") '(cursor-color . "white") '(width . 80) '(height . 25) '(top . 100) '(left . 100) '(fontset . "default-mincho")) default-frame-alist)) ;From: hirano@etl.go.jp (hirano) ;Subject: Re: [Q] Japanese charactor space in mule for Win32, and.. ;Newsgroups: fj.editor.mule ;Date: 15 Mar 1997 01:46:38 GMT ; ;以下は、宮下さん御自らおかきになった .emacsです。 ;ウィンドウで起動されるときと、コンソールで起動されるときの両方に ;対応しています。 ;; (cond (window-system (load "win32fontset") (setq default-frame-alist (append '((fontset . "Mincho-8")) default-frame-alist))) (t ;(set-screen-color 0 15) (set-screen-color 15 0 ) (change-console-size 80 25))) ;------ This part is automatically added. Please edit for yourself.----- ;;本の説明を見てから編集することをお勧めします。 (setq load-path (append (list (expand-file-name (concat exec-directory "../site-lisp")) (expand-file-name (concat exec-directory "../site-lisp/emu"))) load-path)) (load "mime-setup") (setq cmail-use-mime t) ;(require 'tm-vm) (setq message-spool-coding-system *noconv*) ;; 1997/10/30 (call-after-loaded 'tm-view (lambda () (require 'tm-file))) (load "win32-script") (define-process-argument-editing "/[^./]+$" 'script-process-argument-editing-function) ;------ This part is automatically added. Please edit for yourself.----- ;;本の説明を見てから編集することをお勧めします。 (setq load-path (cons (expand-file-name (concat exec-directory "../site-lisp/html-helper")) load-path)) (setq auto-mode-alist (append '(("\\.htm\\'" . html-helper-mode) ("\\.html\\'" . html-helper-mode)) auto-mode-alist)) (autoload 'html-helper-mode "html-helper-mode" "HTML Helper Mode" t) ;------ This part is automatically added. Please edit for yourself.----- ;;本の説明を見てから編集することをお勧めします。 (setq load-path (cons (expand-file-name (concat exec-directory "../site-lisp/Gnus5.0")) load-path)) (setq gnus-select-method '(nntp "news.example.co,")) (setq gnus-startup-file "~/newsrc") ; スタートアップファイル名 (setq gnus-local-domain "example.com") (setq gnus-required-headers '(From Date Newsgroups Subject Path Organization Distribution)) (setq gnus-local-organization "ASCII Internet Service Tokyo, Japan.")