Meadow

$ tar xzvf yatex1.69.2.tar.gz     # アーカイブを展開して
$ cd yatex1.69.2                  # 展開したディレクトリに移って
$                                 # (A) 必要ならバイトコンパイル(下記参照)
$ make install EMACSDIR=/usr/local/Meadow
# (B) インストールする

$ make EMACS=meadow DISPLAY=X elc # バイトコンパイルする

* YaTeX: (yatexj). Yet Another tex-mode for Emacs. (Japanese).
* YaTeX-e: (yatexe). Yet Another tex-mode for Emacs. (English).
* yahtml: (yahtmlj). Yet Another HTML-mode for Emacs. (Japanese).
* yahtml-e: (yahtmle). Yet Another HTML-mode for Emacs. (English).

(cond
 ((locate-library "yatex")
  (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)

  ;; 拡張子が .tex のファイルを開くときに yatex-mode にする
  (setq auto-mode-alist (cons '("\\.tex$" . yatex-mode) auto-mode-alist))

  ;; 漢字コードの指定(1=sjis, 2=jis, 3=euc)
  (setq YaTeX-kanji-code 1)

  ;; 外部コマンドの指定(パスが通ってない場合は絶対パスで記述)
  (setq tex-command "platex")
  (setq dvi2-command "dviout")
  (setq bibtex-command "jbibtex")

  ;; yatex-mode 初期化時の設定
  (add-hook 'yatex-mode-hook
            (function
             (lambda ()
               ;; outline-minor-mode の設定(使用しない場合は不要)
               (outline-minor-mode t)   ; outline-minor-mode を起動
               (make-local-variable 'outline-regexp)
               (setq outline-regexp     ; 見出しの正規表現
                     (concat "[ \t]*\\\\"
                             "\\(appendix\\|documentstyle\\|part\\|chapter\\|"
                             "section\\|subsection\\|subsubsection\\|"
                             "paragraph\\|subparagraph\\)"
                             "\\*?[ \t]*[[{]"))

               ;; font-lock 用の設定(使用しない場合は不要)
(setq YaTeX-use-font-lock t))))))

(cond
 ((locate-library "yahtml")
  (autoload 'yahtml-mode "yahtml" "Yet Another html mode" t)

  ;; 拡張子が .html, .htm のファイルを開くときに yahtml-mode にする
  (setq auto-mode-alist (cons '("\\.html?$" . yahtml-mode) auto-mode-alist))

  ;; 漢字コードの指定(1=sjis, 2=jis, 3=euc)
  (setq yahtml-kanji-code 2)

  ;; HTML のタグを大文字にする
  (setq yahtml-prefer-upcases t)

  ;; 属性指定子を大文字にする
  (setq yahtml-prefer-upcase-attributes t)

  ;; yahtml モードの起動が遅い場合に次の設定を有効にする
  ;; アクセス制限ファイル .htaccess を参照しないようにする
  ;;(setq yahtml-server-type nil)

  ;; 外部コマンドの指定(パスが通ってない場合は絶対パスで記述)
  (setq yahtml-www-browser "fiber")     ; fiber で Web ブラウザを起動     
  (setq yahtml-lint-program "jweblint")

  ;; yahtml-mode 初期化時の設定
  (add-hook 'yahtml-mode-hook
            (function
             (lambda ()
               ;; outline-minor-mode の設定(使用しない場合は不要)
               (outline-minor-mode t)   ; outline-minor-mode を起動
               ;; 見出しの正規表現
               (make-local-variable 'outline-regexp)
               (setq outline-regexp "^.*<[Hh][1-6]\\>") 
               ;; 見出し終わりの正規表現
               (make-local-variable 'outline-heading-end-regexp)
               (setq outline-heading-end-regexp "</[Hh][1-6]>")
               ;; 見出しレベルの計算式
               (make-local-variable 'outline-level)
               (setq outline-level
                     (function (lambda () (char-after (1- (match-end 0))))))

               ;; font-lock の設定
(setq YaTeX-use-font-lock t))))))

(setq yahtml-server-type nil) 

$ cd $LISPDIR                   # ライブラリのディレクトリに移って
$ mv Semi-gnus Semi-gnus.old    # 以前のライブラリの名前を変えて
                                # (動作確認できたら削除してかまわない)
$ cd /tmp                       # アーカイブのあるディレクトリに移って
$ tar xzvf gnus-6.10.8.tar.gz   # 展開して
$ cd semi-gnus-6_10_8           # 展開したディレクトリに移って
$ ./configure                   # make 環境を作って

(Texinfo toolsがインストールされていない場合は、下記に従って Makefile を修正する)

$ make -e all                   # makeする（shでなくbashでないとだめみたい）
$ make -e lispdir=$LISPDIR/semi-gnus prefix=$PREFIX/1.00 install
                                # インストールする 

(progn (load-library "texinfmt")(texinfo-every-node-update)(texinfo-format-buffer)(save-buffer))

* Gnus-j: (gnus-ja).    The news reader Gnus (Japanese).  
* Message-j: (message-ja). Mail and news composition mode that goes with Gnus (Japanese).  

[修正前]
.texi:
        if test $(MAKEINFO) = no; then \
          $(EMACSINFO) -eval '(find-file "$<")' $(XINFOSWI); \

[修正]
.texi:
        if test $(MAKEINFO) = no; then \
          $(EMACSINFO) -eval '(find-file ""$<"")' $(XINFOSWI); \

(add-hook 'gnus-startup-hook 'bbdb-define-all-aliases)

$ cd /tmp                     # アーカイブのあるディレクトリに移って
$ tar xzvf apel-10.3.tar.gz   # 展開して
$ cd apel-10.3                # 展開したディレクトリに移って
$ make EMACS=meadow95         # バイトコンパイルして
$ make install EMACS=meadow95 LISPDIR=c:/usr/local/meadow/site-lisp/
                              # インストールする

$ cd /tmp                     # アーカイブのあるディレクトリに移って
$ tar xzvf flim-1.14.2.tar.gz # 展開して
$ cd flim-1.14.2              # 展開したディレクトリに移って
$ make EMACS=meadow95         # バイトコンパイルして
$ make install EMACS=meadow95 LISPDIR=c:/usr/local/meadow/site-lisp/
                              # インストールする 

$ cd /tmp                     # アーカイブのあるディレクトリに移って
$ tar xzvf semi-1.14.3.tar.gz # 展開して
$ cd semi-1.14.3              # 展開したディレクトリに移って
$ make EMACS=meadow95         # バイトコンパイルして
$ make install EMACS=meadow95 LISPDIR=c:/usr/local/meadow/site-lisp/
                              # インストールする 

;; nallout outline mode の設定
(if (locate-library "nallout")  ; ライブラリの有無をチェック
    (progn
      (require 'nallout)
      (allout-init t)

      ;; 拡張子が .out のファイルをロードするときに自動的に 
      ;; allout-mode にする
      (setq auto-mode-alist
            (append '(("\\.out$" . allout-mode))
                    auto-mode-alist))

      (add-hook
       'allout-mode-hook
       '(lambda ()
          ;; 必要に応じて、下記(1)(2)の設定をここに追加する

          ;; キーバインドの追加
          ;; ------------------
          ;; C-c C-r    見出し全体を右方向へシフト(C-c > と同じ)
          ;; C-c c-l    見出し全体を左方向へシフト(C-c < と同じ)
          (define-key allout-mode-map "\C-c\C-r" 'allout-shift-in)
          (define-key allout-mode-map "\C-c\C-l" 'allout-shift-out)

          ;; メニューバーへの登録
          (require 'easymenu)

          (easy-menu-define
           allout-menu allout-mode-map
           "Allout Outline Mode Commands"
           '("Allout"
             ["Next visible heading" allout-next-visible-heading t]
             ["Previous visible heading" allout-previous-visible-heading t]
             "---"
             ["Hide current subtree" allout-hide-current-subtree t]
             ["Show current subtree" allout-show-current-subtree t]
             "---"
             ["Open sibtopic" allout-open-sibtopic t]
             ["Open subtopic" allout-open-subtopic t]
             ["supertopic" allout-open-supertopic t]
             "---"
             ["Shift in" allout-shift-in t]
             ["Shift out" allout-shift-out t]
             ["Number siblings" allout-number-siblings t]
             "---"
             ["Kill topic" allout-kill-topic t]
             ["Yank" allout-yank t]))))))

;; font-lock 用の設定
;; 見出しのレベルによってハイライト色を変える
;; outline.el と allout.el を参考にした
(make-local-variable 'font-lock-defaults)

(defvar allout-font-lock-keywords
  (list
   ;; 最上位以外の見出しの設定
   ;; ちょっと自信がないけど、とりあえずは動いている
   '(eval .
          (list
           ;; 見出しの正規表現
           (concat "^\\("
                   (regexp-quote allout-header-prefix)
                   "\\)\\([ \t]*["
                   allout-bullets-string
                   "]\\)[^ \t]*[ \t]*\\([^\n\r]*\\)")
           ;; 見出しの文字列(3番目にマッチしたもの)の face を、見
           ;; 出しの深さに応じて変更する
           '(3
             (let* ((start-pos (match-beginning 2))
                    (end-pos (match-end 2))
                    ;; 見出しの深さを3で割った余り
                    (len (mod (- end-pos start-pos) 3)))
               ;; 見出しの深さに応じてフェイスを変える
               (or (cdr
                    (assq len
                          '((0 . font-lock-function-name-face)
                            (1 . font-lock-keyword-face)
                            (2 . font-lock-comment-face))))
                   font-lock-variable-name-face))
             nil t)))
   ;; 最上位の見出しの設定
   '(eval .
          (list
           ;; 見出しの正規表現
           (concat "^\\("
                   (regexp-quote allout-primary-bullet)
                   "\\)[ \t]*\\([^\n\r]*\\)")
           ;; 見出しの文字列(2番目にマッチしたもの)の face を設定
           ;; する
           '(2
               ;; 見出しのフェイスを設定
               font-lock-function-name-face))))
  "Additional expressions to highlight in allout outline mode.")

(setq font-lock-defaults '(allout-font-lock-keywords t))

;; font-lock-mode の明示な起動
(turn-on-font-lock)

;;; マウスボタンのクリックで表示をトグルする
;; 表示をトグルするための関数
;; つまり、カーソル位置に応じて本文を表示・非表示する
(defun allout-toggle-subtree ()
  (save-excursion                       ; カーソル位置を保存
    (end-of-line)                       ; 行末に移動
    (if (allout-hidden-p)               ; 本文が隠されているか?
        (allout-show-current-subtree)   ; 隠されていれば表示
      (allout-hide-current-subtree))))  ; 隠されていなければ隠す
              

;; マウスのクリックで呼出される関数
(defun allout-push-button (event args)
  (interactive "e\nP")
  (set-buffer (window-buffer (posn-window (event-start event))))
  (let* ((pos (posn-point (event-start event))))
    (goto-char pos)                     ; クリック場所に移動
    (if (equal                          ; カーソル位置は見出し記号?
         pos (allout-current-bullet-pos)) 
        (allout-toggle-subtree)         ; 表示をトグルする
      (mouse-yank-at-click event args)))) ; 通常のヤンク

;; マウスの第2ボタンに表示のトグルをバインド
(define-key allout-mode-map [mouse-2] 'allout-push-button)

(defvar allout-font-lock-keywords
  (list
   ;; 最上位以外の見出しの設定
   ;; ちょっと自信がないけど、とりあえずは動いている
   '(eval .
          (list
           ;; 見出しの正規表現
           (concat "^\\("
                   (regexp-quote allout-header-prefix)
                   "\\)\\([ \t]*["
                   allout-bullets-string
                   "]\\)[^ \t]*[ \t]*\\([^\n\r]*\\)")
           ;; 見出しの文字列(3番目にマッチしたもの)の face を、見
           ;; 出しの深さに応じて変更する
           '(3
             (let* ((start-pos (match-beginning 2))
                    (end-pos (match-end 2))
                    ;; 見出しの深さを3で割った余り
                    (len (mod (- end-pos start-pos) 3)))
               ;; マウスカーソル下の見出し記号ハイライトする
               (set-text-properties (1- end-pos) end-pos
                                    '(mouse-face highlight))
               ;; 見出しの深さに応じてフェイスを変える
               (or (cdr
                    (assq len
                          '((0 . font-lock-function-name-face)
                            (1 . font-lock-keyword-face)
                            (2 . font-lock-comment-face))))
                   font-lock-variable-name-face))
             nil t)))
   ;; 最上位の見出しの設定
   '(eval .
          (list
           ;; 見出しの正規表現
           (concat "^\\("
                   (regexp-quote allout-primary-bullet)
                   "\\)[ \t]*\\([^\n\r]*\\)")
           ;; 見出しの文字列(2番目にマッチしたもの)の face を設定
           ;; する
           '(2
             (let ((end-pos (match-end 1)))
               ;; マウスカーソル下の見出し記号ハイライトする
               (set-text-properties (1- end-pos) end-pos
                                    '(mouse-face highlight))
               ;; 見出しのフェイスを設定
               font-lock-function-name-face)))))
  "Additional expressions to highlight in allout outline mode.")

$ cd /tmp                     # アーカイブのあるディレクトリに移って
$ tar xzvf bitmap-mule-8.4.tar.gz
                              # 展開して
$ cd bitmap-mule-8.4/font     # BDF フォントのディレクトリに移って
$ make bdf EMACS=meadow95     # フォントを作成して
$ cp *.bdf /usr/local/meadow/intlfonts-1.3/misc/
                              # 作成したフォントをインストール
                              # (コピー先は適宜変更)
$ cd ..                       # 展開したディレクトリに移って
$ make EMACS=meadow95         # バイトコンパイルして
$ make install EMACS=meadow95 LISPDIR=c:/usr/local/meadow/site-lisp/
                              # インストールする

(cond
 ((locate-library "x-face-mule")        ; ライブラリの有無をチェック
  (require 'x-face-mule)
  ;; 問い合わせなしでキャッシュファイルをセーブする
  (setq x-face-mule-force-save-cache-file t)))

(cond
 ((locate-library "gnus-bitmap")        ; ライブラリの有無をチェック
  (autoload 'gnus-bitmap-splash "gnus-bitmap")
  (add-hook 'gnus-load-hook 'gnus-bitmap-splash)))

(cond
 ((locate-library "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)
      
  ;; 起動画面を表示しない(ごめんなさい＞作成者の方)
  (setq x-face-inhibit-loadup-splash t)

  (add-hook 'x-face-load-hook
            (lambda ()
              ;; デフォルトの x-face の画像を設定
              (setq x-face-default-xbm-file "face.xbm")
              ;; 画像挿入時に問い合わせをしない
              (setq x-face-insert-interactive nil)
              ;; バージョン情報もヘッダに挿入
              (setq x-face-add-x-face-version-header t)))

  ;; gnus の場合の設定
  (eval-after-load "message"
    '(add-hook 'message-setup-hook
               (lambda ()
                 (and (y-or-n-p "insert X-Face? ")
                      (x-face-insert))
                 ;; "C-x 4 x" で select-xface を起動
                 (local-set-key "\C-x4x" 'select-xface))))))

(eval-after-load "message"
  '(add-hook 'message-setup-hook
             (lambda () (local-set-key "\C-c\C-i" 'insert-signature-eref))))

>>>>> <wkln9nkty2.fsf@miyoshi.boreas.dti.ne.jp> にて、
>>>>> "三好" = <miyoshi@boreas.dti.ne.jp> さんは書きました:

三好> 来年は、ミハエル・シューマッハにがんばってほしいですね。

私も、そう思います。

 
(if (locate-library "xcite")            ; ライブラリの有無をチェック
    (progn
      (autoload 'xcite-indent-citation "xcite")
      (setq message-citation-line-function nil)
      (setq message-indent-citation-function 'xcite-indent-citation)

      (autoload 'xcite "xcite" "Exciting cite" t)
      (autoload 'xcite-yank-cur-msg "xcite" "Exciting cite" t)
      (global-set-key "\C-c\C-y" 'xcite-yank-cur-msg)

      ;; 引用ヘッダ文字列の設定
      ;; 日本語の場合:
      ;; >>> <MESSAGE-ID> にて、
      ;; >>> "三好" = <miyoshi@boreas.dti.ne.jp> さんは書きました:
      ;; 英語の場合:
      ;; >>> In article <MESSAGE-ID>
      ;; >>> "MIYOSHI" = MIYOSHI Masanori <miyoshi@boreas.dti.ne.jp> writes:
      ;; の形式にする
      (defun my-xcite-header ()
        "引用ヘッダ文字列生成関数."
        (if (string-match "jp$" id)
            ;; 日本語の場合
            (format ">>>>> %s にて、\n>>>>> %s %s さんは書きました:\n"
                    msgid
                    (if (string< "" tag)
                        (concat "\"" tag "\" =")
                      "")
                    (concat "<" id ">"))
          ;; 英語の場合
          (format ">>>>> In article %s\n>>>>> %s %s writes:\n"
                  msgid
                  (if (string< "" tag)
                      (concat "\"" tag "\" =")
                    "")
                  (if handle
                      (concat handle " <"id">")
                    id))))

      (setq xcite:insert-header-function 'my-xcite-header)

      ;; メニュー選択時に IME をオフにする
      (eval-after-load "xcite"
        '(wrap-function-to-control-ime 'xcite t "P"))))

$ cd /usr/local/Meadow/site-lisp/mhc  # MHC のインストール場所に移って
$ make -f Makefile.w32                # バイトコンパイルする

$ ruby ./extconf.rb
$ make
$ make install

(setq mhc-mailer-package 'gnus)
(autoload 'mhc-mode "mhc" nil t)
(add-hook 'gnus-summary-mode-hook 'mhc-mode)

(setq mhc-mailer-package 'mew)
(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-mailer-package 'wl)
(autoload 'mhc-mode "mhc" nil t)
(add-hook 'wl-summary-mode-hook 'mhc-mode)
(add-hook 'wl-folder-mode-hook 'mhc-mode)

(if (locate-library "ekb-isearch")
    (require 'ekb-isearch))

(require 'browse-url)
(setq browse-url-generic-program "fiber")
(setq browse-url-browser-function 'browse-url-generic)

(autoload 'namazu "namazu" nil t)
;; Namazu のインデックスの指定
;; 環境に合わせて変更する
(setq namazu-default-dir
      "~/namazu/Mail ~/namazu/public_html ~/namazu/doc")

$ tar zxvf w3m_el-1.2.tar.gz
$ cd w3m_el-1.2
$ ./configure --with-emacs=meadownt --with-lispdir=c:/usr/local/Meadow/site-lisp/w3m
$ make
$ make install

(autoload 'w3m "w3m" "Interface for w3m on Emacs." t)
(autoload 'w3m-find-file "w3m" "w3m interface function for local file." t)
(autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t)
(autoload 'w3m-search "w3m-search" "Search QUERY using SEARCH-ENGINE." t)
(autoload 'w3m-weather "w3m-weather" "Display weather report." t)
(autoload 'w3m-antenna "w3m-antenna" "Report chenge of WEB sites." t)

;; proxy の設定
(setq w3m-async-exec nil)
(setq w3m-command-arguments
      '("-o" "http_proxy=http://your.proxy.server:8080/"
	"-pauth" "account:passwd"))