2008年8月24日

[mew-dist 28599].mew.elの編集を教えてください

田中様

今度は、mew.elを送信いたします。小生のアドレスはlawrence999vz@xxxxxですが
記入する場所が有りません。また、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@xxxxx" . "+from/shaolin")
; ("hoge@xxxxx" . 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%


投稿者 xml-rpc : 2008年8月24日 10:37
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(1)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/76544
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。