[mew-dist 20156] Re:Re: 送られて来たメールの本文が表示できません

[ducal at example.com]

−−−−−

早速のレスありがとうございます

−−−−−


> ヘッダのFrom:行がまともじゃないです。
申し訳有りません 自宅のサーバー経由で出してしまいました・・・
		
> どのようにインストールしたのか

インストールは極普通にしていると思います



> ~/.emacs, ~/.mewがどの設定されているのかを明らかにする
と~/.emacs.el から


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mew 1.94  -  Messaging in the Emacs World
;;   メールリーダー Mew
;;   M-x mew で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mewの起動
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-mail-domain-list '(""))
(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-letter
      'mew-draft-kill
      'mew-send-hook))

;; subject に日本語が入力できないのを回避する
(setq mew-use-overlay-keymap nil)

;; 返信時の引用フォーマットの指定
(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)
;; 引用記号の変更  " > " の中を変更する
(defvar mew-cite-prefix "> ")
(setq mew-addrbook-for-cite-label 'nickname)
(setq mew-addrbook-for-cite-prefix 'nickname)

;; Mew 独自の引用様式
(setq mail-citation-hook t)

;; 起動時にメールを取りにいかないようにする
(setq mew-auto-get nil)

;; いつも Emacs のフレーム全体で Mew を使いたい人は、以下の設定をして下さい。
(setq mew-window-use-full t)

;Summary モードの SPC によって、カーソルの移動方向
;同様に、強いマークを付けた後カーソルの移動方向
;`up'     上のメッセージを表示する。
;`down'   下のメッセージを表示する。
;`ext'   読み進めている方向の次のメッセージを表示する。[ defaults ]
;`stop'  次は表示しない。
(setq mew-summary-show-direction 'next)
(setq nmew-summary-mark-direction 'next)

;; 引用記号の変更  " > " の中を変更する
(defvar mew-cite-prefix "> ")

;; Mew 独自の引用様式を使いたいなら、以下の行を ".emacs" に加えて下さい。
(setq mail-citation-hook t)

;; 通常は添付したメッセージの全体が転送されます。もし、ヘッダの一部を削りた
;; い場合は、`mew-field-delete-for-forwarding' を定義して下さい。以下に 
;; "Received:" と "Return-Path:" を転送時に削るための設定例を示します。
(setq mew-field-delete-for-forwarding '("Received:" "Return-Path:"))

;; 毎回 Fcc: でバックアップを残す
(setq mew-fcc "+backup")

;; 起動時にメールを取りにいかない
(setq mew-auto-get nil)

;; From:行を変更する
(setq mew-from "duca at example.com")

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

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

;; 自分に Bcc をつけない
(setq mew-mail-address-list
    '("duca at example.com"))

;; 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)
	 ))))

;; Simply load this file and add followings in your ~/.mew file.
;;
 (require 'mew-w3m)
 (setq mew-prog-html '(mew-mime-text/html-w3m nil nil))
;;
;; And you can use keymap of w3m-mode as mew-w3m-minor-mode.
;; To activate this feaeture, add followings also: 
;;
 (setq mew-use-w3m-minor-mode t)
 (add-hook 'mew-message-hook 'mew-w3m-minor-mode-setter)

;;; URL をマウス中クリックでブラウザ起動する様にする
(autoload 'browse-url-at-mouse "w3m-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)
)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ここまで

~/.mew は置いていません


ちなみにコンソールではちゃんと本文も表示されています

いじりすぎなのですかね？

ちなみにリターンパスは気にしないでください