;;;; $Header: /home/makoto/mule/lisp/RCS/mew-setup.el,v 1.2 1998/09/05 08:50:30 makoto Exp makoto $

(global-set-key "\C-xm" 'prom-mew)
; M-x mew とした時に mew を load するように設定
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-mail-domain-list
      '( "ki.nu" "komekome.bay.prug.or.jp" "bay.prug.or.jp" "onsemi.com" "sps.mot.com" ))
; 自分宛に写しを送る
(setq mew-dcc "makoto" )

(setq mew-highlight-lines-use t)
; 見出し(header) に付加えるもの
(setq mew-header-alist
'(
("X-PGP-Fingerprint:" . "82 AD 5D F4 1E DC 00 BF  11 90 35 83 ED 85 6F D6")
("X-URL:" . "http://emacs-21.ki.nu/")
 ))
;  From: の設定
(setq mew-from "藤原  誠 Makoto Fujiwara <makoto@ki.nu>" )
; --------------------------------------------------
; (mew) ---- draft mode に入った時に署名などを付ける
; --------------------------------------------------
(add-hook 'mew-draft-mode-newdraft-hook
  (function 
   (lambda ()
     ; - draft mode の時には色付けしない  -----------
     ; ----X-ML-Name: Mew-dist; X-Mail-Count: 06412
     (make-local-variable 'mew-use-highlight-body)
     (setq mew-use-highlight-body nil)
;     (if (mew-header-get-value 'Resent-From );; Resend か?
;         ()                   ;; resent なので無視
;     (progn
       (search-forward "----" nil t)
       (forward-line 1)
       (insert  
">                                   "  (current-time-string)"\n"
">                                            千葉市中央区長洲\n"
">                                                    藤原  誠\n"
">                                                makoto@ki.nu\n"
"\n"
"\n"
"---\n"
"(藤原)\n"
     )
     (search-backward "makoto@ki.nu" nil t)
     (forward-line 1))))
; --------------------------------------------------
;  ---- xyoubin に読んだよの信号を送る ----
(add-hook 'mew-summary-inc-sentinel-hook
	  (function (lambda ()
	      (let ((program       "/usr/local/bin/sendto")
		    (server        "ki.nu")
		    (service       "biff")
		    (user          (user-login-name)))
		(start-process "" nil
		       program server service (concat "U " user))))))
; -----------------  引用して書く時  --------------- 
;(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-fields '("X-Ml-Name:" "X-Mail-Count:" "From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format 
"%s: %s にて\nFrom: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
; 引用に makoto> のように名前を含めるようにする。
(setq mew-cite-prefix-function 'mew-cite-prefix-username)
;
;------------------ 970912 [Mew-dist 1955] ------------
;                    折返し
(setq text-mode-hook
        (function (lambda ()
                    (setq fill-column 66)
                    (auto-fill-mode 1) )))
;------------- INFO に書いてあった「起動を早くする」 ----------------
(setq mew-use-folders-file-p t)
; Subject: [Mew-dist 2151] Re: kanji display problem
(setq mew-header-max-length 100)
;; ---------------------------------------------------------------
;; nil: cdしない
;; Message-ID: <1998Mar2195000054519kose@STAYHIGH.yk.NetLaputa.ne.jp>
(setq mew-summary-trace-directory nil)

; mouse の真中を押すと、カーサのある付近の URL を Netscape に表示
(add-hook 'mew-message-mode-hook
          (function
           (lambda ()
             (local-set-key [mouse-2] 'browse-url-at-mouse)
             )))

; x-face の設定
; ---------- 980823 ----------------------------
;; [Mew 1.93 (beta) を使用している場合]
(cond
 ( (string-match "^20" emacs-version)
   ( progn
     (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))))
; ---------- 980823 ----------------------------
; 引用されている部分の色を変える。
(setq mew-use-highlight-body t)
; (defvar mew-highlight-body-color-quote   "ForestGreen")
; 無指定では上のようになっているので、もし変えるなら、
; (setq mew-highlight-body-color-quote   "色の名") ; とする。
;; X-Mail-Count: 07189
;; X-Mail-Count: 07195
;   ~/.im/Config にある Form の値に %i もしくは %S が含まれていることを
;   確認してから "s" "all" と打って .mew-cache を更新します。

;; (setq mew-prog-imls-arg-list '("--thread=yes" "--indent=2"))

;; X-Mail-Count: 10554 
;; by kazu
;; (setq mew-prog-text/html-arg-hack 'mew-prog-text/html-netscape-remote)