2011年3月17日

[mew-dist 29355] Re:宛先を匿名にしたメッセージの送信

早間です。
神戸さん、鯉江さん ありがとうございます。
>
> いまだにCVS版をつかっていますが、手元ではこうなりました:
>

私もCVS版を使用しています。確認しましたが最新版です。
ライブラリかアプリケーションの問題でしょうか。

以前、make jinfo で漢字が読めなかったのですがLANG=ja_JP.UTF8 に
変更したところ読めるようになりました。
.session を見たところ LANG=ja_JP.utf8 と utf8 が小文字だったので
大文字に直して ja_JP.UTF8 にしましたが表題の動作には影響与えません
でした。

xorg-86 afterstep emacs-23-2 で mew を使用しています。

環境は次のとおりです。
xorg-drivers-1.9
xorg-server-1.9.4
xorg-x11-7.4
afterstep-2.2.9
emacs-23.2
atokx3
mew-6.3.50 git 版

.emacs や .mew の内容は昔からの設定を様々引き継いでいますので今は
使用していない設定も残っています。
(1) 影響のある環境変数
(2) 影響のあるコマンド・ライブラリ
(3) 影響のあるemacs mew の設定
当該動作に影響を与える設定があれば教えていただければ調べてみます。
よろしくお願いします。

使用中の .mew は次のとおりです。
概略 5 KByte ですが、mew-config-alist(50 設定)と
mew-refile-guess-alistを加えると 65 KByte になります。
---------------------------- ここから ---------------------------
(setq mew-pop-size (* 54 1024000))
(setq mew-file-max-size 10000000)
(setq mew-prog-grep-opts '("-j" "jis" "-l" "-e" "-x" "&mime"))

(setq mew-summary-form-from-me-prefix nil) ;;自分が出したメールも自分のアドレスを表示する
(setq mew-use-overlay-keymap nil)
(setq mew-config-alist

)
(setq mew-charset-m17n "iso-2022-jp-2")
(setq mew-ask-charset '("us-ascii" "iso-2022-jp"))

;;x;;(setq mew-use-folders-file-p t)
(setq mew-summary-form-mark-review nil)
(setq mew-summary-form-mark-delete nil) ;; t
(setq mew-summary-form-mark-review nil)
(setq mew-summary-form-size-0k t) ;; nil
(setq mew-summary-form-list-string-type 'regex)
(setq mew-summary-form-list-list-type 'regex) ;; 'recursive
(defun demangle-subject ()
(let ((count 0))
(save-excursion
(beginning-of-buffer)
(re-search-forward "^Subject: " (point-max) t)
; eliminate "[mailing-list:count] "
(save-excursion
(while (re-search-forward "\\[[-a-zA-Z0-9.]+[ :][0-9]+\\] *"
(save-excursion (end-of-line) (point)) t)
(replace-match "")))

(while (looking-at "R[Ee]\\(\\^[0-9]+\\|\\[[0-9]+\\]\\)*: *")
(replace-match "")
(setq count (+ count 1)))
(and (> count 0) (insert mew-reply-string)))))

(add-hook 'mew-draft-mode-hook 'demangle-subject)

(setq mew-use-overlay-keymap nil)
(setq mew-use-cached-passwd t)
(setq mew-passwd-timer-unit 1000)
(setq mew-passwd-reset-timer nil)

(setq mew-use-cursor-mark t)

(setq mew-header-max-length 1000)
(setq mew-prog-pgp "gpg")
(setq mew-refile-guess-alist
'(("To:"

)
("Cc:"

)
("From:"

)
)
)
(add-hook 'mew-draft-mode-hook
'(lambda ()
(auto-fill-mode 1)
(setq fill-column 66
tab-width 4)))

(setq mew-use-fancy-highlight-body t)

(add-hook 'mew-send-hook
(function
(lambda ()
(goto-char (point-min))
(mew-encode-canonicalize-address
(mew-draft-resent-p (mew-header-end)))
(end-of-line))))

(condition-case nil (require 'mew-w3m) (file-error nil))
(setq mew-mime-multipart-alternative-list
'("Text/Html" "Text/Plain" ".*"))

(setq mew-replyto-to-list '("Mail-Followup-To:" "Reply-To:"))
(setq mew-replyto-cc-list nil)

(setq mew-reply-sender-alist
'(("Reply-To:"
("To:" "Reply-To:" "Mail-Followup-To:" "Delivered-To:"))
(t
("To:" "From:"))))
;; ("To:" "Reply-To:" "Mail-Followup-To:" "Delivered-To:"))
(setq mew-reply-all-alist
'((("Followup-To:" "poster")
("To:" "From:"))
("Followup-To:"
("Newsgroups:" "Followup-To:"))
("Newsgroups:"
("Newsgroups:" "Newsgroups:"))
("Reply-To:"
("To:" "Reply-To:" "To:" "Apparently-To:")
("Cc:" "Cc:"))
(t
("To:" "From:" "To:" "Apparently-To:")
("Cc:" "Cc:"))))
(setq mew-reply-sender-alist
'((t
("To:" "From:"))))
(setq mew-reply-fromme-alist
'((t
("To:" "To:" "Apparently-To:")
("Cc:" "Cc:"))))

(setq mew-spam: "Received-SPF:")
(defun mew-spf-check (val)
(let ((case-fold-serach t))
(if (string-match "fail" val) ?D)))
(defun mew-spam-assassin (val)
(let ((case-fold-search t))
(if (string-match "yes" val) ?D)))

(setq mew-inbox-action-alist
;; '(("X-Spam-Flag:" mew-spam-assassin))
'(("Authentication-Results:" mew-spf-check))
;; '(("Received-SPF:" mew-spf-check))
)

(defun my-browse-url-at-mouse (event)
(interactive "e")
(let ((buf (current-buffer)))
(browse-url-at-mouse event)
(pop-to-buffer buf)))

(define-key mew-message-mode-map [mouse-2] 'my-browse-url-at-mouse)
(setq mew-my-domains '("src.co.jp" "hayama.jp"))

;;; mouse の中ボタンで,URL を Netscape で表示
(setq browse-url-browser-function 'browse-url-netscape)
(setq browse-url-netscape-program "firefox")
(add-hook 'mew-message-mode-hook
(function
(lambda ()
(local-set-key [mouse-2] 'browse-url-at-mouse))))

(defun mew-draft-toggle-privacy-method ()
"Toggle privacy method s/mime or pgp/mime."
(interactive )
(if (equal mew-draft-privacy-method 'smime)
(setq mew-protect-privacy-always-type 'pgp-signature
mew-draft-privacy-method 'pgp )
(setq mew-protect-privacy-always-type 'smime-signature
mew-draft-privacy-method 'smime)
)
(message "Set protect-privacy --> %s" mew-draft-privacy-method)
)
(define-key mew-draft-body-map "\C-c\C-p\C-t" 'mew-draft-toggle-privacy-method)
(setq mew-cite-fields nil)
(setq mew-cite-format nil)
(setq mew-cite-prefix "> ")

(setq mew-pgp-keyserver-url-template "subkeys.pgp.net pool.sks-keyservers.net")
(setq mew-pgp-pks-servers
'(("openpksd.org" t)
("subkeys.pgp.net" t)
(" pool.sks-keyservers.net" t)
))
(add-hook 'mew-message-mode-hook
(lambda ()
(setq cursor-in-non-selected-windows nil)))

(setq mew-visit-inbox-after-setting-case t)
(setq mew-auto-get nil)

(defvar mew-prog-pdf 'acroread)
(progn
(setq mew-prog-pdf '("acroread" ("--geometry" "+0+0") t))
)
---------------------------- ここまで ---------------------------

-- 早間


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




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