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

メーラー( Mew ) の設定

  2000年07月25日(火)  その2

  Mew の設定変更は簡単でした。一旦キュー保存することを止めるようにした
だけです。起動即メールの取得は厭なので、サマリー画面上で i でメール
の取得するようにしています。送信はドラフトバッファ画面で、C-c/C-c。


------------- ~/.im/Config ---------------------------------------
################################################################
###
### Sample ~/.im/Config
###
### Syntax::
###	key=value
###
###  * "key=value" is equivalent to "--key=value" style command option.
###  * "key" must start at the beginning of the line.
###  * "=" must follow after "key" without white spaces.
###  * White spaces are allowed between "=" and "value".
###  * ":" can be used instead of "=".
###  * Characters after "#" are ignored.
###
### The following examples are all the same:
###	key=value
###	key=  value
###	key:value
###     key:  value
###
### $variable will be expanded.
### '~' will be expanded.
###

##
## Individual information
##

Address=manpou@mxp.mesh.ne.jp
FromDomain=mxp.mesh.ne.jp
ToDomain=mxp.mesh.ne.jp
#Name=Full Name			# commentary name for my mail address
Name=Mitsukuni Akiyama
				# should not contain 8bit characters
#AddrRegex=
#Org=The Mew Organization	# for news posting
#User=user_name
User=manpou
##
## Default global parameters
##

### Directories (relative to ~/)
MailDir=Mail
NewsDir=News			# for saved news

### Folders in $MailDir
InboxFolder=+inbox		# default destination of imget
DraftFolder=+draft
TrashFolder=+trash		# default destination of message removal in Mew

### Folder style in $NewsDir (saved news articles)
#PreserveDot=off		# off: /news/group/, on: /news.group/

### Mode for creation
#FolderMode=0700
#MsgMode=0600

### To keep state of IM commands (CurrentFolder, etc.)
#ContextFile=Context		# relative to ~/.im/


##
## Default settings
##

## Address Book
AddrBookFile=Addrbook		# relative to ~/.im/
## Mail address aliases
#AliasesFile=Aliases		# relative to ~/.im/
## PetName: mail address aliases for displaying
#PetnameFile=Petnames		# relative to ~/.im/

## Message-ID database
#MsgDBFile=msgiddb		# location (relative to ~/.im/)
#MsgDBType=DB			# type of database (DB, NDBM, SDBM)

## To call user defined subroutines (relative to ~/.im/)
#GetChkSbr=getchk.sbr		# hooks for imget
#GetSbr=get.sbr			# hooks for imget
#ScanSbr=scan.sbr		# hooks for imget/imls

## Working folders
#Src=$InboxFolder		# default source of most commands
#Imrm.Src=$TrashFolder		# default source for message cleanups

## imget/imls specific
#ScanSbr=scan.sbr		# hook for special processing (rel. to ~/.im/)
Form=%+5n %m%d %-20A %-50S || %b	# default format for scanning
#AllowCRLF=no			# saved messages may contain CRLF (DOS style)
#Width=80			# default width for scanning
#JisSafe=on			# escape seq. of JIS char. should be managed
#Indent=2			# indent step for threading

## Servers
Smtpservers=mxp.mesh.ne.jp
#Smtpservers=localhost		# default server for SMTP
#EmgSmtpSvrs=12.34.56.78,localhost	# SMTP server just for error return
#NntpServers=localhost		# default server for NNTP

## imget specific
#GetSbr=get.sbr			# hook for special processing (rel. to ~/.im/)
#Imget.Src=local		# default source of imget (local mailbox)
#lock=flock			# locking style of local mailbox
#rpath=append			# conversion of UNIX From into Return-Path:
#PopHistory=pophist-{POPSERVERID}	# to save last state (relative to ~/.im/)
#NntpHistory=newshist		# to save last state (relative to ~/.im/)
#MBoxStyle=qmail		# if folder style mbox of qmail is used
#Imget.Src=local:${HOME}/MailDir# in case of qmail
UseCL=no			# Use value of Content-Length header
NoSync=no			# Do not need fsync(2) on writing file

Imget.Src=pop
#PopAccount=/APOP@localhost	# account info for POP access
PopAccount=/POP:manpou@mxp.mesh.ne.jp	# account info with user name
#PopAccount=/APOP:user@host/110	# account info with user name and port number
Keep=-1				# preserve read messages on server
#ProtoKeep=UIDL			# how to know which message is unread
				# (UIDL, LAST, STATUS, MSGID)
#IgnorePostPet=yes		# leave messages for PostPet on mbox (POP only)

#Imget.Src=imap
#ImapAccount=/AUTH@localhost	# account info for IMAP access
#ImapAccount=/AUTH:user@host	# account info with user name
#HttpProxy=proxy-server:8080	# proxy server for HTTP access
#NoProxy=http://.*my.domain/	# URL regex not to use Proxy server
#UsePwAgent=yes			# use password agent
#PwAgentPort=6543		# Port to connect pwagent with TCP/IP
				# (Insecure for multi-user system!)
				# 0 to use UNIX domain socket (more secure)

# be careful on security if you wish to use PwFiles!
UsePwFiles=yes			# use password files
PwFiles=password		# password files (relative to ~/.im/)

## imput specific
FccDir=$MailDir		# directory for FCC folders
QueueDir=queue			# directory for to store messages to be sent
#MsgIdDomain=${HOST}		# if you want to use FQDN of dispatching host
#ObeyMTAdomain=yes		# do not append domainpart to addresses by imput
#NoMsgIdForNews=yes		# do not insert Message-Id: when posting as news
#NewsGMTdate=yes		# use GMT for Date: when posting as news
#UseLines=yes			# generate Lines header line
#JPheader=yes			# encode ISO-2022-JP with RFC2047
#Defcode=EUC			# default code in case no way to judge SJIS/EUCj
#JPconv=yes			# convert SJIS/EUCj to ISO-2022-JP
#NoHdrFolding=yes		# do not fold long header line when encoding
#HdrQEncoding=yes		# use Q-encoding to encode ISO-2022-JP
#NameInComment=yes		# yes: (Full Name) Addr, no: Full Name 
#Lines=3000			# unit to split a message to partial
#Annotate=yes			# annotate on parent messages (MsgDB required)

# Common operational settings
#Help=no
#Quiet=no
#Noharm=no
#Verbose=no
#Debug=


#case mew
#FromDomain=mew.org
#Assoc=+inbox=pop/POP:manpou@mxp.mesh.ne.jp;+inbox=pop/POP:manpou@fine.ocn.ne.jp

#case queue
#JustQueuing=yes  <----  コメント
#Queuing=yes      <----  コメント

#case news
#Assoc=	+inbox=nntp:fj.mail.system.sendmail;\
#	+inbox=nntp:fj.mail
#Count=10

#case default
# -- global setting again --


------------ ~/.xemacs.el の Mew 関連部分抜粋 ----------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mew 1.94  -  Messaging in the Emacs World
;;   メールリーダー Mew
;;   M-x mew で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)

;; 複数プロバイダーのアカウントからメールを取得するため.例えば,
;; Password (pop/pop:manpou@fine.ocn.ne.jp): password
;; とパスワードを入力すれば切り替わる.
;;(setq mew-use-imget-assoc t)

;; XEmacs 版 Mew のアイコンのありか
(setq mew-icon-directory "/usr/lib/xemacs/site-packages/etc/mew")

;; 返信時の引用フォーマットの指定
(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
;;(setq mew-cite-prefix-function 'mew-cite-prefix-username)

;; 起動時にメールを取りにいかないようにする
;; サマリー画面にて i でメール取得が始まります。
(setq mew-auto-get nil)

;; From: に余計なもの (localhost 名等) が付いたりする場合は,
;; xxxx の部分にドメイン名を指定します
(setq mew-mail-domain-list '("mxp.mesh.ne.jp"))

;; From ヘッダの "" で囲まれた文字も MIME デコードする
;(setq mew-decode-quoted t)

;; スレッド表示を行う
(setq mew-prog-imls-arg-list '("--thread=yes"))

;; 自分に Bcc をつけない
;(setq mew-mail-address-list
;    '("あなたのメールアドレス" "他にもあれば"))

;; Reply-To ヘッダがある場合そのアドレスにだけ返信
(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 "~/Mail/teikei")
         (goto-char p)))))

;; 引用(返信)時でも定型文を一番上に挿入する
;(add-hook 'mew-before-cite-hook
;   (lambda() (goto-char (point-max))))

;; 印刷コマンド設定
(setq mew-print-command-format "mpage -2 -P")
(defun mew-print-region (begin end)
     (interactive "r")
     (shell-command-on-region begin end mew-print-command-format))

(defun mew-print-buffer ()
    (interactive)
    (mew-print-region (point-min) (point-max)))
(setq mew-print-function (function mew-print-buffer))

;;; URL をマウス中クリックでブラウザ起動する様にする
(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)
)))

;;; らくらく整理整頓
;;; マッチするヘッダ、その値、リファイル先のフォルダを書いておくと、
;;; M-o → x で簡単に振り分けができます
(setq mew-refile-guess-alist
  '(("Reply-To:"
;      ("vine-users@" . "+ml/vine-users")
       ("nisizawa@" . "+mag2")
       ("wmag2re@" . "+mag2")
       ("FreeBSD-users-jp@" . "+bsd")
       ("redhat@" . "+redhat")
       ("first@" . "+from/first")
       ("kdc@" . "+kdc")		
       ("k-pup@" . "+kpup")	
       ("admin-talk@" . "+from/owner-kdc")
       ("semi-gnus-ja@" . "+gnus")
       ("linux-users@" . "+luky")
;      ("vine-users@" . "+ml/vine-users")

;      ("foobar-ml@" . "+ml/FooBarML")
    )
    ("From:"
;      ("shaolin@rins" . "+from/shaolin")
;      ("hoge@foo.bar" . "+from/hoge")
       ("vine-users@" . "+vine")
       ("biztech@" . "+from/biztech")
       ("yuji@list" . "+from/owner-kdc")
    )
    ("To:"
       ("FreeBSD-beginners-jp@" . "+bsdb")
       ("vine-users@" . "+vine")
       ("FreeBSD-kyushu@" . "+bsd")
       ("netnavi@" . "+from/biztech")
       ("linux-users@" . "+luky")
    )
))

;; Toolbarに追加
(setq toolbar-mail-commands-alist (quote ((mew . mew) )))
(setq toolbar-mail-reader (quote mew))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Wanderlust 2.2.12
;;   IMAP にも対応したメール/ニュースリーダ
;;   これ以外の設定は ~/.wl で行います
;;   ~/.wl のサンプルは /usr/doc/Wanderlust-xemacs-2.2.12 以下にあります
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl" "Write draft with Wanderlust." t)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; X-Face
;;   Mew や Wanderlust などで、X-Face 画像つきのメッセージを表示します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(when (and window-system (module-installed-p 'x-face))
   (autoload 'x-face-xmas-mew-display-x-face "x-face" nil t)
   (setq wl-highlight-x-face-func
      'x-face-xmas-mew-display-x-face)
   (setq x-face-add-x-face-version-header t))



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