mew3.3

mew3.3を使ってみた。ようやくIMAPの動作が落ち着いてきた模様。
やっぱりいいなぁ。早いし、MIMEの対応が使いやすい。
というわけで備忘録として設定ファイルをコピペ。

(setq mew-icon-directory "/usr/lib/xemacs/xemacs-packages/etc/Mew") (setq exec-path (cons "/usr/local/bin/" exec-path)) (setq mew-from-list '("hoge (autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'mew-user-agent
'mew-user-agent-compose
'mew-draft-send-message
'mew-draft-kill
'mew-send-hook))
(setq mew-cite-hook 'sc-cite-original)

(setq mew-name "hoge hoge")
(setq mew-user "hoge")
(setq mew-mail-domain "hoge.com")

(setq mew-use-cached-passwd t)
(setq mew-auto-get t)
(setq mew-mailbox-type "imap")
(setq mew-fcc "%fcc")

(setq mew-use-fancy-thread t)
(setq mew-use-thread-separator t)
(setq mew-sort-default-key-alist
'(
("%inbox" . "date")
("*ml" . "x-mail-count")
)
)

(setq mew-decode-broken t)

(setq mew-mail-address-list
'(
)
)

(setq mew-refile-guess-by-folder t)
(setq mew-refile-guess-alist
'(
(
"To:"
)
)
)

(setq mew-use-fast-refile t)

(condition-case nil
(require 'mew-w3m)
(file-error nil)
)

(setq mew-use-cursor-mark t)
(setq mew-use-highlight-mouse-line t)

(require 'font-lock)
(setq font-lock-support-mode 'lazy-shot-mode)
(setq lazy-shot-verbose nil)
(setq lazy-shot-stealth-verbose nil)
(when (featurep 'xemacs)
(setq lazy-lock-minimum-size 0))
(add-hook 'mew-init-hook
(lambda ()
(defvar mew-fancy-disable nil)
(make-variable-buffer-local 'mew-fancy-disable)
(defadvice mew-scan (before fancy-disable activate)
(setq mew-fancy-disable t))
(defadvice mew-scan-filter (before fancy-disable activate)
(when (and mew-fancy-disable font-lock-mode)
(setq mew-fancy-disable nil)
(font-lock-mode -1)))
))

(setq mew-scan-form-extract-rule '(nickname name address))

(defun mew-scan-form-youbi ()
(let ((s (MEW-DATE)))
(if (>= (length s) 3) (setq s (substring s 0 3)))
(cond
((string= s "Mon") "月")
((string= s "Tue") "火")
((string= s "Wed") "水")
((string= s "Thu") "木")
((string= s "Fri") "金")
((string= s "Sat") "土")
((string= s "Sun") "日")
(t "??"))))

(setq mew-scan-form
'(type (5 date) "(" (2 youbi) ") [" (-4 time) "] "
(25 from) " " t (0 subj)))

(setq mew-summary-trace-directory nil)
(setq mew-replyto-to-list '("Mail-Followup-To:" "Reply-To:"))
(setq mew-signature-insert-last t)

(add-hook 'mew-draft-mode-hook
(function
(lambda ()
(define-key mew-draft-mode-map "\C-c\C-i" 'insert-signature-eref)
)
)
)

でも%inboxにfccができなかったので使うのやめた。

| | PCカテゴリ
Powered by Movable Type 4.261