[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Crash mew + emacs-w3m + xemacs
- From: Yasuharu YAMADA <yasuharu@xxxxxxxxx>
- Date: Fri, 14 Mar 2003 21:31:20 +0900 (JST)
- X-ml-name: emacs-w3m
- X-mail-count: 04771
山田康晴と申します。
報告だけとなりますが、よろしくお願い致します。
下記の環境で使用しています。
mew-3.2, XEmacs 21.4.6, emacs-w3m-1.3.3, w3m-0.4-m17n-20030224
ある宣伝メールを受信し、mew にて読もうとした所、
XEmacs ごと Crash してしまいました。
Crash するので (setq debug-on-error t) や (setq mew-debug t) も
使えない状況です。
宣伝メールなので余計な物がいろいろ添付されていましたので
それらを取り除き、簡略化したものを下記に示します。
# もちろんこのメールでも XEmacs ごと Crash します
あと、わかっているのは、下記メールで Content-Type: text/html を
Content-Type: text/plain にすると Crash しません。
# そのため w3m 関係に比重が多そうなので
# emacs-w3m を To に、mew-dist を Cc にしています
巻末に使用している .mew.el を添付しておきます。
よろしくお願い致します。
+++++++++++ Crash するメール：ここから +++++++++++
From: <admin@adult.net>
To: audience@mx0.airnet.ne.jp
Subject: =?iso-2022-jp?B?GyRCNVckNyRWJGohKjg1NSQhKRsoQg==?=
Date: Fri, 14 Mar 2003 08:39:39 +0200
MIME-Version: 1.0
Content-Type: text/html;
charset="iso-2022-jp"
Content-Transfer-Encoding: quoted-printable
=81=9C=83=82=83=8D=8C=A9=82=A6=83A=83_=83=8B=83g=89=E6=91=9C=81I=81I=81E=82=A8=82=B7=82=B7=82=DF=83=8A=83=93=83N=81E=93=8A=8De=8Cf=8E=A6=94=C2=8F=D0=89=EE=83y=81[=83W=82=CD=82=B1=82=BF=82=E7
+++++++++++ Crash するメール：ここまで +++++++++++
+++++++++++ .mew.el +++++++++++
;;; -*- Modex: Emacs-Lisp; Coding: iso-2022-jp -*-
;;;
;;; Mew-2.0 or later
;;;
;; Mew Debug
;(setq mew-debug t)
;;起動時にメールを取りにいかない
;(setq mew-auto-get nil)
;;起動を早く
(setq mew-use-folders-file-p t)
;; 引用ラベルの From: の部分 (Draft mode)
(setq mew-addrbook-for-cite-label 'name)
;; 引用をニックネームで (Draft mode)
(setq mew-addrbook-for-cite-prefix 'nickname)
;; 送信者をフルネームで (Summary mode)
(setq mew-addrbook-for-summary 'name)
;; replyto
(setq mew-reply-sender-alist
'(("Reply-To:"
("To:" "Reply-To:"))
(t
("To:" "From:"))))
;; 毎回 Fcc: でバックアップ
(setq mew-fcc "+backup")
;; いつも mule ウインドウ全体で Mew を使いたい
(setq mew-window-use-full t)
;; "の展開
(setq mew-decode-quoted t)
;; space で必ず下のメッセージを
(setq mew-summary-show-direction 'down)
(setq mew-summary-mark-direction 'down)
;;; POP で取得するメイルのサイズを 54KB に制限解除
(setq mew-pop-size 0)
;; refile-view
(and (locate-library "mew-refile-view") (require 'mew-refile-view)
(define-key mew-summary-mode-map "l" 'mew-refile-view))
;; mew-fake
;(eval-after-load "mew" '(load "~/.xemacs/mew-fake-cdp.el"))
;;;???
;(defvar mew-cs-dummy 'binary)
;;転送時、添付ファイルのヘッダの一部を削る
(setq mew-field-delete-for-forwarding
'("Received:" "Return-Path:" "Delivered-To:" "Precedence:"
"Lines:" "Mime-Version:" "Content-Type:" "Importance:"
"Content-Transfer-Encoding:" "Reply-To:" "Mailing-List:"
"In-Reply-To:" "Errors-To:" "Sender:"
"List-*" "X-*"))
;; 引用符 ;;
(setq mew-cite-fields '("Date:" "Subject:" "From:" "Date:" "Subject:" "From:"))
(setq mew-cite-format "=====\n %s に戴いた\n 「%s」について書かれた\n ”%s”さんの手紙より:\n=====\n=====\n Date : %s\nSubject: %s\n%s wrote.....\n=====\n")
(setq mew-cite-prefix-function 'mew-cite-prefix-username)
;;; Mewでシグネチャを対話的に選択する設定
(add-hook 'mew-draft-mode-hook
(function (lambda ()
(define-key mew-draft-mode-map "\C-c\C-i" 'insert-signature-eref))))
;;; 毎回同じ定型文書
(add-hook 'mew-draft-mode-newdraft-hook
(function
(lambda ()
(let ((p (point)))
(goto-char (point-max))
(insert-file "~/mail/.ins")
(goto-char p)))))
;;;
;;; Scan Format
;;;
;(setq mew-scan-form-size-unit '("" "k")) ;; '("" "k" "M" "G" "T")
;(setq mew-scan-form-size-0k t) ; nil
;(setq mew-scan-form-size-huge nil) ; t
;(setq mew-scan-form-list-string-type 'regex)
;(setq mew-scan-form-list-list-type 'regex) ; 'recursive
(setq mew-scan-form '(type " " (4 year) "/" (5 date) " " (20 from) " " t(33 subj)))
;;;
;;; PGP (GnuPG)
(setq mew-prog-pgp "gpg")
(setq mew-prog-gpg "gpg-emacs")
;;;
;;; Thread
;;;
(setq mew-use-fancy-thread t) ;; nil
(setq mew-fancy-thread-indent-strings
["├" "└" "│" " "]) ;; [" +" " +" " |" " "]
(setq mew-use-thread-separator nil)
(setq mew-thread-separator "--")
;;;
;;; User Config
;;;
;(setq mew-pop-auth 'pass)
(setq mew-config-alist
'(
("default"
("name" . "Yasuharu YAMADA")
("user" . "yasuharu")
("mail-domain" . "hogehoge")
("smtp-server" . "hogehoge")
("smtp-helo-domain" . "hogehoge")
("mailbox-type" . mbox)
("mbox-command" . "/usr/local/bin/incm")
("mbox-command-arg" . "-d /home/yasuharu/.maildir")
)
))
(setq mew-print-command-format
"/usr/bin/a2ps --center-title=mail --sides=tumble |lpr -h -Plp")
(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))
;;;
;;; mew with w3m.el
;;;
(setq mew-prog-text/html-ext "w3m-m17n")
(setq mew-mime-multipart-alternative-list
'("Text/Html" "Text/Plain" "*."))
(condition-case nil
(require 'mew-w3m)
(file-error nil))
;;;
;;; another image view
;;;
(setq mew-prog-image/*-ext "display")
;;;
;;; grep- mg
;;;
(setq mew-prog-grep "mg")
(setq mew-prog-grep-opts '("-x" "&mime" "-j" "jis" "-l" "-i" "-e"))
(setq mew-prog-vgrep mew-prog-grep)
(setq mew-prog-vgrep-opts mew-prog-grep-opts)
;;;
;;; Mew 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))
;;;
;;; face color
;;;
(setq mew-theme-file "~/.xemacs/mew.theme.el")
;;;
;;; etc
;;;
;(setq mew-regex-folder-candidate "^[^.]") ; "[^.0-9]"
;(setq mew-charset-m17n "iso-2022-jp-2") ; "utf-8"
;(setq mew-use-8bit nil)
;(setq mew-touch-folder-check-enabled-p nil) ; t
;;;
;;; colors
;;;
(setq mew-use-highlight-cursor-line t)
(setq mew-use-highlight-mouse-line t)
(setq mew-use-highlight-mark t)
(setq mew-use-highlight-header t)
(setq mew-use-highlight-url t)
(setq mew-use-highlight-x-face t)
(setq mew-use-highlight-body t)
(setq mew-highlight-body-max-size 100000)
;;;
;;; c-sigの設定
;;;
(autoload 'add-signature "c-sig" "c-sig" t)
(autoload 'delete-signature "c-sig" "c-sig" t)
;; 対話的に選択する．
(autoload 'insert-signature-eref "c-sig" "c-sig" t)
;; データベースからの検索結果に従って自動的に挿入する．
;(autoload 'insert-signature-automatically "c-sig" "c-sig" t)
;; ランダムに挿入する．
;(autoload 'insert-signature-randomly "c-sig" "c-sig" t)
+++++++++++ .mew.el +++++++++++