[mew-dist 22077] Re: frame

[Kazu Yamamoto ( 山本和彦 )]

From: 黒岩 和行 <karuhito at example.com>
Subject: [mew-dist 22028] Re: frame

> 現象特定できました。

ありがとうございます。

このパッチで直るでしょうか？

--かず

Index: mew-summary3.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-summary3.el,v
retrieving revision 1.10
diff -c -r1.10 mew-summary3.el
*** mew-summary3.el	2002/07/24 05:49:54	1.10
--- mew-summary3.el	2002/10/28 10:52:07
***************
*** 125,131 ****
  	  (msg (mew-summary-message-number2))
  	  cwin cbuf draft case
  	  from reply-to to cc newsgroups subject in-reply-to references
! 	   encrypted fromme)
        (if (string= (mew-summary-folder-name) mew-draft-folder)
  	  (message "Cannot reply to draft message")
  	(setq draft (mew-folder-new-message mew-draft-folder))
--- 125,131 ----
  	  (msg (mew-summary-message-number2))
  	  cwin cbuf draft case
  	  from reply-to to cc newsgroups subject in-reply-to references
! 	  encrypted fromme ret-buf)
        (if (string= (mew-summary-folder-name) mew-draft-folder)
  	  (message "Cannot reply to draft message")
  	(setq draft (mew-folder-new-message mew-draft-folder))
***************
*** 140,150 ****
  	 (let ((mew-use-full-window nil))
  	   (mew-summary-display nil))
  	 ;; see also mew-draft-cite
! 	 (set-buffer (or (save-excursion
! 			   (set-buffer (mew-buffer-message))
! 			   (if (mew-header-p) (current-buffer)))
! 			 ;; header exists only in cache if multipart
! 			 (mew-cache-hit fld msg)))
  	 (when mew-case-guess-when-replied
  	   (setq case (mew-draft-get-case-by-guess
  		       mew-case-guess-when-replied-alist)))
--- 140,151 ----
  	 (let ((mew-use-full-window nil))
  	   (mew-summary-display nil))
  	 ;; see also mew-draft-cite
! 	 (setq ret-buf (or (save-excursion
! 			     (set-buffer (mew-buffer-message))
! 			     (if (mew-header-p) (current-buffer)))
! 			   ;; header exists only in cache if multipart
! 			   (mew-cache-hit fld msg)))
! 	 (set-buffer ret-buf)
  	 (when mew-case-guess-when-replied
  	   (setq case (mew-draft-get-case-by-guess
  		       mew-case-guess-when-replied-alist)))
***************
*** 223,229 ****
  	   (goto-char (mew-header-end))
  	   (forward-line))
  	 (mew-draft-mode encrypted)
! 	 (run-hooks 'mew-draft-mode-newdraft-hook)))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 224,231 ----
  	   (goto-char (mew-header-end))
  	   (forward-line))
  	 (mew-draft-mode encrypted)
! 	 (run-hooks 'mew-draft-mode-newdraft-hook))
! 	ret-buf)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
***************
*** 236,255 ****
    (interactive "P")
    (mew-summary-msg-or-part
     (mew-summary-not-in-draft
!     (let ((mew-summary-reply-position nil))
!       (mew-summary-reply onlytofrom))
!     ;; mew-draft-mode-hook may insert text.
!     (save-excursion
!       (goto-char (point-max))
!       (run-hooks 'mew-before-cite-hook)
!       (mew-draft-cite))
!     ;; the cursor is after To:
!     (cond
!      ((eq mew-summary-reply-with-citation-position 'body)
!       (goto-char (mew-header-end))
!       (forward-line))
!      ((eq mew-summary-reply-with-citation-position 'end)
!       (goto-char (point-max)))))))
    
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 238,258 ----
    (interactive "P")
    (mew-summary-msg-or-part
     (mew-summary-not-in-draft
!     (let (mew-message-citation-buffer)
!       (let ((mew-summary-reply-position nil))
! 	(setq mew-message-citation-buffer (mew-summary-reply onlytofrom)))
!       ;; mew-draft-mode-hook may insert text.
!       (save-excursion
! 	(goto-char (point-max))
! 	(run-hooks 'mew-before-cite-hook)
! 	(mew-draft-cite))
!       ;; the cursor is after To:
!       (cond
!        ((eq mew-summary-reply-with-citation-position 'body)
! 	(goto-char (mew-header-end))
! 	(forward-line))
!        ((eq mew-summary-reply-with-citation-position 'end)
! 	(goto-char (point-max))))))))
    
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;