[Mew-dist 17250] Re: ReeditとConfig
Tatsuya Kinoshita
tats at example.com
2001年 4月 27日 (金) 17:50:07 JST
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))
Mew-dist メーリングリストの案内