[xyzzy:05193] Re: KaMail の Reply-To

[HATTORI Masashi <hattori@xxxxxxxxxxxxxxxx>]

西谷さん、こんにちは。

	2000年9月7日(木)[17:07:21] の、
	”[xyzzy:05190] KaMail の Reply-To”
	への返事です。

> KaMail で、 Reply-To はつけられないのでしょうか？使えるとう
> れしいです。

なんとかできるようにしときます。

Draft周りはそのうち大改造しますのでその時また変わるかもしれま
せんが。
# 、とか思いつつ数ヶ月経ってしまってるんですが・・・ (^-^;

> フォルダごとに違う Reply−To をつけたくて、とりあえず、下記
> のように改造をでっちあげて使っていますが。

直接改造しないなら *kamail-prepare-draft-hook*で、こんな感じ
かなー。（へなちょこ）

(in-package "kamail")

(defvar *kamail-reply-to* nil)

#|
(setq *kamail-reply-to* '(("foo@xxxxxxx" . "+foo")
			  ("bar@xxxxxxx" . "+bar")
			  ("default@xxxxxxx")))	; <= default
|#

(defun kamail-draft-reply-to ()
  (let ((reply-to (kamail-reply-to)))
    (when reply-to
      (save-excursion
	(goto-char (point-min))
	(when (scan-buffer "^Mime-Version: "
			   :regexp t
			   :case-fold t)
	  (insert (format nil "Reply-To: ~A~%" reply-to)))))))

(defun kamail-reply-to ()
  (when *kamail-reply-to*
    (cond ((stringp *kamail-reply-to*)
	   *kamail-reply-to*)
	  ((listp *kamail-reply-to*)
	   (or (and *kamail-folder-current*
		    (car (rassoc-if #'(lambda (f)
					(and f
					     (string-match f *kamail-folder-current*)))
				    *kamail-reply-to*)))
	       (car (rassoc nil *kamail-reply-to*))))
    )))

(add-hook '*kamail-prepare-draft-hook* 'kamail-draft-reply-to)

-- 
 　　　。　　　　。　　　　　　　　　。
 　　　　　　　　　　。
 。    服部　昌司  >^)))彡    
 　。　　　　gyo@xxxxxxxxxxxxxx