[Mew-dist 06457] save-buffer in mew-gnus

[Mito]

mew-gnus-post-news, mew-gnus-reply で draft を用意したあと、
別なメールを書こうとすると mew-gnus-* で用意した draft は
save-buffer されていないため、再度使われてしまいます。

1.mew-gnus-reply で draft を用意 … +draft/1
2.mew-summary-reply で draft を用意 … +draft/2 でなく +draft/1
となります。

mew-gnus-post-news は確認していませんが、修正だけはしておき
ました。
-- 
9/18 16:02頃
NECソフトウェア新潟 水戸
mailto:mit at example.com \n
-------------- next part --------------
--- mew-gnus.el	1998/09/18 05:54:06	1.2
+++ mew-gnus.el	1998/09/18 06:53:00
@@ -92,6 +92,7 @@
       (save-excursion
 	(mew-set-environment)))
   (let ((file (mew-folder-new-message mew-draft-folder)))
+    (mew-summary-prepare-draft
     (if (null mew-mail-path) (mew-init))
     (mew-current-set 'window (current-window-configuration))
     (delete-other-windows)
@@ -99,6 +100,7 @@
     (mew-draft-rename file)
     (mew-draft-header nil nil 'no nil "")
     (mew-draft-mode) ;; for hilight
+    )
     (goto-char (point-min))
     (search-forward "Newsgroups: ")))
 
@@ -112,6 +114,7 @@
   (let ((file (mew-folder-new-message mew-draft-folder))
 	from cc subject date to reply-to newsgroups in-reply-to references
 	distribution)
+    (mew-summary-prepare-draft
     (if (null mew-mail-path) (mew-init))
     (mew-current-set 'window (current-window-configuration))
     (delete-other-windows)
@@ -158,6 +161,11 @@
     (switch-to-buffer-other-window (find-file-noselect file))
     (mew-draft-rename file)
     (mew-draft-header subject nil to cc newsgroups in-reply-to references)
+    (cond
+     ((eq mew-summary-reply-position 'body)
+      (goto-char (mew-header-end))
+      (forward-line))
+     )
     (mew-draft-mode) ;; for hilight
     (if (stringp distribution)
 	(save-excursion
@@ -167,6 +175,8 @@
 	  (insert (concat "Distribution: " distribution "\n"))))
     (make-variable-buffer-local 'mew-message-citation-buffer) 
     (setq mew-message-citation-buffer gnus-article-buffer))
+    (undo-boundary)
+  )
   (if yank
       (progn
 	(goto-char (point-max))