<< | < | 2004-10 | > | >> | ||
---|---|---|---|---|---|---|
Su | Mo | Tu | We | Th | Fr | Sa |
1 | 2 | |||||
3 | 4 | 5 | 6 | 7 | 8 | 9 |
10 | 11 | 12 | 13 | 14 | 15 | 16 |
17 | 18 | 19 | 20 | 21 | 22 | 23 |
24 | 25 | 26 | 27 | 28 | 29 | 30 |
31 |
test.hogehoge.@foo.bar.net
"test.hogehoge."@foo.bar.net
hoge.huga@foo.bar.net
--- kamail-send.l.orig 2003-01-26 06:05:12.000000000 +0900
+++ kamail-send.l 2004-10-22 21:54:44.866475200 +0900
@@ -146,12 +146,28 @@
(defun kamail-send-buffer-send (&optional batch)
(message "Sending message ...")
+ (when *kamail-ext-smtp-server*
+ (let* ((sender (progn
+ (goto-char (point-min))
+ (scan-buffer "^$" :no-dup t :regexp t)
+ (save-restriction
+ (narrow-to-region (point-min) (point))
+ (goto-char (point-min))
+ (scan-buffer "^From:.+<\\([^>].+\\)>.*$" :no-dup t :case-fold nil :regexp t)
+ (buffer-substring (match-beginning 1) (match-end 1)))))
+ (smtp-server (safe-cdr (assoc sender *kamail-ext-smtp-server* :test 'string=))))
+ (if (stringp (safe-car smtp-server))
+ (setq *kamail-smtp-server* (safe-car smtp-server))
+ (setq *kamail-smtp-server* smtp-server))
(multiple-value-bind (server port auth user pass realm)
(kamail-send-read-smtp-server batch)
(multiple-value-bind (flag return)
(kamail-smtp-send-buffer server
:msgid-add *kamail-send-msgid-create*
- :msgid-string *kamail-send-msgid-string*
+ :msgid-string (if *kamail-ext-smtp-server*
+ (safe-car (assoc sender
+ *kamail-ext-smtp-server* :test 'string=))
+ *kamail-send-msgid-string*)
:port port
:auth auth
:user user
@@ -164,7 +180,7 @@
(progn
(kamail-smtp-quit)
(error "送信エラー: ~A" (or return "unknown"))))
- )))
+ )))))
(defvar *kamail-smtp-stream* nil)
×× × 様
この度はシマンテック社製品をご購入いただき誠に有り難うございました。
ご購入いただいた製品を、下記にて通知致しますのでご確認ください。
オーダー内容につきまして確認のお電話は致しませんので、このメールが
「注文請書」となります。尚、製品の欠陥、瑕疵がある場合を除いて、返品
や交換はお受け出来ませんのでご注意ください。
───────────────────────────────────
[受注番号] XXXXXXXXXXXX
[注文日時] 2004/10/22 XX:XX:XX
[注文者] ×× × 様
───────────────────────────────────
[製品送付先] XXX-XXXX ××××××××××××××××××
×× × 様
TEL:XXXXXXXXXX
───────────────────────────────────
[請求書送付先] XXX-XXXX ××××××××××××××××
×× ×× 様
───────────────────────────────────
[支払方法] クレジットカード
[配送方法] 宅配便又は、郵送
───────────────────────────────────
[ご注文商品] Norton Internet Security 2005
[ご注文数] \5,300 × 1 本
[小計] \5,300 + \265(消費税)
[送料] 送料
[小計] \650 + \32(消費税)
───────────────────────────────────
[合計] \5,950 + \297(消費税) = \6,247(総合計金額)
───────────────────────────────────