[Mew-dist 09393] Re: mew bug?

[Kazu Yamamoto ( 山本和彦 )]

From: Akihiro Tominaga <atomy at example.com>
Subject: mew bug?
Date: Wed, 16 Jun 1999 23:52:14 +0900

> Summary buffer内で、C-nやM->を使って、「最後のメッセージの更に1行下」
> にカーソルを持って行ったときに、r(mew-summary-resend)を叩くとバグるよ
> うに見受けられます。

これで直ります。

--かず

-------------- next part --------------
Index: mew-summary.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-summary.el,v
retrieving revision 1.179
diff -c -r1.179 mew-summary.el
*** mew-summary.el	1999/06/08 23:54:08	1.179
--- mew-summary.el	1999/06/18 07:03:28
***************
*** 1328,1350 ****
  discouraged to use this command since beginners are always 
  confused. Please use 'f' instead."
    (interactive)
!   (mew-summary-edit-message)
!   (mew-elet
     (goto-char (point-min))
!    (mew-header-delete-lines mew-field-delete-for-resend)
!    (goto-char (point-min))
!    (insert mew-resent-to: " \n") ;; MUST use insert.
!    (mew-draft-header-fill mew-resent-from: mew-from)
!    (mew-draft-header-fill mew-fcc:  mew-fcc)
!    (mew-draft-header-fill mew-dcc:  mew-dcc)
!    (mew-header-goto-end)
!    (mew-header-clear) ;; erase the old header separator
!    (mew-header-prepared))
!   (set-buffer-modified-p nil)
!   (mew-draft-mode)
!   ;; move the cursor after "Resent-To: "
!   (goto-char (point-min))
!   (end-of-line))
  
  (defun mew-summary-reedit ()
    "Edit this message again to send. Or edit this rfc822 part
--- 1328,1351 ----
  discouraged to use this command since beginners are always 
  confused. Please use 'f' instead."
    (interactive)
!   (mew-summary-msg-or-part
!    (mew-summary-edit-message)
!    (mew-elet
!     (goto-char (point-min))
!     (mew-header-delete-lines mew-field-delete-for-resend)
!     (goto-char (point-min))
!     (insert mew-resent-to: " \n") ;; MUST use insert.
!     (mew-draft-header-fill mew-resent-from: mew-from)
!     (mew-draft-header-fill mew-fcc:  mew-fcc)
!     (mew-draft-header-fill mew-dcc:  mew-dcc)
!     (mew-header-goto-end)
!     (mew-header-clear) ;; erase the old header separator
!     (mew-header-prepared))
!    (set-buffer-modified-p nil)
!    (mew-draft-mode)
!    ;; move the cursor after "Resent-To: "
     (goto-char (point-min))
!    (end-of-line)))
  
  (defun mew-summary-reedit ()
    "Edit this message again to send. Or edit this rfc822 part