[Mew-dist 11606] Re: a patch for b7

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Takahiko Horiuchi <takahiko at example.com> さん曰く
Subject: [Mew-dist 11604] Re: a patch for b7
Message-ID: <19991202132615P.takahiko at example.com>
Date: Thu, 2 Dec 1999 13:23:51 +0900

堀内> > あんまりハックできていないので、とりあえずパッチで流します。以下のパッ
堀内> > チを1.95b7 に当てて下さい。sdic 問題が解決するのではないかと期待してい
堀内> 
堀内> 解決しました．これで安心して sdic を使えます．ありがとうございます．

私も OK でした。

堀内>   堀内 孝彦  @ elisp わかんないから報告だけして傍観な私

なんで以前はだめだったのかわかっていないんですけどね。良かった、
良かったということで。^^;;;


と、これだけはもうしわけないので、もうひとつ。

"+draft" での reedit なのですが、こんな感じで header はいじらな
いようにした方が、私は *このみ* なのですが、いかがなものでしょう
か？ Config: はちょっと悩むところですが。。。
-------------- next part --------------
*** mew-edit.el.orig	Sat Nov 27 11:43:02 1999
--- mew-edit.el	Thu Dec  2 12:27:34 1999
***************
*** 322,341 ****
  	    (rename-file original backup)))
        nil))) ;; success
  
! (defun mew-summary-edit-header ()
    (mew-elet
!    (mew-header-delete-lines mew-field-delete-common)
!    (mew-header-delete-lines mew-field-delete-for-reediting)
!    (mew-header-sort mew-field-order-for-reediting)
!    (mew-header-goto-end)
!    (mew-draft-header-fill mew-from:     mew-from)
!    (mew-draft-header-fill mew-fcc:      mew-fcc)
!    (mew-draft-header-fill mew-dcc:      mew-dcc)
!    (mew-draft-header-fill mew-reply-to: mew-reply-to)
!    (mew-draft-header-fill mew-x-mailer: mew-x-mailer)
!    (if (and mew-use-config-imget-for-draft
! 	    (not (string-equal mew-config-imget mew-config-default)))
!        (mew-draft-header-insert mew-config: mew-config-imget))
     (mew-header-clear) ;; erase the old header separator
     (mew-header-prepared)))
  
--- 322,343 ----
  	    (rename-file original backup)))
        nil))) ;; success
  
! (defun mew-summary-edit-header (&optional fld)
    (mew-elet
!    (if (equal fld 'draft)
!        ()
!      (mew-header-delete-lines mew-field-delete-common)
!      (mew-header-delete-lines mew-field-delete-for-reediting)
!      (mew-header-sort mew-field-order-for-reediting)
!      (mew-header-goto-end)
!      (mew-draft-header-fill mew-from:     mew-from)
!      (mew-draft-header-fill mew-fcc:      mew-fcc)
!      (mew-draft-header-fill mew-dcc:      mew-dcc)
!      (mew-draft-header-fill mew-reply-to: mew-reply-to)
!      (mew-draft-header-fill mew-x-mailer: mew-x-mailer)
!      (if (and mew-use-config-imget-for-draft
! 	      (not (string-equal mew-config-imget mew-config-default)))
! 	 (mew-draft-header-insert mew-config: mew-config-imget)))
     (mew-header-clear) ;; erase the old header separator
     (mew-header-prepared)))
  
***************
*** 350,356 ****
        (mew-draft-find-and-switch
         (mew-expand-folder
  	(mew-summary-folder-name) (mew-summary-message-number)))
!       (mew-summary-edit-header)
        (mew-draft-mode)
        (save-buffer)))
      (t
--- 352,358 ----
        (mew-draft-find-and-switch
         (mew-expand-folder
  	(mew-summary-folder-name) (mew-summary-message-number)))
!       (mew-summary-edit-header 'draft)
        (mew-draft-mode)
        (save-buffer)))
      (t
-------------- next part --------------

-- 
白井秀行 (mailto:shirai at example.com)