[mew-dist 22078] Re: case for reedit on +queue

[Kazu Yamamoto ( 山本和彦 )]

遅くなりました。

From: Tatsuya Kinoshita <tats at example.com>
Subject: [mew-dist 21920] case for reedit on +queue

> 送信時のためではなく、再編集時にcaseを元に戻すために、*.mqiには編
> 集時のcaseを保存しておいてほしい。

以下で実現できるでしょうか？ 送信への副作用がないか、確かめて頂けると
幸いです。

--かず

Index: mew-edit.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-edit.el,v
retrieving revision 1.74
diff -c -r1.74 mew-edit.el
*** mew-edit.el	2002/10/18 08:15:14	1.74
--- mew-edit.el	2002/10/28 11:17:55
***************
*** 709,717 ****
         (setq inf (mew-lisp-load info))
         (cond
  	((mew-folder-queuep fld)
! 	 (setq hdr (mew-smtp-get-raw-header inf)))
  	((mew-folder-postqp fld)
! 	 (setq hdr (mew-nntp2-get-raw-header inf))))
         (mew-queue-backup file mew-queue-info-suffix)
         (and hdr (mew-summary-edit-header-for-queue hdr))))
     (mew-draft-mode)
--- 709,719 ----
         (setq inf (mew-lisp-load info))
         (cond
  	((mew-folder-queuep fld)
! 	 (setq hdr (mew-smtp-get-raw-header inf))
! 	 (mew-tinfo-set-case (mew-smtp-get-case inf)))
  	((mew-folder-postqp fld)
! 	 (setq hdr (mew-nntp2-get-raw-header inf))
! 	 (mew-tinfo-set-case (mew-nntp2-get-case inf))))
         (mew-queue-backup file mew-queue-info-suffix)
         (and hdr (mew-summary-edit-header-for-queue hdr))))
     (mew-draft-mode)
Index: mew-nntp2.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-nntp2.el,v
retrieving revision 1.42
diff -c -r1.42 mew-nntp2.el
*** mew-nntp2.el	2002/09/02 02:43:44	1.42
--- mew-nntp2.el	2002/10/28 11:17:55
***************
*** 15,29 ****
  (defvar mew-nntp2-info-list
    '(;; parameters to be saved
      "raw-header" "newsgroups" "fcc" "msgid" "logtime"
      ;; parameters used internally
!     "case" "server" "port" "ssh-server" "user"
      "status" "ssh-process" "messages"
      ;; parameters used internally and should be initialized
      "string" "error" "done"))
  
  (mew-info-defun "mew-nntp2-" mew-nntp2-info-list)
  
! (defvar mew-nntp2-info-list-save-length 5)
  (defvar mew-nntp2-info-list-clean-length 13)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 15,30 ----
  (defvar mew-nntp2-info-list
    '(;; parameters to be saved
      "raw-header" "newsgroups" "fcc" "msgid" "logtime"
+     "case" ;; save for re-edit, not for sending
      ;; parameters used internally
!     "server" "port" "ssh-server" "user"
      "status" "ssh-process" "messages"
      ;; parameters used internally and should be initialized
      "string" "error" "done"))
  
  (mew-info-defun "mew-nntp2-" mew-nntp2-info-list)
  
! (defvar mew-nntp2-info-list-save-length 6)
  (defvar mew-nntp2-info-list-clean-length 13)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
***************
*** 320,325 ****
--- 321,328 ----
      (setq file-info (mew-queue-enqueue work qfld))
      (setq file (nth 0 file-info) info (nth 1 file-info))
      (setq nname (mew-concat-folder qfld (file-name-nondirectory file)))
+     (if (mew-draft-p)
+ 	(mew-smtp-set-case pnm (mew-tinfo-get-case)))
      ;;
      (let* ((n mew-nntp2-info-list-save-length)
  	   (data (make-vector n nil))
Index: mew-smtp.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-smtp.el,v
retrieving revision 1.56
diff -c -r1.56 mew-smtp.el
*** mew-smtp.el	2002/09/02 02:37:13	1.56
--- mew-smtp.el	2002/10/28 11:17:55
***************
*** 16,23 ****
    '(;; parameters to be saved
      "raw-header" "recipients" "orig-recipients"
      "bcc" "dcc" "fcc" "msgid" "logtime"
      ;; parameters used internally
!     "case" "server" "port" "ssh-server"
      "user" "auth-list"
      "helo-domain" 
      "status" "ssh-process" "messages"
--- 16,24 ----
    '(;; parameters to be saved
      "raw-header" "recipients" "orig-recipients"
      "bcc" "dcc" "fcc" "msgid" "logtime"
+     "case" ;; save for re-edit, not for sending
      ;; parameters used internally
!     "server" "port" "ssh-server"
      "user" "auth-list"
      "helo-domain" 
      "status" "ssh-process" "messages"
***************
*** 27,33 ****
  
  (mew-info-defun "mew-smtp-" mew-smtp-info-list)
  
! (defvar mew-smtp-info-list-save-length 8)
  (defvar mew-smtp-info-list-clean-length 18)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 28,34 ----
  
  (mew-info-defun "mew-smtp-" mew-smtp-info-list)
  
! (defvar mew-smtp-info-list-save-length 9)
  (defvar mew-smtp-info-list-clean-length 18)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
***************
*** 464,469 ****
--- 465,472 ----
      (setq file-info (mew-queue-enqueue work qfld))
      (setq file (nth 0 file-info) info (nth 1 file-info))
      (setq nname (mew-concat-folder qfld (file-name-nondirectory file)))
+     (if (mew-draft-p)
+ 	(mew-smtp-set-case pnm (mew-tinfo-get-case)))
      ;;
      (let* ((n mew-smtp-info-list-save-length)
  	   (data (make-vector n nil))