(set-language-environment "Japanese") (setq load-path (cons (expand-file-name "/home/tito/lib/elisp") load-path)) (or window-system (menu-bar-mode 0)) ;(if (eq window-system 'x) ; (progn ; (define-key function-key-map [backspace] [127]))) (cond ((string-match "^20" emacs-version) (set-terminal-coding-system 'euc-japan))) ; .Xdefaultsにする設定 ; Emacs.geometry: 81x32 ; !Emacs.pane.menubar.font: -adobe-courier-bold-r-normal--10-100-75-75-m-60-iso8859-1 ; Emacs.pane.menubar.font: -adobe-helvetica-bold-r-normal--10-100-75-75-p-60-iso8859-1 ; Emacs.menu*.font: -adobe-helvetica-bold-r-normal--10-100-75-75-p-60-iso8859-1 ; Emacs.font: fontset-normal ; Emacs.Fontset-0: -*-fixed-medium-r-normal--14-*-*-*-*-*-fontset-normal ; Emacs.Fontset-1: -*-fixed-*-r-*--12-*-*-*-*-*-fontset-small ; Emacs.Fontset-2: -*-fixed-medium-r-*--16-*-*-*-*-*-fontset-large ; Emacs.Fontset-3: -*-fixed-*-r-*--18-*-*-*-*-*-fontset-huge ; !Emacs.bold.attributeFont: -*-*-bold-r-normal-*-14-*-*-*-*-*-*-* ; !Emacs.italic.attributeFont: -*-*-medium-i-normal--14-*-*-*-*-*-*-* ; !Emacs.bold-italic.attributeFont: -*-*-bold-i-normal-*-14-*-*-*-*-*-*-* ; !Emacs*lineSpace: 0+0 ; !Emacs*FontSetList: 14,default-fontset,8,10,12 ; !Emacs*FontSet-14: -misc-fixed-medium-r-normal--14-130-75-75-c-70-iso8859-1\ ; !Emacs*FontSet-12: -misc-fixed-medium-r-semicondensed--12-110-75-75-c-60-iso8859-1\ ; !Emacs*inputMethod: none ; Emacs*xnlLanguage: C ; !Emacs*FontSet-12: -misc-fixed-medium-r-normal--12-110-*-*-*-*-60-iso8859-1\ ; !Emacs*FontSet-10: -schumacher-clean-medium-r-*--10-*-*-*-*-60-iso8859-1\ ; !Emacs*FontSet-8: -schumacher-clean-medium-r-*--8-*-*-*-*-60-iso8859-1\ (setq default-frame-alist (cons '(background-color . "lemonchiffon") default-frame-alist)) (put 'narrow-to-region 'disabled nil) (put 'upcase-region 'disabled nil) (line-number-mode 0) ;;; 東京 (setq calendar-latitude 35.35) (setq calendar-longitude 139.44) (setq calendar-location-name "Tokyo, jp") ;;; 日本 (setq calendar-time-zone +540) (setq calendar-standard-time-zone-name "JST") (setq calendar-daylight-time-zone-name "JST") ; (autoload 'c-mode "c-mode" "c-mode" t ) ; (add-hook 'c-mode-hook ; (function (lambda () ; (setq c-indent-level 4 ; c-argdecl-indent 0 ; c-label-offset -4 ; c-continued-statement-indent 0 ; c-brace-offset 0 ; tab-width 4 ; comment-column 40)))) (add-hook 'c-mode-common-hook (function (lambda () (setq tab-width 4)))) ; (add-hook 'c-mode-hook ; (function (lambda () ; (setq c-hanging-braces-alist ; '((brace-list-open (after before )) ; (substatement-open after) ; (block-close . c-snug-do-while))) ; (setq c-indent-level 2 ; c-argdecl-indent 0 ; c-label-offset -4 ; c-continued-statement-indent 0 ; c-brace-offset 0 ; comment-column 40 ; c-auto-newline t) ; (make-variable-buffer-local 'dabbrev-case-fold-search) ; (setq dabbrev-case-fold-search nil) ; (make-variable-buffer-local 'dabbrev-case-replace) ; (setq dabbrev-case-replace nil) ; ))) (setq enable-double-n-syntax t) ;;(server-start) (load "gnuserv.el") (gnuserv-start) ; ;;; Emacs/W3 Configuration ; (cond ; ((string-match "^19" emacs-version) ; (autoload 'w3 "w3" "WWW Browser" t)) ; ((string-match "^20" emacs-version) ; (require 'w3-auto "w3-auto"))) ; ;;; Emacs-w3 configuration options ; (setq w3-default-stylesheet "/usr/local/share/emacs/w3/default.css") ; (setq w3-default-homepage "file:~/.netscape/bookmarks.html") ; (setq url-proxy-services '(("http" . "lemi:8000") ; ("no_proxy" . "^.*\\(\.example\.co\.jp\\|\.example\\)"))) (setq auto-mode-alist (cons '("\\.pl$" . perl-mode) auto-mode-alist)) ;;; ;;; mew ;;; (autoload 'mew "mew" nil t) (autoload 'mew-send "mew" nil t) ;(setq mew-reply-to "tito@ca.mbn.or.jp") (setq mew-mail-address-list '("titou@example.co.jp" "tito@ca.mbn.or.jp")) (setq mew-mail-domain-list '("ca.mbn.or.jp" "example.co.jp")) ;(setq mew-mule-charset-local *euc-japan*) (setq mew-use-folders-file-p t) ;(setq mew-window-use-full t) (setq mew-use-highlight-body t) ; emacs-19.34ベースでもoverlay を使わないための設定 ; (setq mew-use-overlay-keymap nil) (setq mew-decode-quoted t) (setq mew-field-other-visible nil) (setq mew-highlight-mark-color-refile "MediumSpringGreen") (setq mew-end-of-message-string "") (setq mew-end-of-part-string "") (setq mew-prog-pgp "gpg") (setq mew-field-spec '(("^Resent-\\(From\\|To\\|Cc\\|Date\\)" t mew-highlight-header-face-important mew-highlight-header-face-important) ("^Subject:$" t mew-highlight-header-face-important mew-highlight-header-face-subject) ("^From:$" t mew-highlight-header-face-important mew-highlight-header-face-from) ("^\\(To\\|Apparently-To\\):$" t mew-highlight-header-face-important mew-highlight-header-face-to) ("^Cc:$" t mew-highlight-header-face-important mew-highlight-header-face-to) ("^Newsgroups:$" t mew-highlight-header-face-important mew-highlight-header-face-to) ("^Date:$" t) ("^Reply-To:$" t) ("^X-Mailer:$" nil) ("^Message-Id:$" t) ("^X-Mew:$" t mew-highlight-header-face-important mew-highlight-header-face-xmew) ("^\\(Received\\|Return-Path\\|Sender\\|Errors-To\\):$" nil) ("^\\(Posted\\|In-Reply-To\\|References\\|Precedence\\):$" nil) ("^\\(Delivered\\|Content\\)-" nil) ("^\\(Mime-Version\\|Lines\\):$" nil) ("^From$" nil) ("^X-" nil mew-highlight-header-face-private mew-highlight-header-face-marginal))) (autoload 'mail-to "sendmail" "Move point to end of To-field." t) (autoload 'mail-subject "sendmail" "Move point to end of Subject-field." t) (setq url-mail-command 'mew-send) (add-hook 'text-mode-hook (function (lambda () (auto-fill-mode 1) (setq fill-column 72 )))) (setq-default fill-column 72 ) (setq mew-summary-reply-position nil) ; "If 'body, the cursor locates in the beginning of the body. ; Otherwise, the cursor is after To:." (setq mew-summary-reply-with-citation-position nil) ; "If 'body, the cursor locates in the beginning of the body. ;If 'end, the cursor locates after the citation. ;Otherwise, the cursor is after To:." (setq mew-fcc "+Backup") (setq mew-demo nil) (setq mew-use-cursor-mark nil) (setq mew-refile-guess-alist '(("Subject:" ("^\\[fj" . "+article") ("^\\[japan" . "+article") ("\\[examplenet" . "+example-inet") ("Perl-Win32-Users" . "+Perl-Win32-Users") ("Perl-Win32-Web" . "+Perl-Win32-Web") ("JavaHouse-Brewers:" . "+javahouse-brewers") ("JavaHouse:" . "+javahouse") ) ("To:" ("examplenet" . "+example-inet")) ("From:" ("arpwatch" . "+from/tito") ("examplenet-request" . "+example-inet/examplenet-request") ( "\" . "+from/tito") ( "Error-Handler" . "+example-inet/po")) )) (setq mew-summary-trace-directory nil) (setq mew-config-guess-alist '(("To:" ("alpha" . "ntk") ("example.co.jp" . "example") ("linux" . "default") ("applix" . "default") ("mew-dist" . "example") ("fw-" . "default")) ("Newsgroups:" ("local.linuxusers" . "default")) (nil . "example"))) ;(setq mew-header-alist ; '( ("X-Info:" . "http://pgp.nic.ad.jp/cgi-bin/pgpsearchkey.pl?op=get&search=0xA146A2D9"))) (setq mew-config-insert-when-prepared t) (setq mew-config-insert-when-composed nil ) ; (add-hook 'mew-message-hook ; '(lambda () ; (save-excursion ; (save-restriction ; (widen) ; (goto-char 1) ; (re-search-forward "^$" nil t) ; (narrow-to-region 1 (point)) ; (goto-char 1) ; (while (re-search-forward mew-header-decode-regex nil t) ; (replace-match (save-match-data ; (mew-header-decode (mew-match 1) ; (mew-match 2) ; (mew-match 3))) ; nil t)) ; )))) ;; From: Masahiro MURATA ;; Subject: [Mew-dist 04100] Re: About mew-gnus ;; より Newsgroups: で TAB で補完 (add-hook 'mew-init-hook (lambda () (setq mew-field-completion-switch (append mew-field-completion-switch '(("Newsgroups:" . mew-draft-newsgroup-comp) ("Followup-To:" . mew-draft-newsgroup-comp)) )))) (defun mew-draft-newsgroup-comp () (interactive) (let ((word (mew-delete-backward-char))) (if (null word) (tab-to-tab-stop) (mew-complete word gnus-active-hashtb "newsgroups" nil) ;; use cdr ) )) (setq mew-cs-database '(("us-ascii" (ascii) nil "7bit" nil "Q") ("iso-8859-1" (ascii latin-iso8859-1) iso-8859-1 "quoted-printable" iso-8859-1 "Q") ("iso-8859-2" (ascii latin-iso8859-2) iso-8859-2 "quoted-printable" iso-8859-2 "Q") ("iso-8859-3" (ascii latin-iso8859-3) iso-8859-3 "quoted-printable" iso-8859-3 "Q") ("iso-8859-4" (ascii latin-iso8859-4) iso-8859-4 "quoted-printable" iso-8859-4 "Q") ("koi8-r" (ascii cyrillic-iso8859-5) koi8-r "quoted-printable" koi8-r "Q") ("iso-8859-6" (ascii arabic-iso8859-6) iso-8859-6 "base64" iso-8859-6 "B") ("iso-8859-7" (ascii greek-iso8859-7) iso-8859-7 "base64" iso-8859-7 "B") ("iso-8859-8" (ascii hebrew-iso8859-8) iso-8859-8 "base64" iso-8859-8 "B") ("iso-8859-9" (ascii latin-iso8859-9) iso-8859-9 "quoted-printable" iso-8859-9 "Q") ("tis-620" (ascii thai-tis620) tis620 "base64" tis620 "B") ("iso-2022-jp" (ascii latin-jisx0201 japanese-jisx0208 japanese-jisx0208-1978) iso-2022-jp "7bit" iso-2022-jp "B") ("UTF-8" (ascii utf-8) utf8 "Q") ("euc-kr" (ascii korean-ksc5601) euc-kr "base64" euc-kr "B") ("iso-2022-kr" (ascii korean-ksc5601) iso-2022-kr "7bit" euc-kr "B") ("gb2312" (ascii chinese-gb2312) cn-gb-2312 "base64" cn-gb-2312 "B") ("hz-gb-2312" (ascii chinese-gb2312) hz-gb-2312 "7bit" hz-gb-2312 "B") ("big5" (ascii chinese-big5-1 chinese-big5-2) chinese-big5 "base64" chinese-big5 "B") ("iso-2022-jp-2" (ascii latin-jisx0201 japanese-jisx0208 japanese-jisx0208-1978 japanese-jisx0212 chinese-gb2312 korean-ksc5601 latin-iso8859-1 greek-iso8859-7) iso-2022-7bit-ss2 "7bit" iso-2022-7bit-ss2 "B") ;; charset-to-cs purpose only ("UTF-8" nil utf-8) ("euc-jp" nil euc-japan) ("shift_jis" nil shift_jis) ("cn-gb" nil cn-gb-2312) ;; the same as gb2312 above ("cn-big5" nil chinese-big5) ;; the same as big5 above ("iso-2022-cn" nil iso-2022-cn) ("iso-2022-cn-ext" nil iso-2022-cn-ext) ("iso-2022-int-1" nil iso-2022-int-1) )) ;;; ;;; hilit ;;; (cond ((eq window-system 'x) (cond ((string-match "^19" emacs-version) (setq hilit-mode-enable-list nil hilit-background-mode 'light hilit-inhibit-hooks nil hilit-inhibit-rebinding nil) (require 'hilit19)) ;; ) (cond ((string-match "XEmacs" emacs-version) (set-face-font 'default '( ;; Europa "-*-fixed-medium-r-*--14-*-iso8859-1" "-*-fixed-medium-r-*--*-iso8859-1" "-*-fixed-medium-r-*--*-iso8859-2" "-*-fixed-medium-r-*--*-iso8859-3" "-*-fixed-medium-r-*--*-iso8859-4" "-*-fixed-medium-r-*--*-iso8859-7" "-*-fixed-medium-r-*--*-iso8859-8" "-*-fixed-medium-r-*--*-iso8859-5" "-*-fixed-medium-r-*--*-iso8859-9" ;; Japanese "-*-fixed-medium-r-*--14-*-jisx0201.1976-*" "-*-fixed-medium-r-*--14-*-jisx0208.1983-*" "-*-fixed-medium-r-*--14-*-jisx0212*-*" "-*-fixed-medium-r-*--*-jisx0201.1976-*" "-*-fixed-medium-r-*--*-jisx0208.1983-*" "-*-fixed-medium-r-*--*-jisx0212*-*" ;; Chinese fonts "-*-*-medium-r-*--*-gb2312.1980-*" "-*-fixed-medium-r-*--*-cns11643*-*" "-*-fixed-medium-r-*--*-big5*-*" "-*-fixed-medium-r-*--*-sisheng_cwnn-0" ;; Korean "-*-mincho-medium-r-*--*-ksc5601.1987-*" ;; Thai "-*-fixed-medium-r-*--*-tis620.2529-1" ) 'global '(mule-fonts)) (add-hook 'mew-message-hook (function (lambda () (if mew-xemacs-p (highlight-headers (point-min) (point-max) nil))))) (require 'highlight-headers) (set-face-foreground 'message-headers "blue") (set-face-foreground 'message-highlighted-header-contents "firebrick") (set-face-foreground 'message-header-contents "purple") (set-face-foreground 'message-cited-text "purple") (setq highlight-headers-hack-x-face-p t);; X-Face (setq highlight-headers-highlight-citation-too nil) ) ) ) (t ;; Command line (emacs/mule/xemacs -nw) ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Citation tip ;;; ;;; ;;; From: Kazu Yamamoto ;;; Subject: Hello World ;;; Date: Thu, 08 Dec 1994 11:44:08 +0900 ;;; Message-Id: <199509291309.WAA21663@decpc07.aist-nara.ac.jp> ;;; ;;; kazu> 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") (defvar mew-cite-prefix "> ") ;;;(setq mew-cite-prefix-function 'mew-cite-prefix-username) (setq mew-cite-hook 'sc-cite-original) ;;; ;;; dosのファイルも適当なモードで開けるように ;;; (setq auto-mode-alist (cons '("\\.H\\'" . c++-mode ) auto-mode-alist )) (setq auto-mode-alist (cons '("\\.C\\'" . c++-mode ) auto-mode-alist )) (setq auto-mode-alist (cons '("\\.ASM\\'" . asm-mode ) auto-mode-alist )) (setq auto-mode-alist (cons '("\\.INC\\'" . asm-mode ) auto-mode-alist )) ;;; time-stamp 機能を有効にする (setq write-file-hooks (cons 'time-stamp write-file-hooks)) (setq time-stamp-active t) ;野鳥 (setq auto-mode-alist (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist)) (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t) (setq YaTeX-kanji-code 3) (setq tex-command "platex") (setq auto-mode-alist (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist)) (autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t) (setq yahtml-www-browser "netscape") ;Write your favorite browser. ;But netscape is advantageous. (setq yahtml-path-url-alist '(("/home/tito/html/index.html" . "http://localhost/~tito") )) ;Write correspondence alist from ;ABSOLUTE unix path name to URL path. (setq mime-setup-use-sc t ) (cond ((string-match "^19" emacs-version) (load "mime-setup")) ((string-match "^20" emacs-version) (load "semi-setup"))) ; supercite ;; sc (autoload 'sc-cite-original "supercite" "Supercite 3.1" t) (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t) ; (autoload 'sc-perform-overloads "sc-oloads" "Supercite 3.1" t) (setq mail-citation-hook 'sc-cite-original) (setq mail-yank-hooks 'sc-cite-original) ; for all but MH-E ;(setq mh-yank-hooks 'sc-cite-original) ; for MH-E (3.7以上) ;(setq news-reply-mode-hook 'sc-perform-overloads) ; for RNEWS,GNEWS,GNUS ;(add-hook 'news-reply-mode-hook ; (lambda () (sc-perform-overloads))) ;(setq mail-setup-hook 'sc-perform-overloads) ; for RMAIL,PCMAIL,GNUS! ;(add-hook 'mail-setup-hook ; (lambda () (sc-perform-overloads))) ;;(setq gnews-ready-hook 'sc-perform-overloads) ; for GNEWS (setq sc-electric-references-p nil) (setq sc-preferred-header-style 2) (setq sc-citation-leader "") (setq sc-nested-citation-p t) (setq sc-auto-fill-region-p nil) ;Message-ID: <67bcjg$o4n$1@jaist-news.jaist.ac.jp> ;Subject: Re: Supercite ;From: shigeki@jaist.ac.jp (Shigeki Kitazawa) ;Newsgroups: fj.editor.mule ;Date: 18 Dec 1997 14:39:44 GMT ;より (setq sc-pre-hook '(lambda () (setq sc-rewrite-header-list (cons '(sc-header-mine) sc-rewrite-header-list)) (setq sc-preferred-header-style 0) )) (defun sc-header-mine() "Shigeki KITAZAWA original." (let ((sc-mumble "") (whofrom (sc-mail-field "from")) (tag sc-reference-tag-string)) (if whofrom (insert (sc-hdr (concat tag (sc-mail-field "sc-attribution") " == " whofrom " さんは\n") (concat tag (sc-mail-field "date") "頃に\n") (concat (concat tag (sc-mail-field "message-id") "の中で書きました。\n") (concat tag "\"" (sc-mail-field "subject") "\" の中で書きました。\n"))))))) ;.emacs に以下のように書いておけば大丈夫だと思います。 ; ;(define-program-coding-system nil "ci" (cons *euc-japan* *euc-japan*)) ;(define-program-coding-system nil "rcs" (cons *euc-japan* *euc-japan*)) ;gnus用 (setq gnus-local-timezone "+0900") (setq gnus-use-generic-from "ca.mbn.or.jp") (setq gnus-use-generic-path t) (add-hook 'gnus-select-group-hook (lambda () (setq gnus-auto-select-first nil))) (setq gnus-author-copy "|/usr/local/bin/imstore --dst=+Backup") (setq nntp-server-hook '(lambda () (nntp-send-command "^[23].*\r$" "mode reader"))) (setq user-mail-address "tito@ca.mbn.or.jp") (setq user-full-name "Takeshi Itoh") (setq gnus-select-method '(nnspool "")) (setq nnspool-spool-directory "/var/spool/news/articles") (setq nnspool-lib-dir "/var/lib/news/") (setq nnspool-active-file "/var/lib/news/active") (setq nnspool-inews-program "/usr/news/bin/inews") ;(setq gnus-secondary-select-methods '((nnml ""))) ; mew-gnus.el用 (add-hook 'gnus-group-mode-hook (function (lambda () (require 'mew-gnus) (define-key gnus-group-mode-map "a" 'mew-gnus-post-news)))) (add-hook 'gnus-summary-mode-hook (function (lambda () (define-key gnus-summary-mode-map "i" 'mew) (define-key gnus-summary-mode-map "a" 'mew-gnus-post-news) (define-key gnus-summary-mode-map "r" 'mew-gnus-reply) (define-key gnus-summary-mode-map "R" 'mew-gnus-reply-with-citation) (define-key gnus-summary-mode-map "f" 'mew-gnus-mail-forward)))) (setq gnus-default-article-saver 'gnus-summary-save-in-mew) (setq gnus-use-cross-reference 1 ) (setq browse-url-browser-function 'browse-url-w3) ;ext-resouceext-resource.el: External Resource Referer for Emacs/19 ; Mule や Emacs 上で、任意のファイル上の URL から Netscape ; Navigator をコントロールすることで WWW のファイルなどを参照する ; ことができます。 M-x コマンドによる制御とマウスクリックに対応し ; ています。http://www.is.s.u-tokyo.ac.jp/~oiwa/mysoft/index.html ;(autoload 'refer-resource "ext-resource" ; "Refering external resource around current point." t) ;(autoload 'refer-resource-at-click "ext-resource" ; "Refering external resource around the clicked point." t) ;(global-set-key [S-mouse-3] 'refer-resource-at-click) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; skk ;;; (global-set-key "\C-x\C-j" 'skk-mode) (global-set-key "\C-xj" 'skk-auto-fill-mode) (autoload 'skk-mode "skk" nil t) (autoload 'skk-auto-fill-mode "skk" nil t) (autoload 'skk-tutorial "skk-tut" nil t) (autoload 'skk-isearch-mode-setup "skk-isearch" nil t) (autoload 'skk-isearch-mode-cleanup "skk-isearch" nil t) (add-hook 'isearch-mode-hook (function (lambda () (and (boundp 'skk-mode) skk-mode (skk-isearch-mode-setup) )))) (add-hook 'isearch-mode-end-hook (function (lambda () (and (boundp 'skk-mode) skk-mode (skk-isearch-mode-cleanup) (skk-set-cursor-properly) )))) (setq skk-completion-function 'skk-completion-original) ;(setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.L") (setq skk-server-host "localhost") (setq skk-server-prog "/usr/local/libexec/skkserv") (setq skk-aux-large-jisyo "/usr/share/skk/SKK-JISYO.L") (setq skk-server-portnum 1167) ;(setq skk-server-list ; '(("ppp" . "/usr/local/libexec/skkserv"))) (put 'eval-expression 'disabled nil) ;eldicの設定 ;(autoload 'lookup-chie "eldic" "アスキー辞典盤 知恵蔵" t) ;(autoload 'lookup-kenkyusha-on "eldic" "アスキー辞典盤 英和・和英" t) ;(autoload 'lookup-kenkyusha "eldic" "アスキー辞典盤 英和・和英" t) ;(autoload 'lookup-iwanami "eldic" "アスキー辞典盤 岩波" t) ;(autoload 'lookup-mypedia "eldic" "アスキー辞典盤 マイペディア" t ) ;(global-set-key [f9] 'lookup-kenkyusha-on) ;(global-set-key [C-f9] 'lookup-kenkyusha) ;(global-set-key [f10] 'lookup-iwanami) ;(global-set-key [f11] 'lookup-chie) ;(global-set-key [f12] 'lookup-mypedia) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; irchat-2.4jp23a ;; IRC (チャット) クライアントの設定 ;; M-x irchat で起動します ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq load-path (append '("/usr/local/share/emacs/site-lisp/irchat-2.4jp23a") load-path)) (autoload 'irchat "irchat" nil t) ;;; IRC server の指定 ;;; (いずれか一つをコメントアウトします) ;;(setq irchat-server "irc.tohoku.ac.jp") ;;(setq irchat-server "irc.kyutech.ac.jp") (setq irchat-server "irc.tokyo.wide.ad.jp") ;;(setq irchat-server "irc.kyoto.wide.ad.jp") ;;(setq irchat-server "irc.huie.hokudai.ac.jp") ;;(setq irchat-server "irc.cc.yamaguchi-u.ac.jp") ;;(setq irchat-server "irc.karrn.ad.jp") ;;(setq irchat-server "irc.kyoto.wide.ad.jp") ;;(setq irchat-server "irc.rcac.tdi.co.jp") ;(setq irchat-server "irc01.mbn.or.jp") ;;; ユーザー名とニックネーム ;;; (nick は半角英数および []{}_\^ からなる最大 9 文字の文字列です) (setq irchat-name "tito") (setq irchat-nickname "TiTO") ;;; デフォルトで参加するチャンネルのリスト ;;; （ここに書いたチャンネルには irchat の起動と同時に参加できます） ;;(setq irchat-startup-channel-list '("#linuxjp,#pjetest")) (setq irchat-startup-channel-list '("#pjetest")) ;;; オプション ;;; 詳細は /usr/doc/irchat-2.4jp23a/FAQ-about-jp23.txt 参照 (setq irchat-reconnect-automagic t) ; 切れた場合に再接続を試みる ;;(setq irchat-channel-buffer-mode t) ; チャネル分割表示モード ;;(setq irchat-display-channel-always t) ;;(setq irchat-default-freeze-local nil) ;;; ;;; c-sig ;;; (autoload 'add-signature "c-sig" "c-sig" t) (autoload 'delete-signature "c-sig" "c-sig" t) (autoload 'insert-signature-eref "c-sig" "c-sig" t) ;; 対話的に選択する。 (autoload 'insert-signature-automatically "c-sig" "c-sig" t) ;; データベースからの検索結果に従って自動的に挿入する。 ;(autoload 'insert-signature-randomly "c-sig" "c-sig" t) ;; ランダムに挿入する。 ;; Mewでシグネチャを対話的に選択する設定 ; body 部でキーを定義したい場合は，以下のようにすれば Emacs のバージョン ;を気にする必要がなくなると思います。 (defmacro my-draft-body-map () (` (if mew-use-overlay-keymap mew-draft-mode-map mew-draft-body-map))) (add-hook 'mew-draft-mode-hook (function (lambda () (define-key (my-draft-body-map) "\C-c\C-i" 'insert-signature-eref) (setq fill-column 66)))) (setq sig-default-name "mbn") (setq sig-regexp-alist '(("Config" ("mbn$" . "mbn") ("example$" . "ito-test") ))) ;;sig-filter-function ;; この関数が宣言されていると signature の挿入時に signature 自身を引数 ;;としてこの関数が呼ばれ、戻りを signature として挿入します。 (defun sig-filter-function (sig) (let ((work) (buffer (get-buffer-create " *temp buffer*"))) (save-excursion (set-buffer buffer) (erase-buffer) (insert-string sig) (goto-char (point-min)) (if (re-search-forward "^!" nil t ) (let ((beg (point)) (command "")) (end-of-line) (setq command (buffer-substring beg (point))) (delete-region beg (point)) (shell-command command t) (delete-backward-char 1) (exchange-point-and-mark) (delete-backward-char 1) ) ) (setq work (buffer-substring (point-min) (point-max))) (kill-buffer buffer) work))) (setq sig-purge nil) ;; ;; prom-mew ;; mewでprocmailで振り分けた未読メールを追いかける ;; ftp://ftp.sol.cs.ritsumei.ac.jp/pub/lang/elisp/prom/prom-mew-1.92.7.tar.gz ;; より (autoload 'prom-mew "prom-mew" "mew for using procmail" t) (setq proc-log-list (list "~/Mail/procmail.log" )) ;; procmail が出力するログファイル(複数指定可) ;; ~/.procmail の LOGFILE で指定したもの。 (setq proc-keep-log "~/Mail/listlog") ;; ログの保存用ファイル (setq proc-lock-file "~/Mail/.lock") ;; ロックファイル(下記参照) ;; ~/.procmail の LOCKFILE で指定したもの。 (setq prom-ignore-no-mewcache-folders t) ; non-nil なら，未読メールの調査において mew のキャッシュファイル ; (.mew-cache)がないフォルダーについては調べない(無視する)。 (setq prom-mew-xheader nil) ; Mew draft mode においてヘッダに "X-Prom-Mew:" フィールドを挿入する ; ときの内容。値が nil の時には "X-Prom-Mew:" フィールドは挿入されない。 ; というより prom-mew.el がロードされる時に mew-header-alist に値を追 ; 加しないだけである。よって，nil にする場合は prom-mew.el をロードす ; る前に設定しておくこと。 (setq prom-ignore-check-folders '("^\\+linux-users-spool" "/$" "^\\+trash" "^\\+tmp" "^\\+draft")) ; prom-check-unread-folders による未読メールの調査において，無視する ; フォルダーのリストを正規表現で指定する。 (global-set-key [f8] 'prom-mew) (global-set-key [C-f8] 'gnus) ;mewで text/html をw3で扱うための設定 ;ただしC-x C-eする前に w3 が起動されていないとだめ (autoload 'w3-region "w3-display" nil t) (setq mew-prog-text/html 'w3-region) ; ; namazu.el ; (autoload 'namazu "namazu" nil t) (setq namazu-default-dir "/home/tito/Mail") (setq namazu-search-num 100) (set-scroll-bar-mode 'right) (custom-set-variables '(browse-url-netscape-program "netscape-remote.sh") '(w3-do-incremental-display t) '(display-time-24hr-format t) '(w3-use-terminal-characters nil)) (custom-set-faces) ;;; ;;; x-face ;;; (setq x-face-mule-use-cache-file nil) ; X-Face のキャッシュを保存するかどうかを指定するための変数です。 ; nil の場合は、キャッシュを保存しません。 ;; [Mew 1.93 (beta) を使用している場合] (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) (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) (global-set-key [S-mouse-3] 'browse-url-netscape) ;; linuxdoc-sgml (setq auto-mode-alist (cons (cons "\\.sgml$" 'sgml-mode) auto-mode-alist)) ;(setq auto-mode-alist (mapcar 'purecopy ; '(("\\.sgml$" . sgml-mode)))) (autoload 'sgml-mode "lnxsgml" "Major mode fo editing files of SGML." t) (setq load-path (cons "/home/tito/lib/elisp/mule-ucs" load-path)) (require 'un-sample) (require 'un-tools) ; ; mew-nmz.el ; (setq mew-nmz-mknmz-skip-folders '("+trash" "+draft" "+draft/mime" "=draft" "=draft/draft" "+example-inet/examplenet-request" "+example-inet/po" "+example-inet/work" "+from/tito" "+inbox" "+linux-users-spool" "+test/mladmin" "+mx2test" "+news" "+owner-lan-staff" "+owner-test" "+postmaster1" "+samples" "+tmp" "+schedule" "+Perl-Win32-Users" "+Perl-Win32-Web" )) (eval-after-load "mew" '(require 'mew-nmz)) (setq mew-nmz-prog-mknmz-args '("-kuUhPq")) ; ; mew-refile-view.el ; (autoload 'mew-refile-view "mew-refile-view" "View refile alist" t) (setq mew-refile-view-show-trash nil) (setq mew-refile-view-exec-confirm nil) ; "*Non nil means trash folder (i.e. delete-marked messages) ; will be also shown." (add-hook 'mew-summary-mode-hook '(lambda () (define-key mew-summary-mode-map "x" 'mew-refile-view) (define-key mew-summary-mode-map "X" 'mew-summary-exec))) ;; このファイルは、Calendar/Diary Packege を使って、 ;; 日本国における国民の休日を設定するためのものです。 ;; ;; The auther of the Calendar/Diary Package: ;; Edward M. Reingold Department of Computer Science ;; (217) 333-6733 University of Illinois at Urbana-Champaign ;; reingold@cs.uiuc.edu 1304 West Springfield Avenue ;; ;; 最も簡単な使い方 ;; ".emacs"に以下のコードを追加します。 (setq calendar-load-hook '(lambda nil (load "japanese-holidays" t) (setq calendar-holidays japanese-holidays) )) ;; これだけで、外国の祝日は一切無視し、日本国の国民の祝日だけになります。 ;; ;; 古林 紀哉 (Noriya KOBAYASHI) ;; (display-time) (set-background-color "cornsilk") ; MHC は、ほとんどの予定を電子メールで受け取るような人のためにデザインさ ; れました。MHC を使うと、簡単に電子メイルから予定の情報を取り込むことが ; できます。 ; 最新版のパッケージは、以下から入手できます: ; http://www.swlab.csce.kyushu-u.ac.jp/~nom/prj/mhc/ (autoload 'mhc-mode "mhc" nil t) (add-hook 'mew-summary-mode-hook 'mhc-mode) ; ; lookup ; (autoload 'lookup "lookup" nil t) (autoload 'lookup-pattern "lookup" nil t) (global-set-key [f9] 'lookup-pattern ) (global-set-key [f10] 'lookup-word )