[Mew-dist 17250] Re: ReeditとConfig

[Tatsuya Kinoshita]

In message "[Mew-dist 17249] Re: ReeditとConfig"
Tatsuya Kinoshita <tats at example.com> wrote:

>   * +draftの再編集時に、ヘッダを書き換える。
>   * +draft、+queue以外の再編集時に、Fromが自分のアドレスなら、ヘッダ
>     を書き換えない。

メールごとに送信サーバを対応させたい場合のことを考えると、caseを
復帰するオプションもあるとよいのかも。

> [Mew-dist 16446]のパッチを当てて、mew-config-insert-when-preparedを
> tにして暮らしてみたところ、+draftや+queueの再編集時にcaseを推測され
> るのが邪魔に思えてきたところです。

なお現状(b121)だと、新規作成時に推測したcaseが、ヘッダに反映されま
せん。とりあえずの対応パッチを作りました。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

Index: mew-draft.el
===================================================================
RCS file: /cvsmew/mew/mew-draft.el,v
retrieving revision 1.4
diff -c -r1.4 mew-draft.el
*** mew-draft.el	2001/04/11 08:24:41	1.4
--- mew-draft.el	2001/04/27 08:29:06
***************
*** 324,331 ****
  ;; nl -- one empty line under "----", which is necessary if
  ;;      attachment is prepared
    (let ((del mew-regex-my-address-list) ;; deleting list for Cc:
! 	(case (mew-tinfo-get-config))
! 	body)
      (goto-char (point-min))
      ;; Insert To: first.
      ;; All addresses inserted on To: are appended to del.
--- 324,330 ----
  ;; nl -- one empty line under "----", which is necessary if
  ;;      attachment is prepared
    (let ((del mew-regex-my-address-list) ;; deleting list for Cc:
! 	case body)
      (goto-char (point-min))
      ;; Insert To: first.
      ;; All addresses inserted on To: are appended to del.
***************
*** 350,355 ****
--- 349,355 ----
  	(mew-insert-address-list mew-cc: cc del nil))))
      (mew-draft-header-insert mew-newsgroups:  newsgroups)
      (mew-draft-set-config-by-guess) ;; xxx
+     (setq case (mew-tinfo-get-config))
      (mew-draft-header-insert mew-cc:          (mew-cc case))
      (mew-draft-header-insert mew-subj:        (or subject ""))
      (mew-draft-header-insert mew-from:        (mew-from case))