🚀 go-pugleaf

>>>>> Message-Id: <u90d686kc.fsf@hv08.hv.epson.co.jp> で、
>>>>> "市川" == ichikawa (市川達哉) @ hv.epson.co.jp さま曰く...

市川>   まず、Message-Id: は Mail には必ずしも必要でないのですが…

でも、 Message-Id と References がないととーーっても不便ですよね。 ^^;;;
特に Mailing list なんかだと。

;; Microsoft 系のものはつけてくれないので、スレッドをたどるのが面倒くさ
;; くてしょうがない。 :-p

>> そこで質問なのですが、Muleのmail-modeにおいて、Mule側でDate:と
>> Message-Id:欄を付けることは可能なのでしょうか。それとも、無理なのでしょ
>> うか。

市川>   このあたりは、rmail を使った事がないので、分かりませんが、私が勧める
市川>   としたら、Mule for win32 ではなく、Meadow を使う事をお勧めします。
市川>   Meadow は Emacs 20.2 ベースの Mule for win32 だと思ってください。

市川>   Meadow 方が、いろいろな(特に最近の) Emacs Lisp Package 使用できますの
市川>   でいろいろと幸せになれると思います。

市川>   MUA(Mailer) についても様々な選択肢がでますので…

市川>     cmail , Mew , Semi-gnus , Wanderlust ... 等など…

私もこの方が幸せなような気がしますが、とりあえずこんなものはいかがでしょ
うか?

;; 現在 Mule for Windows が動く環境がないので動作確認はしていません。

(defun my-insert-mail-header-field ()
  (save-excursion
    (save-restriction
      (let ((case-fold-search t))
        (widen)
        (goto-char (point-min))
        (re-search-forward
         (concat "^" (regexp-quote mail-header-separator) "$"))
        (narrow-to-region (point-min) (match-beginning 0))
        (goto-char (point-min))
        (or (re-search-forward "^date:[ \t]" nil t)
            (progn
              (goto-char (point-max))
              (insert "Date: " (mail-rfc822-date) "\n")))
        (goto-char (point-min))
        (or (re-search-forward "^message-id:[ \t]" nil t)
            (progn
              (goto-char (point-max))
              (insert "Message-Id: " (gnus-inews-message-id) "\n")))
        ))))

(eval-after-load "sendmail"
  (require 'mail-utils)
  (require 'gnuspost)
  (function (add-hook 'mail-send-hook 'my-insert-mail-header-field))
  )

-- 
鈴木圭一 / keiichi@mdcnet.co.jp, kei-suzu@mail.wbs.ne.jp
PGP finger print (DH/DSS) 796B B9B1 436B 481C 709B  430C 829F 1705 9BB2 CAF3