my Top pageドジ話の目次前のドジ話次のドジ話

XEmacs でも Mail & News 環境を

  2000年01月15日(土)

 明けましておめでとうございます。  2000年問題も大過なく、ホッとしています。

  最近、HTML形式や画像が添付されたメールが増えてきました。この添付メールを見る
のは大変厄介でした。それで、標準でも見れるようにメール環境を二重にしました。

通常処理:Mew version 1.94 on Emacs 19.34 / Mule 2.3 (SUETSUMUHANA)
画像処理:Mew version 1.94.1 on XEmacs 21.1 (Big Bend)

と言うようにしてしまいました。
Mule と Xemacs の選択起動の設定が判らなくて、ちょっと往生しましたが、過去ログ等
を調べて何とか設定できました。
まあ、使ってみて、驚いたのは、メールヘッダーに顔写真付けてる方が居られるんですね。
こんなことが出来るなどとは今の今まで知りませんでした。便利なもんですね。
二重環境の設定は、もともとの、

perl-5.004_jp-3
im-130-5
mew-mule-1.94-1
gn-1.40-1

に、Vine Plus のサイトより次の rpm を取得して追加インストールしました。各々の説明は
Vine Plus のサイトを見てください。

compface-19891111-2.i386.rpm
dnd-1.1-1.i386.rpm
xemacs-21.1.6-8.i386.rpm
xemacs-sumo-19990729-7vl1.noarch.rpm
xemacs-canna-21.1.6-8.i386.rpm
xemacs-el-21.1.6-8.i386.rpm
xemacs-sumo-el-19990729-7vl1.noarch.rpm
mew-xemacs-1.94.1-1.i386.rpm
mew-xemacs-extra-1.94.1-1.i386.rpm

xemacs-21.1.6-8 のインストールで、xemacs-sumo-の古いバージョンを要求されインストー
ルエラーになりますが、これには、
# rpm -ivh --nodeps xemacs-21.1.6-8.i386.rpm
として依存性を無視するオプション追加でインストールを強行しました。後は難なくインストール
できています。
現状、メール、ニュースとも以前より快適に楽しめています。
# Mew の2匹の猫は可愛いですね。私は猫好きです。

Mule と XEmacs の各々の設定選択には、

  ~/.emacs ・・・・・起動されたのが Mule か XEmacs かを判断し、以下の設定ファイルを読み込む 
  ~/.mule.el ・・・・Mule 設定用 ~/.emacs
  ~/.xemacs.el ・・・XEmacs 設定用 ~/.emacs

という3つのファイルを用意することで解決させています。

----- ~/.emacs ------------------------------------------------------
       (if (string-match "XEmacs" emacs-version)
            (load (expand-file-name "~/.xemacs.el"))
          (if ( >= emacs-major-version 20)
            (load (expand-file-name "~/.mule.el"))))
(setq minibuffer-max-depth nil)
---------------------------------------------------------------------

----- ~/.mule.el ------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  PJE-0.1 ユーザ設定ファイルサンプル for emacs(mule)
;;                       MATSUMOTO Shoji (shom@i.h.kyoto-u.ac.jp)
;;                            Time-stamp: <00/01/16 10:44:17 manpou>

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; PJE の Emacs(Mule) を利用するために必要な設定です。
;; (その他便利に利用するための設定はこのファイルの最後の
;;  「その他の設定」にあります)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; 漢字コードの指定
(set-display-coding-system *euc-japan*unix)
(set-keyboard-coding-system *euc-japan*unix)
(set-default-file-coding-system *euc-japan*unix)
(set-default-process-coding-system *euc-japan*unix *euc-japan*unix)
(define-program-coding-system nil nil (cons *euc-japan*unix *euc-japan*unix))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; かんなの設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (and (boundp 'CANNA) CANNA) ; 『かんな/emacs』であることを確認
    (progn
      (load-library "canna")
      (canna)

      (setq canna-use-color t)

      (global-set-key "\C-_" 'canna-undo)  ;アンドゥの設定。
      (setq canna-save-undo-text-predicate ;アンドゥバッファへ入れる条件
            '(lambda (s) (> (length (car s)) 2)) )
      (setq canna-undo-hook ;アンドゥ+α。
            '(lambda () (message "再変換します....")                          
               (canna-do-function canna-func-henkan)) )

      ;;かんなの変換中に BS & DEL を使う
      ;;(define-key canna-mode-map [backspace] [?\C-h])
      ;;(define-key canna-mode-map [delete] [?\C-h])

      ;;かんなの変換中に C-h を使う (with term/keyswap)
      (define-key canna-mode-map [?\177] [?\C-h])

      ))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; tm
;;  Tools for MIME の設定
;;  (mew は tm なしでも MIME に対応しています。が、GNUS には必要です。)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(load "mime-setup")

;; tm には tl (Tiny Library) が含まれています
;; 下のようにして load-path 追加を自動的に行うことができます
(load "tl-misc")
(require 'file-detect)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; GNUS 5.4.61(参考)
;;   NetNews リーダー GNUS
;;   C-c C-g で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Gnspool  
(setq nnspool-spool-directory "/home/manpou/News") 
(setq nnspool-active-file "/home/manpou/News/lib/active") 
(setq nnspool-newsgroups-file "/home/manpou/.newsrc")
(setq nnspool-history-file "/home/manpou/.newsrc")
(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-g" 'gnus-gnspool)

;;; GNUS
(setq gnus-select-method '(nnspool ""))
(setq gnus-local-domain "mxp.mesh.ne.jp")
(setq gnus-local-organization "Personal(from Kitakyushu in Japan)")
(setq gnus-usr-login-name "manpou")
(setq gnus-usr-full-name "M_Akiyama")
(setq gnus-use-generic-from t)

;;; (setq gnus-show-mime t)
;;;(setq mail-yank-prefix ">")
;;;(setq tm-tar/tar-program "tar")

;;(setq load-path
;;      (append '("/usr/share/emacs/site-lisp/gnus-5.4.61/lisp")
;;	      load-path))
;; News Server 名やドメイン名を指定してください
;;(setq gnus-nntp-server "news.hoge.hoge.or.jp")
;;(setq gnus-local-domain "hoge.hoge.or.jp")
;;(setq gnus-local-organization "HogeHoGe Org.")
;;(setq gnus-use-generic-from t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mew
;;   メールリーダー Mew
;;   M-x mew で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq load-path
      (append '("/usr/share/emacs/site-lisp/mew")
	      load-path))

;; From: に余計なモノ(localhost 名等)が付いたりする場合は、
;; xxxx の部分にドメイン名やメールアドレス等を指定します
(setq mew-mail-domain-list
      '("mxp.mesh.ne.jp"))
;(setq mew-from "manpou@mxp.mesh.ne.jp")

;;(setq exec-path (cons "/usr/bin/mh" exec-path))
;;(setq exec-path (cons "/usr/lib/mh" exec-path))
(autoload 'mew "mew" nil t)
(autoload 'mew-read "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-use-overlay-keymap nil)
(setq mew-auto-flush-queue t)
;;スレッド表示する
(setq mew-prog-imls-arg-list '("--thread=yes"))
;;; sinature on Mew :
(add-hook 'mew-draft-mode-hook
          (function
          (lambda ()
            (let ((p (point)))
              (goto-char (point-max))
              (insert-file "/home/manpou/Mail/signature")
              (goto-char p)))))
;;; hikae mail on mew :
(setq mew-fcc "fccmail")

;;(setq mew-init-hook
;;      (function
;;       (lambda ()
;;	 (setq kill-emacs-hook (function mew-mark-process-all-folders)))))
;;(setq mew-reply-to nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;URLがあればマウス中ボタンクリックでNetcapeを開く
    (autoload 'browse-url-at-mouse "browse-url"
       "Ask a WWW browser to load a URL clicked with the mouse." t)
       (add-hook 'mew-message-mode-hook
        (function (lambda ()
        (local-set-key [mouse-2] 'browse-url-at-mouse))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; X 版 Emacs/Mule で色を付ける
(cond
 ((and window-system (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)
      ;;
      (add-hook 'mew-message-hook
                'hilit-rehighlight-buffer-quietly)
      (hilit-set-mode-patterns 
       '(mew-message-mode)
       '(("^Subject:.*$" nil msg-subject)
         ("^From:.*$" nil msg-from)
         ("^X-.*:.*$" nil msg-quote)
         ("^>.*$" nil msg-quote)
         ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)))
      (add-hook 'mew-draft-mode-hook
                'hilit-rehighlight-buffer-quietly)
      (hilit-set-mode-patterns 
       '(mew-draft-mode)
       '(("^Subject:.*$" nil msg-subject)
         ("^From:.*$" nil msg-from)
         ("^>.*$" nil msg-quote)
         ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)))
      )
 )

(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-function nil)
;;(setq mew-cite-prefix-function 'mew-cite-prefix-username)

;;; この 2 行は通常設定する必要はありませんが、メールアドレスに
;;; ホスト名が入って欲しくない場合などに指定します。
;;(setq mew-from "hoge@hoge.hoge.or.jp")
;;(setq mew-mail-domain "hoge.hoge.or.jp")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; irchat-2.4jp23a
;;   IRC (チャット) クライアントの設定
;;   M-x irchat で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq load-path
      (append '("/usr/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")

;;; ユーザー名とニックネーム
;;; (nick は半角英数および []{}_\^ からなる最大 9 文字の文字列です)
(setq irchat-name "IRC sample user")
(setq irchat-nickname "PJEtest")

;;; デフォルトで参加するチャンネルのリスト
;;;  (ここに書いたチャンネルには 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)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; YaTeX 1.66
;;   [La]TeX 入力モード
;;   M-x yatex とするか、.tex で終わるファイルを読み込むと起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(add-path (get-latest-path "yatex"))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)

;; YaTeX-mode
(setq auto-mode-alist
      (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(setq dvi2-command "xdvi"
      tex-command "platex"
      dviprint-command-format "dvips %s | lpr"
      YaTeX-kanji-code 3)

;; YaHtml-mode
(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")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; dic (eldic.el)
;;   Mule 上で dic を利用するための設定です
;;   ~/lib/emacs に /usr/doc/dic/eldic.el をコピーして
;;   dic-shell-file-name の辺りを適切に設定してください。
;;   C-c C-c C-e で英和、C-c C-c C-j で和英が引けます。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;(global-set-key "\C-c\C-c\C-e" 'lookup-edic)
;;(global-set-key "\C-c\C-c\C-j" 'lookup-jdic)
;;(autoload 'lookup-edic "eldic" nil t)
;;(autoload 'lookup-jdic "eldic" nil t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; その他の設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; マクロサーチパスの追加
;;; ~/lib/emacs 以下にユーザ用の *.el, *.elc を置くことができます
;;(setq load-path (append '("~/lib/emacs") load-path))

;;; C-h と Del の入れ替え
;;; Help が Shift + Ctrl + h および Del に割当てられ、
;;; 前一文字削除が Ctrl + h に割当てられます
;;(load-library "term/keyswap")
;;(if (eq window-system 'x)
;;    (progn
;;      (define-key function-key-map [delete] [8])
;;      (put 'delete 'ascii-character 8)))

;;; ステータスラインに時間を表示する
;;(display-time)

;;; mule/emacs -nw で起動した時にメニューバーを消す
;;(if window-system (menu-bar-mode 1) (menu-bar-mode -1))

;;; X 版 Mule の設定
(if (eq window-system 'x)
    (progn
      
      ;; カラー表示
      (setq hilit-mode-enable-list  nil
	    hilit-background-mode   'light
	    ;;hilit-background-mode   'dark
	    hilit-inhibit-hooks     nil
	    hilit-inhibit-rebinding nil)
      (require 'hilit19)

      ;;スクロールバーを消す
      ;;(scroll-bar-mode -1)

      ))

;; HTMLモードでタグに自動色付け
(add-hook 'html-mode-hook
          (function
           (lambda ()
             (font-lock-mode 1)

)))
;; YAHTMLモードでタグに自動色付け
(add-hook 'yahtml-mode-hook
          (function
           (lambda ()
             (font-lock-mode 1)

)))

;;; 最終更新日の自動挿入
;;;   ファイルの先頭から 8 行以内に Time-stamp: <> または
;;;   Time-stamp: " " と書いてあれば、セーブ時に自動的に日付が挿入されます
(if (not (memq 'time-stamp write-file-hooks))
    (setq write-file-hooks
          (cons 'time-stamp write-file-hooks)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; このファイルに間違いがあった場合に全てを無効にします
(put 'eval-expression 'disabled nil)

-----------------------------------------------------------------------

----- ~/.xemacs.el ------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  ユーザ設定ファイサンプル for XEmacs
;;         XEmacs を利用するために必要な設定です。                       
;;                            Time-stamp: <00/01/16 11:43:12 manpou>
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;デフォルトの文字コードを日本語 EUC に
;; 漢字コードの指定
(set-keyboard-coding-system 'euc-jp-unix)
(set-default-file-coding-system 'euc-jp-unix)  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; For XEmacs21.1.6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; バックグラウンドを白に、またフォントをごく一部に限定
(set-face-background 'default "white" nil '(x color))
(set-face-font 'default "-*-fixed-medium-r-*-*-*-130-*-*-*-*-*-*")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Window tips
;;;
;; If you use XEmacs and your video chip provides only limited
;; color map(e.g. 256), put the following line to avoid exhaustion
;; of colors.
;(setq mew-demo-picture nil)

(cond
 ((featurep 'xemacs)
;  (setq-default buffer-file-coding-system 'iso-2022-jp)
;  (setq keyboard-coding-system    'iso-2022-jp)
;  (setq terminal-coding-system    'iso-2022-jp)
;; メニューバーの「アプり」のプルダウン項目を Mew に変更。VM や Mh を使ってないから。
  (add-menu-item '("Apps") "Read Mail (Mew)" 'mew t "Read Mail (VM)...")
  (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..."))
  )
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; かんなの設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(select-input-method ' japanese-canna)
(global-set-key "\C-o" 'canna-toggle-japanese-mode)

(if (and (boundp 'CANNA) CANNA) ; 『かんな/emacs』であることを確認
   (progn
      (load-library "canna")
      (canna)

      (setq canna-use-color t)

      (global-set-key "\C-_" 'canna-undo)  ;アンドゥの設定。
      (setq canna-save-undo-text-predicate ;アンドゥバッファへ入れる条件
            '(lambda (s) (> (length (car s)) 2)) )
      (setq canna-undo-hook ;アンドゥ+α。
            '(lambda () (message "再変換します....")                          
               (canna-do-function canna-func-henkan)) )

      ;;かんなの変換中に BS & DEL を使う
      (define-key canna-mode-map [backspace] [?\C-h])
      (define-key canna-mode-map [delete] [?\C-h])

      ;;かんなの変換中に C-h を使う (with term/keyswap)
      (define-key canna-mode-map [?\177] [?\C-h])

      ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mew 1.94 for XEmacs-21.1.6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-auto-get nil)
(setq mew-mail-domain-list '("mxp.mesh.ne.jp"))
;; From ヘッダの""で囲まれた文字もデコードする
(setq mew-decode-quoted t)
;;控え
(setq mew-fcc "fccmail") 
;;スレッド表示する
(setq mew-prog-imls-arg-list '("--thread=yes"))
(setq mew-icon-directory "/usr/lib/xemacs/site-packages/etc/mew")
(setq toolbar-mail-reader 'Mew)
(setq toolbar-mail-commands-alist
  (cons '(Mew . mew) toolbar-mail-commands-alist))
;;自分にBccをつけない
(setq mew-mail-address-list 
 '(""))
;;Reply-Toがある場合Reply-toにだけ返信(以下2行)
(setq mew-replyto-to-list '("Reply-To:"))
(setq mew-replyto-cc-list nil)
;;定型文を挿入
(add-hook 'mew-draft-mode-hook
                  (function
                  (lambda ()
                  (let ((p (point)))
                  (goto-char (point-max))
                  (insert-file "/home/manpou/Mail/signature")
                  (goto-char p)))))
;;引用でも定型文を一番上に
(add-hook 'mew-before-cite-hook
        (lambda () (goto-char (point-max))))
;;URLがあればマウス中ボタンクリックでNetcapeを開く
(setq browse-url-browser-function 'browse-url-netscape)
(autoload 'browse-url-at-mouse "browse-url"
   "Ask a WWW browser to load a URL clicked with the mouse." t)
  (add-hook 'mew-message-mode-hook
  (function (lambda ()
  (local-set-key [mouse-2] 'browse-url-at-mouse))))
;;subjectに日本語が使えるようにする
(setq mew-use-overlay-keymap nil)
;;fromに名前を表示する
;(setq mew-from "M_Akiyama")
;;Mewを起動したりSummaryバッファでiを押したときなどに自動的にQueueDirにたまったメールを送信する
;(setq mew-auto-flush-queue t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; GNUS 5.4.61(参考)
;;   NetNews リーダー GNUS
;;   C-c C-g で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Gnspool  from manpou
(setq nnspool-spool-directory "/home/manpou/News") 
(setq nnspool-active-file "/home/manpou/News/lib/active") 
(setq nnspool-newsgroups-file "/home/manpou/.newsrc")
(setq nnspool-history-file "/home/manpou/.newsrc")
(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-g" 'gnus-gnspool)

;;; GNUS
(setq gnus-select-method '(nnspool ""))
(setq gnus-local-domain "mxp.mesh.ne.jp")
(setq gnus-local-organization "Personal(from Kitakyushu in Japan)")
(setq gnus-usr-login-name "manpou")
(setq gnus-usr-full-name "M_Akiyama")
(setq gnus-use-generic-from t)
;; GNUS 本文の文字化け解消のため。./gnus にも(require 'gnus-mime)が必要。
(load "mime-setup")

;; HTMLモードでタグに自動色付け
(add-hook 'html-mode-hook
          (function
           (lambda ()
             (font-lock-mode 1)

)))
;; YAHTMLモードでタグに自動色付け
(add-hook 'yahtml-mode-hook
          (function
           (lambda ()
             (font-lock-mode 1)

)))

;;; 最終更新日の自動挿入
;;;   ファイルの先頭から 8 行以内に Time-stamp: <> または
;;;   Time-stamp: " " と書いてあれば、セーブ時に自動的に日付が挿入されます
(if (not (memq 'time-stamp write-file-hooks))
    (setq write-file-hooks
          (cons 'time-stamp write-file-hooks)))

;; このファイルに間違いがあった場合に全てを無効にします
(put 'eval-expression 'disabled nil)

;;(custom-set-variables
;; '(user-mail-address "manpou@dora.home" t)
;; '(query-user-mail-address nil))
;;(custom-set-faces)

------------------------------------------------------------------

----- ~/.gnus ------------------------------------------------------
(setq gnus-visible-headers "From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Path:\\|^\\(Mail-\\)?Followup-To:\\|^\\(Mail-\\)?Reply-To:\\|^Mail-Copies-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|X-Sent:\\|^Received:\\|^X-Newsreader:\\|^User-Agent:\\|^X-Mailer:")
(require 'gnus-mime) ・・・日本語表示させるには必要。

---------------------------------------------------------------------

というように設定ファイルを記述しています。過去ログを参考にしたり、独自設定をしたり
していますので環境によっては不具合がでるかも、、、。



my Top pageドジ話の目次前のドジ話次のドジ話