[mew-dist 28601] Re: .mew.elの編集を教えてください
TETSUYA Tanaka
nogi0077 at example.com
2008年 8月 24日 (日) 11:55:53 JST
From: lawrence <lawrence999vz at example.com>
Subject: [mew-dist 28599] .mew.elの編集を教えてください
Date: Sun, 24 Aug 2008 10:37:47 +0900
Message-ID: <20080824103747.57a64fae.lawrence999vz at example.com>
(setq mew-name "T.E.Lawrence") ;; (user-full-name)
(setq mew-user "lawrence") ;; (user-login-name)
はlawrenceをlawrence999vzに
(setq mew-mail-domain "ybb.ne.jp")
(setq mew-pop-user "lawrence68uk") ;; (user-login-name)
(setq mew-pop-server "ybbpop.mail.yahoo.co.jp") ;; if not localhost
(setq mew-pop-auth ')
は
;(setq mew-pop-auth ')
or(setq mew-pop-auth 'pass)
としてください．
;;; End 以下は何でしょう，削除してください．
.emacs.el
に
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
;; Optional setup (Read Mail menu for Emacs 21):
(if (boundp 'read-mail-command)
(setq read-mail-command 'mew))
;; Optional setup (e.g. C-xm for sending a message):
(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))
vine linux では確か ,emacs.elにMewのドラフト設定が記述してあるのでは．
設定部分を見てみてください．
.emacs.elに値のないシンボルにたいするエラーがでています．こちらのほ
うもチェックが必要です．
.emacs.elに(setq debug-on-error t)として C-x C-bで調べてみましょう．
>An error has occurred while loading `~/.emacs.el':
>Symbol's value as variable is void: +from/hoge
これで試すときは，
> (setq mew-config-alist
> `(
> ("ybb"
> ("pop-user" "lawrence68uk")
> ("pop-server" "ybbpop.mail.yahoo.co.jp")
> ("pop-auth" pass)
> ("smtp-server" "ybbsmtp.mail.yahoo.co.jp")
> ("smtp-user" "lawrence68uk")
> ("smtp-port" "submission")
> )
> ))
> (setq mew-case "ybb")tq mew-debug t)
は;してください．
> 田中様
>
> 今度は、mew.elを送信いたします。小生のアドレスはlawrence999vz at example.comですが
> 記入する場所が有りません。また、IDはlawrence68ukですので、アドレスの頭の部分と
> 異なります。パスワードも無いようです。御検証よろしくお願いいたします。
>
>
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;;;
> ;;; A sample file of .mew.el
> ;;;
> ;;; Modified for Vine Linux <KOBAYASHI R. Taizo>
> ;;;
> ;
> ; This is just a sample. You should customize as you like...
> ;
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;; Mew 3.1 - Messaging in the Emacs World
> ;; メールリーダー Mew
> ;; M-x mew で起動します
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>
> ;;
> ;; メールサーバの設定
> ;;
>
> ;; POP サーバの設定
>
> (setq mew-name "T.E.Lawrence") ;; (user-full-name)
> (setq mew-user "lawrence") ;; (user-login-name)
> (setq mew-mail-domain "ybb.ne.jp")
> (setq mew-pop-user "lawrence68uk") ;; (user-login-name)
> (setq mew-pop-server "ybbpop.mail.yahoo.co.jp") ;; if not localhost
> ;; (setq mew-pop-ssh-server "ybbpop.mail.yahoo.co.jp") ;; if not localhost
> ;; (setq mew-icon-directory "icon directory") ;; if using XEmacs/Emacs 21
>
> ;; POP の認証方式の設定
> ;; APOP は 'apop を、POP は 'pass (USER/PASS (生パスワード)) に設定
> (setq mew-pop-auth ')
>
> ;; POP サーバからメッセージを取得後、
> ;; POP サーバにあるメッセージを削除するなら t
> ;; 残すなら nil に設定
> ;; N日残すなら N に設定
> (setq mew-pop-delete 7)
>
> ;; POP サーバからメッセージを取得するサイズの設定
> (setq mew-pop-size (* 54 1024)) ;; 4K hdr + 50K bdy
>
> ;; SMTP サーバの設定
> (setq mew-smtp-server "ybbsmtp.mail.yahoo.co.jp") ;; if not localhost
>
> ;;; POP 以外でメールにアクセスするには以下を設定
>
> ;; POP の代わりにローカルの "mbox" か "maildir" を使う場合
> ;; もし /path/to/mbox が file ならば "mbox"、
> ;; directory ならば "maildir" です。
> ;(setq mew-mailbox-type 'mbox)
> ;(setq mew-mbox-command "incm")
> ;(setq mew-mbox-command-arg "-d /path/to/mbox")
>
> ;; IMAP の設定
> ;(setq mew-proto "%")
> ;; (setq mew-imap-user "your IMAP account") ;; (user-login-name)
> ;(setq mew-imap-server "your IMAP server") ;; if not localhost
>
> ;; NNTP の設定
> ;; (setq mew-nntp-user "your NNTP account")
> ;(setq mew-nntp-server "your NNTP server")
>
> ;; Optional setup (Read Mail menu for Emacs 21):
> (if (boundp 'read-mail-command)
> (setq read-mail-command 'mew))
>
> ;; Optional setup (e.g. C-xm for sending a message):
> ;(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))
>
> ;; MIME解析するサイズの設定
> (setq mew-file-max-size (* 2048 1024)) ;; 2M MIME analysis
>
> ;; 返信時の引用フォーマットの指定
> (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)
>
> ;; 起動時にメールを取りにいかないようにする
> (setq mew-auto-get nil)
>
> ;; From: に余計なもの (localhost 名等) が付いたりする場合は，
> ;; xxxx の部分にドメイン名を指定します
> ;(setq mew-mail-domain-list '("xxxx.xxxx.xxxx.xxxx"))
>
> ;; From ヘッダの "" で囲まれた文字も MIME デコードする
> ;(setq mew-decode-quoted t)
>
> ;; スレッド表示を行う
> ;(setq mew-prog-imls-arg-list '("--thread=yes"))
>
> ;; 自分に Bcc をつけない
> ;(setq mew-mail-address-list
> ; '("あなたのメールアドレス" "他にもあれば"))
>
> ;; C-u で返信するときに Reply-To ヘッダがある場合
> ;; そのアドレスにだけ返信
> ;(setq mew-reply-sender-alist
> ; '(("Reply-To:"
> ; ("To:" "Reply-To:"))
> ; (t
> ; ("To:" "From:"))))
>
> ;; Reply-To ヘッダがある場合そのアドレスにだけ返信
> ;(setq mew-reply-all-alist
> ; '((("Followup-To:" "poster")
> ; ("To:" "From:"))
> ; ("Followup-To:"
> ; ("Newsgroups:" "Followup-To:"))
> ; ("Newsgroups:"
> ; ("Newsgroups:" "Newsgroups:"))
> ; ("Reply-To:"
> ; ("To:" "Reply-To:"))
> ; (t
> ; ("To:" "From:")
> ; ("Cc:" "To:" "Cc:" "Apparently-To:"))))
>
> ;; ドラフトを用意する時に定型文を自動的に挿入する
> ;(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 をマウス中クリックでブラウザ起動する様にする
> (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)
> )))
>
> ;;; ブラウザに Firefox を使用する
>
> (setq mew-prog-text/html-ext "firefox")
>
> ;(define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)
> (setq browse-url-netscape-program "firefox")
> (setq thing-at-point-url-path-regexp "[~/A-Za-z0-9---_.${}#%,:?=&@]+")
>
> ;;; ブラウザに w3m を使用する
> ;(setq mew-mime-multipart-alternative-list '("Text/Html" "Text/Plain" "*."))
>
> ;(condition-case nil
> ; (require 'mew-w3m)
> ; (file-error nil))
> ;(setq w3m-type 'w3m-m17n)
>
>
> ;;; らくらく整理整頓
> ;;; マッチするヘッダ、その値、リファイル先のフォルダを書いておくと、
> ;;; 簡単に振り分けができます
>
> ;(setq mew-refile-guess-alist
> ; '(("Reply-To:"
> ; ("vine-users@" . "+ml/vine-users")
> ; ("foobar-ml@" . "+ml/FooBarML")
> ; )
> ; ("From:"
> ; ("shaolin at example.com" . "+from/shaolin")
> ; ("hoge at example.com" . etq mew-debug t)
> (setq mew-config-alist
> `(
> ("ybb"
> ("pop-user" "lawrence68uk")
> ("pop-server" "ybbpop.mail.yahoo.co.jp")
> ("pop-auth" pass)
> ("smtp-server" "ybbsmtp.mail.yahoo.co.jp")
> ("smtp-user" "lawrence68uk")
> ("smtp-port" "submission")
> )
> ))
> (setq mew-case "ybb")tq mew-debug t)
>
> ; )
> ;))
>
> ;;;
> ;;; End
> P サーバからメッセージを取得するサイズの設定
> (setq mew-pop-size (* 54 1024)) ;; 4K hdr + 50K bdy
>
> ;; SMTP サーバの設定
> (setq mew-smtp-server "ybbsmtp.mail.yahoo.co.jp") ;; if not localhost
>
> ;;; POP 以外でメールにアクセスするには以下を設定
>
> 41,1 4%
>
>
>
>
Mew-dist メーリングリストの案内