.emacs

[Hisaaki Shibata <shibata@xxxxxxxx>]

;;Xemacs基本設定
(setq options-save-faces t)
(setq display-warning-suppressed-classes '(font))

;browser連携
(require 'browse-url)
(setq browse-url-browser-function 'browse-url-netscape)

;;wanderlust
;(require 'mime-setup)
;(autoload 'wl "wl" "Wanderlust" t)
;(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)

;;x-face
(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)
(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)

;;mhc
(require 'overlay)
(setq mhc-mailer-package 'mew)
(setq mhc-use-week-separator 0)
      (autoload 'mhc-mode "mhc" nil t)
      (add-hook 'mew-summary-mode-hook 'mhc-mode)
      (add-hook 'mew-virtual-mode-hook 'mhc-mode)
      (add-hook 'mew-message-hook      'mhc-misc-hdr-decode)
(setq mhc-category-face-alist
 '(
   ("BIZ"      . (bold "black"  nil))      ;; お仕事一般
   ("NET"   . (nil  "black"  "gray"))   ;; network
   ("EDU"   . (nil  "black"  "orange")) ;; 
   ("MOV"   . (nil  "blue"  nil)) ;; 
   ("Linux"     . (nil  "brown"  "pink"))   ;; 
   ("Family"     . (nil  "brown"  "white"))   ;; 
   ("Private"   . (nil  "tan"    nil))))    ;; プライベート

;;irchat
;(setq irchat-server "his.luky.org")
(setq irchat-password "plumpass")
;(setq irchat-server "hive.hi-biz.com")
;(setq irchat-server "irc.kyoto.wide.ad.jp")
;(setq irchat-server "lets.luky.org")
(setq load-path (cons "/usr/local/lib/xemacs/site-lisp/irchat" load-path))
(autoload 'irchat "irchat" "Internet Relay Chat." t)
(setq irchat-global-names nil)
(setq irchat-reconnect-automagic t)
(setq irchat-channel-buffer-mode t)
(setq irchat-display-channel-always t)
(setq irchat-default-freeze-local nil)
(setq irchat-beep-on-bells t)


;;Mew関連メニュー／ツールバー設定
(add-menu-item '("Apps") "Send Mail (Mew)" 'mew-send t "Read Mail (VM)...")
(delete-menu-item '("Apps" "Read Mail (VM)..."))
(delete-menu-item '("Apps" "Read Mail (MH)..."))
(delete-menu-item '("Apps" "Send mail..."))
(setq load-path (cons "/usr/local/lib/xemacs/site-lisp" load-path))
(setq toolbar-mail-reader 'Mew)
(setq toolbar-mail-commands-alist
        (cons '(Mew . mew) toolbar-mail-commands-alist))

;;gnus関連ツールバー設定
(autoload 'gnus' "gnus" nil t)
(setq toolbar-news-reader 'gnus)
(setq toolbar-news-commands-alist
        (cons '(gnus . gnus) toolbar-news-commands-alist))

;;日本語入力
;(if (featurep 'xemacs)
;(setq load-path (append '("/usr/share/wnn7/elisp/xemacs21") load-path))
;(setq load-path (append '("/usr/share/wnn7/elisp/emacs20") load-path)))
;(global-set-key "\C-\\" 'toggle-input-method)
;(load "wnn7egg-leim")
;(if (featurep 'xemacs)
;(select-input-method "japanese-egg-wnn7")
;(set-input-method "japanese-egg-wnn7"))
;(set-language-info "Japanese" 'input-method "japanese-egg-wnn7")

;20010727 (set-language-environment "Japanese")
;20010727 (setq wnn-server-type 'jserver)
;20010727 (setq wnn-host-name "localhost")
;20010727 (setq jserver-list '("localhost"))
;20010727 (select-input-method "japanese-egg-wnn")
;;(set-input-method "japanese-egg-wnn")
(setq enable-double-n-syntax t)
(let ((its:*defrule-verbose* nil))
;  (its-define-mode "roma-kana")
  (setq its-define-mode "roma-kana")
;  (dolist (symbol ' ( "1" "2" "3" "4" "5"
;		      "6" "7" "8" "9" "0" ))
;    (its-defrule symbol symbol)))
)

;; Options Menu Settings
;; =====================
(cond
 ((and (string-match "XEmacs" emacs-version)
       (boundp 'emacs-major-version)
       (or (and
            (= emacs-major-version 19)
            (>= emacs-minor-version 14))
           (= emacs-major-version 20))
       (fboundp 'load-options-file))
  (load-options-file "/home/shibata/.xemacs-options")))
;; ============================
;; End of Options Menu Settings

;; for gnspool
;(setq nnspool-spool-directory "/var/spool/news")
;(setq nnspool-active-file "/var/lib/news/active")
;(setq nnspool-newsgroups-file "/var/lib/news/newsgroups")
;(setq nnspool-history-file "/var/lib/news/history")
;(defun gnus-gnspool ()
;	"GNUS (with gnspool)"
;	(interactive)
;	(setq gnus-nntp-server nil)
;	(setq gnus-nntp-service nil)
;	(gnus))
;(setq nnspool-inews-program "/usr/local/bin/gninews")
(global-set-key "\C-c\C-n" 'gnus)
;(setq gnus-select-method '(nnspool ""))

;;for Semi-gnus
;; transferd to ~/.gnus
;(load "semi-setup")
;(setq load-path (cons (expand-file-name "/usr/local/lib/xemacs/site-lisp") load-path))

;;for gnus
;(require 'gnus-mew)
;(setq browse-url-browser-function 'browse-url-netscape)
;(autoload 'gnus "gnus" "Read Internet news" t)
;(autoload 'gnus-post-news "gnus" "post a news article" t)
;(setq gnus-use-long-file-name t)
;(setq gnus-use-generic-from t)
;(setq gnus-use-generic-path t)
;(setq gnus-auto-extend-newsgroup t)
;(setq gnus-show-mime t)
;(setq gnus-equired-headers
;	'(From Date Newsgroups Subject Organization Lines))
;(setq gnus-visible-headers "^From:\\|^Date:\\|^Newsgroups:\\|^Subject:")
;(setq gnus-summary-line-format "%U%R%z%I%d% (%[%-20,20n%]%) %s\n")
;(setq mail-yank-prefix ">")
;(setq gnus-nntp-server "opost1.netspace.or.jp")
;(setq gnus-nntp-service nil)
;;(setq gnus-select-method '(nntp "opost1.netspace.or.jp"))
;(setq gnus-mail-reply-method 'gnus-mail-reply-using-mew)
;(setq gnus-mail-forward-method 'gnus-mail-forward-using-mew)
;(setq gnus-mail-other-window-method 'gnus-mail-other-window-using-mew)
;(setq gnus-default-article-saver 'gnus-summary-save-in-mew)
;(setq gnus-local-organization "netSpace Fukuoka/dial-up")
;(setq gnus-subscribe-newsgroup-method
;	(function gnus-subscribe-hierarchically))
;;(setq gnus-show-all-headers t)
;(setq gnus-local-timezone "JST +900")
;(setq gnus-thread-hide-subtree t)
;(setq gnus-thread-ignore-subject t)
;(setq gnus-newsgroup-default-charset-alist
;      '(
;	("^\\(japan\\|fj\\)\\." . iso-2022-jp)
;	))
;

;;Mew関連基本設定
(autoload 'mew' "mew" nil t)
(autoload 'mew-send' "mew" nil t)
(setq mew-mail-domain-list '("netspace.or.jp"))
(setq mew-icon-directory "/usr/local/lib/xemacs/xemacs-packages/etc/mew/")
(setq mew-fcc "+Backup")
(setq mew-cc nil)
(setq mew-decode-quoted t)
(setq mew-draft-mode-auto-save t)
(setq mew-header-max-depth 1000)
(setq mew-header-max-length 1000)
(setq mew-file-max-size 5000000)
;(setq mew-file-max-size 200000)

(defvar mew-refile-guess-control
   '(
     mew-refile-guess-by-alist
     mew-refile-guess-by-newsgroups
     mew-refile-guess-by-folder
     mew-refile-ctrl-auto-boundary
     mew-refile-ctrl-throw
     mew-refile-guess-by-from
     mew-refile-guess-by-default
     )
 )

;;添付ファイル種別追加
;(setq mew-mime-content-type-binary-list
;      (cons "Application/Pdf" mew-mime-content-type-binary-list))

;;for ML "Mail-Followup-To:
(setq mew-replyto-to-list '("Mail-Followup-To:" "Reply-To:"))
(setq mew-replyto-cc-list nil)


;; リプライ時に '差出人のアドレス >' の設定にする
;(setq mew-cite-prefix-function 'mew-cite-prefix-username)

;;signatureを選択して挿入して、そのあとで"柴田(ひ)＠福岡です。\n\n" を入れています。
;;mew-before-cite-hookで引用の位置を調整しています。
(defun insert-my-name ()
  (save-excursion
    (goto-char (mew-header-end))
    (next-line 1)
    (insert "柴田(ひ)＠福岡です。\n\n")))

(defun insert-my-signature ()
  (save-excursion
    (goto-char (point-max))
;    (next-line 1)
    (insert-signature-eref)))



(add-hook 'mew-draft-mode-newdraft-hook
	  (lambda ()
	    (save-excursion
	      (goto-char (point-max))
;	      (insert-signature-eref)
	      (insert-my-name)
	      )))
;20000603
;(add-hook 'mew-before-cite-hook
;	  (lambda ()
;	    (re-search-forward "柴田(ひ)＠福岡です。\n\n" nil t)
;	    ))


;; シグニチャをつける
;(add-hook 'mew-send-hook 'mew-draft-insert-signature)
;(setq mew-signiture-insert-last t)
(add-hook 'mew-send-hook 'insert-my-signature)
(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)
;20000603 (setq sig-insert-end t)
;;; データベースからの検索結果に従って自動的に挿入する。
;(autoload 'insert-signature-automatically "c-sig" "c-sig" t)
;;; ランダムに挿入する。
;(autoload 'insert-signature-randomly "c-sig" "c-sig" t)

;;; Mewでシグネチャを対話的に選択する設定
;(setq mew-draft-mode-hook
;      (function (lambda ()
;		  (define-key mew-draft-mode-map "\C-c\C-i" 'insert-signature-eref)))) 

;;テンプレート「柴田(ひ)＠福岡です。」をつける
;(add-hook 'mew-draft-mode-hook
;	  (function
;	   (lambda ()
;	     (let ((p (point)))
;	       (goto-char (point-max))
;	       (insert-file "~/Mail/personal.tmpl")
;	       (goto-char p)))))



;;Reply時の引用ヘッダ
(defvar mew-cite-fields '("From:" "Subject:" "Date:"))
;(defvar mew-cite-format "柴田(ひ)＠福岡です。\n\nFrom: %s\nSubject: %s\nDate: %s\n\n")
;(defvar mew-cite-prefix "> ")

;; Subject: From: To: Date: だけ表示
(setq mew-field-visible '("Subject:" "From:" "To:" "Date:"))
(setq mew-field-other-visible nil)
;; Auto folder inc
(setq mew-refile-guess-alist
      '(("Subject:"
;	 ("(cron-log)" . "+BIZ/ML/cron-log")
;	 ("(admin)" . "+BIZ/ML/admin")
	 ("his-loadavg" . "+TOP")
	 ("his-free" . "+TOP")
	 ("last at" . "+TOP")
	 ("perl-win32-j" . "+ML/MISC/Y2001")
	)
	("Newsgroups:"
	 ("fj.fleamarket" . "+News/fj.fleamarket.comp")
	)
	("To:"
	 ("^fire@" . "+ML/FUKU/fire")
	 ("AsahiComClip" . "+BIZ/Y2001/M07")
	)
	("X-ML-Name:"
	 ("sunaba" . "+ML/FUKU/sunaba/Y2001")
	 ("k-pup" . "+ML/FUKU/sunaba/Y2001")
	 ("mew-dist" . "+ML/UNIX/Y2001")
	 ("fml-help" . "+ML/UNIX/Y2001")
	 ("modruby-ja" . "+ML/UNIX/Y2001")
	 ("ruby-list" . "+ML/UNIX/Y2001")
	 ("ldap-jp" . "+ML/UNIX/Y2001")
	 ("samba-jp" . "+ML/UNIX/Y2001")
	 ("wmaker-jp" . "+ML/UNIX/Y2001")
	 ("namazu-users-ja" . "+ML/UNIX/Y2001")
	 ("postfix-jp" . "+ML/UNIX/Y2001")
	 ("Kdeveloper" . "+ML/UNIX/Y2001")
	 ("Kuser" . "+ML/UNIX/Y2001")
	 ("Wanderlust" . "+ML/UNIX/Y2001")
	 ("cgiscript" . "+ML/UNIX/Y2001")
	 ("wakakusa" . "+ML/UNIX/Y2001")
	 ("mhc" . "+ML/UNIX/Y2001")
	 ("lilo" . "+ML/LINUX/Y2001")
	 ("Begi.net freetalk" . "+ML/LINUX/Y2001")
	 ("Begi.net begin" . "+ML/LINUX/Y2001")
	 ("blue" . "+ML/LINUX/Y2001")
	 ("JM" . "+ML/LINUX/Y2001")
	 ("JF" . "+ML/LINUX/Y2001")
	 ("debian-users" . "+ML/LINUX/Y2001")
	 ("linux-users" . "+ML/LINUX/Y2001")
	 ("Kondara-users.ja" . "+ML/LINUX/Y2001")
	 ("rc5-ml" . "+ML/LINUX/Y2001")
	 ("linuxppc-jp" . "+ML/LINUX/Y2001")
	 ("linuxce-jp" . "+ML/LINUX/Y2001")
	 ("linux-sh-ja" . "+ML/LINUX/Y2001")
	 ("alsa-user" . "+ML/LINUX/Y2001")
	 ("o4l" . "+ML/LINUX/Y2001")
	 ("SukiSuki-DOS/V" . "+ML/MISC/Y2001")
	 ("Happy-PC-Talking ML" . "+ML/MISC/Y2001")
	 ("GPS-USER" . "+ML/MISC/Y2001")
	 ("CACAnet" . "+ML/FUKU/cacanet")
	 ("alm-hokkai" . "+ALM")
	 ("alm-yokohama" . "+ALM")
	 ("jla-committers" . "+ML/JLUG/cvsadmin")
	 ("ktarn-general" . "+ML/KURUME")
	 ("palm-tech-ml" . "+ML/palm-ml")
	 ("stats" . "+BIZ/ADMIN/Y2001/M07")
	)
	("From:" 
;	 ("mirror@xxxxxxxxxxxxxxx"      . "+HIS/mirror")
	 ("listsupport@xxxxxxxxxxxx" . "+ML/LINUX/ENG/Y2001")
	 ("submit@xxxxxxxxxxxxxxxxx"      . "+ML/LINUX/Y2001")
	 ("root@xxxxxxxxxxxxxxxxxxx"   . "+trash")
	 ("useful@xxxxxxxxxxxx"   . "+from/useful")
	 ("nikkeibp"   . "+ML/NIKKEI")
	 ("news@xxxxxxxxxx"   . "+ML/MISC/Y2001")
	 ("mag2from"   . "+ML/MISC/Y2001")
	)
	("Sender:"
	 ("owner-pgsql-jp@" . "+ML/UNIX/Y2001")
	 ("owner-cvs-ml@" . "+ML/UNIX/Y2001")
	 ("owner-installer@xxxxxxxxxxxx" . "+ML/UNIX/Y2001")
	 ("owner-freebsd-net-jp-digest@xxxxxxxxxxxxxx" . "+ML/UNIX/Y2001")
	 ("linux-kernel-owner@" . "+ML/LINUX/ENG/Y2001")
	 ("owner-linux-cluster@" . "+ML/LINUX/ENG/Y2001")
	 ("owner-vine-users@" . "+ML/LINUX/Y2001")
	 ("nlug-bounce@xxxxxxxxxxxxxxx" . "+ML/LINUX/Y2001")
	 ("owner-ssh@" . "+ML/UNIX/ENG/Y2001")
	 ("owner-nfk@" . "+ML/FUKU/sunaba/Y2001")
	 ("im@xxxxxxxxxxxxxx" . "+ML/MISC/Y2001")
	 ("owner-don@xxxxxxxxxxxxxxxxxx" . "+ML/MISC/Y2001")
	 ("owner-domain-talk@xxxxxxxxx" . "+ML/MISC/Y2001")
	 ("owner-rt-users-broadcast@" . "+ML/MISC/Y2001")
	)
	("List-Id:"
	 ("netbsd.re.soum.co.jp" . "+ML/UNIX/Y2001")
	 ("apache-users.ml.apache.or.jp" . "+ML/UNIX/Y2001")
	 ("QPopper.lists" . "+ML/UNIX/ENG/Y2001")
	 ("lids-user" . "+ML/LINUX/ENG/Y2001")
	 ("aic7xxx.FreeBSD.ORG" . "+ML/LINUX/ENG/Y2001")
	)
	("Reply-To:"
	 ("admin@xxxxxxxxxx" . "+BIZ/ADMIN/Y2001/M07")
	 ("cnet@xxxxxxxxxxxx" . "+ML/MISC/Y2001")
	)
	("Mailing-List:"
	 ("lcdproc-help" . "+ML/LINUX/ENG/Y2001")
	 ("axplinux-help@" . "+ML/LINUX/Y2001")
	 ("suck-ml-help@xxxxxxxxxxx" . "+ML/UNIX/ENG/Y2001")
	)
	("X-Mailing-List:"
	 ("devel@xxxxxxxxxxx" . "+ML/UNIX/ENG/Y2001")
	)
	("X-ML-Info:"
	 ("linux-ctl@xxxxxxxxxxx" . "+ML/LINUX/Y2001")
	)
	("X-Loop-Check:"
	 ("infoie55mi" . "+BIZ/ML/55mi")
	)
	))
(custom-set-variables
 '(user-mail-address "shibata@xxxxxxxx" t)
 '(query-user-mail-address nil))
(custom-set-faces
 '(default ((t (:size "13pt" :family "Fixed"))) t))
;; From: mew-1.67/contrib/mew-gnus.el
;; To use mew-gnus.el, put the following codes in your .emacs.
;;
;   (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 "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 minibuffer-max-depth nil)

;;for namazu 2001-07-21
(autoload 'namazu "namazu" nil t)
;(load "namazu-mew.el")