[mew-dist 22948] Re: mew-draft-header

[Kazu Yamamoto ( 山本和彦 )]

From: Tatsuya Kinoshita <tats at example.com>
Subject: [mew-dist 22929] Re: mew-draft-header

> Fromが自分なら自分のアドレスを消したくない、重複するアドレスを消す
> のはかまわない、

それだ。そうなら、mew-reply-fromme-keep-my-address も不要ですね。以下
でどうでしょうか？

--かず

Index: mew-draft.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-draft.el,v
retrieving revision 1.84
diff -c -r1.84 mew-draft.el
*** mew-draft.el	2003/01/20 05:33:03	1.84
--- mew-draft.el	2003/01/21 05:19:20
***************
*** 338,344 ****
  ;; cc -- string or list
  ;; 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))
      (if newsgroups
--- 338,344 ----
  ;; cc -- string or list
  ;; nl -- one empty line under "----", which is necessary if
  ;;      attachment is prepared
!   (let ((del (unless fromme mew-regex-my-address-list)) ;; deleting list
  	case body)
      (goto-char (point-min))
      (if newsgroups
***************
*** 357,373 ****
  	(mew-draft-header-insert mew-to: to))
         ;; To: collected by reply
         ((listp to)
! 	(if (and fromme mew-reply-fromme-keep-my-address)
! 	    (mew-insert-address-list2 mew-to: to)
! 	  (setq del (mew-insert-address-list mew-to: to del t)))))
        (cond
         ((null cc) ()) ;; do nothing 
         ((stringp cc) ;; Cc: inputed from the mini-buffer.
  	(mew-draft-header-insert mew-cc: cc))
         ((listp cc) ;; Cc: collected by reply.
! 	(if (and fromme mew-reply-fromme-keep-my-address)
! 	    (mew-insert-address-list2 mew-cc: cc)
! 	  (mew-insert-address-list mew-cc: cc del nil)))))
      (if mew-case-guess-when-prepared
  	(mew-draft-set-case-by-guess))
      (setq case (mew-tinfo-get-case))
--- 357,369 ----
  	(mew-draft-header-insert mew-to: to))
         ;; To: collected by reply
         ((listp to)
! 	(setq del (mew-insert-address-list mew-to: to del t))))
        (cond
         ((null cc) ()) ;; do nothing 
         ((stringp cc) ;; Cc: inputed from the mini-buffer.
  	(mew-draft-header-insert mew-cc: cc))
         ((listp cc) ;; Cc: collected by reply.
! 	(mew-insert-address-list mew-cc: cc del nil))))
      (if mew-case-guess-when-prepared
  	(mew-draft-set-case-by-guess))
      (setq case (mew-tinfo-get-case))
Index: mew-vars.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-vars.el,v
retrieving revision 1.166
diff -c -r1.166 mew-vars.el
*** mew-vars.el	2003/01/21 02:08:02	1.166
--- mew-vars.el	2003/01/21 05:19:20
***************
*** 473,483 ****
  When the message to be replied is sent/posted by ME, this alist is used.
  For more infomation, see the document of '\\<mew-summary-mode-map>\\[mew-summary-reply]'")
  
- (defvar mew-reply-fromme-keep-my-address t
-   "*When the message to be replied is sent/posted by ME, this variable
- is checked. If non-nil, my address on a new To:/Cc: is not deleted.
- Otherwise, my address is deleted like normal cases. ")
- 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; SSH/SSL
--- 473,478 ----