[Mew-dist 16471] Re: mew-use-highlight-*

[Norio Suzuki]

こんばんは。鈴木教郎です。

> From: Shun-ichi TAHARA (田原 俊一) <jado at example.com>
> Date: Fri, 16 Feb 2001 17:51:05 +0900
>> Message-ID: <20010216.175103.576049608.z1980163 at example.com>

> 派手好きの方は、contrib/mew-cite-color.el を使うという手もありますね。

この使い方は、mew-cite-color.el を emacs が見つけられるところにコピー
して、(eval-after-load "mew" '(require 'mew-cite-color)) を .emacs に
加えるだけですよね? mew そのままと変化がないような気がします。.emacs
の mew に関する部分をこの手紙に付けておきます。

> From: Kazu Yamamoto (山本和彦) <kazu at example.com>
> Date: Fri, 16 Feb 2001 22:56:53 +0900
>> Message-ID: <20010216.225641.68561457.kazu at example.com>

> (setq mew-highlight-cursor-line-face 'highlight) 
> 
> では、ダメですか？

これは、バッチリです。欲を言うと、C-p や C-n でカーソルを動かしたらそ
れに合わせてハイライトになると良いのですが。
-- 
鈴木教郎
E-Mail: nosuzuki at example.com

;; Setting for MEW
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-mail-domain-list '("e-mail.ne.jp"))

;; 手紙を取り込む外部コマンド
(setq mew-mailbox-type 'mbox)
(setq mew-mbox-command "incdir")
(setq mew-mbox-command-arg "")

(setq mew-smtp-server "localhost")  ;; if not localhost
(setq mew-icon-directory "icon directory") ;; if using XEmacs

(setq mew-demo nil)
(setq mew-draft-mode-hook
      (function (lambda ()
                  (auto-fill-mode 1)
                  (setq fill-column 70)
		  (define-key mew-draft-body-map "\C-c\t" 'insert-signature-eref)
		  )))

(setq mew-fcc "+Backup")
(setq mew-trash-folder "+Trash")
(setq mew-from "nosuzuki at example.com (Norio Suzuki)")
;;
(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format "> From: %s\n> Subject: %s\n> Date: %s\n>> Message-ID: %s\n\n")
; 引用を name> でなく > だけにする。
;(setq mew-cite-prefix-function 'mew-cite-prefix-username)
(setq mew-cite-prefix-function nil)
; header が長過ぎると解析しなくなる。
(setq mew-header-max-length 100)
; GNUGP(gpg) を使う。
(setq mew-prog-pgp         "gpg")

; ちょっと派手にする。
;(setq mew-use-highlight-cursor-line t)
(setq mew-use-highlight-mouse-line nil)
(setq mew-highlight-cursor-line-face 'highlight)
;(eval-after-load "mew" '(require 'mew-cite-color))
;(setq mew-cite-color-face-list-source
;      '(
;        "MediumSpringGreen" "LightBlue" "Orange" "Violet"
;        "MediumSpringGreen" "LightBlue" "Orange" "Violet"
;        ))
;(setq mew-cite-color-comment-face-color "MediumAquamarine")