🚀 go-pugleaf

はじめまして、竹原@remus.dti と申します。

普段、自宅でメールの送受信に Mule for win32 V.122 付属の
mail-mode,rmail-modeを使用しております。これを会社でも使おうと思って試
した(自分宛てに送信した)ところ、Date:欄とMessage-Id:欄が無いことに気づ
きました。

“おかしいな、他のメーラはどうだ?”とBecky! Internet Mail や Netscape
Messenger などで試すと、こちらは問題なく付いています。

“単に表示されていないだけかも”とも思ってメールサーバにログインしてス
プールに入っている状態のファイルを読んだところ、これにも付いていません。

原因をずっと調べていると、会社のメールサーバソフトにqmailを使用してお
り、ここでDate:とMessage-Id:欄を付けていないためとわかりました。

しかし、qmailのマニュアルやqmailのWebsiteを見てみると、それらはローカ
ル(Mule)でつけるべきだ、と書いてありました。実際、他のメーラは自分で付
けています。

そこで質問なのですが、Muleのmail-modeにおいて、Mule側でDate:と
Message-Id:欄を付けることは可能なのでしょうか。それとも、無理なのでしょ
うか。 .emacsファイルをいろいろいじってみたり、smtpmail.elを調べたりし
たのですが、どこで設定したらよいものかわからず、途方にくれております。
どなたか、解決のヒントでもいいから教えていただけないでしょうか、よろし
くお願い致します。

最後に私が試した.emacsファイルと受信したrmailファイルを以下に添付しま
す。なお、メールアドレスは一部をfoobaaという単語に置換しています。

---.emacs ここから---
;;; -*- mode: lisp-interaction; syntax: elisp -*-
(put 'eval-expression 'disabled nil)
(load "autoinsert.el")
(setq Info-directory-list (list "c:/usr/local/mule/info" "c:/usr/local/info"))
;;;
;;; Mail configration
;;;

(setq smtpmail-default-smtp-server "mail" ; smtp
;      smtpmail-local-domain        "foobaa.co.jp"      ; mail-address
      smtpmail-code-conv-from      nil
      user-full-name               "Makoto TAKEHARA"
      user-mail-address            "take@foobaa.co.jp"
      mail-use-rfc822              t
      mail-yank-prefix             ">"
      smtp-debug-info              t
      rmail-default-rmail-file (expand-file-name "Mail/RMAIL")
      )
(setq mail-archive-file-name "~/Mail/sentmail")
(setq rmail-file-name "~/Mail/RMAIL")
(add-hook 'mail-mode-hook
	  '(lambda ()
	     (require 'mule-tcp)
	     (require 'smtpmail)
	     (setq user-full-name "Makoto TAKEHARA")
	     (setq mail-from-style 'angles)
	     (auto-fill-mode 1)
	     (setq fill-column 72)  
	     (setq tab-width 4)
	     ))

(setq send-mail-function 'smtpmail-send-it)
(define-service-coding-system 110 nil *junet*unix)
(define-service-coding-system 25 nil *junet*unix)


;; movemail.exeのオプション設定
;; POP3 mail-read
(setenv "MAILHOST" "mail")
(setenv "MOVEMAIL" "-p")
(setq rmail-primary-inbox-list '("po:take")
      rmail-pop-password-required t)
---.emacs ここまで---
---Ramil ここから---
BABYL OPTIONS: -*- rmail -*-
Version: 5
Labels:
Note:   This is the header of an rmail file.
Note:   If you are seeing it in rmail,
Note:    it means the file has no messages in it.

1,,
Return-Path: <take@foobaa.co.jp>
Delivered-To: take@foobaa.co.jp
Received: (qmail 9111 invoked from network); 8 Mar 1999 17:55:58 +0900
Received: from unknown (HELO truth.foobaa.co.jp) (192.168.1.66)
  by ns.foobaa.co.jp with SMTP; 8 Mar 1999 17:55:58 +0900
From: take <take@foobaa.co.jp>
To: take@foobaa.co.jp
Subject: Mail Send Test

*** EOOH ***
Return-Path: <take@foobaa.co.jp>
Delivered-To: take@foobaa.co.jp
From: take <take@foobaa.co.jp>
To: take@foobaa.co.jp
Subject: Mail Send Test


This is mail send test please ignore

---Ramil ここまで---