[Mew-dist 11334] Patch for contrib/mew-gnus.el and a request

[Toshio HORI]

1.95b?になって mew-draft.el が変わったため、contrib/mew-gnus.el を使っ
ていると悲しい状態になったので、パッチを送ります。

あと、mailの送信後にそのまま +draft に居座るのも(少し)悲しいのですが、
以前のように送信前にいたbufferに戻るようになりませんか?

---ほり。
-------------- next part --------------
*** contrib/mew-gnus.el.original	Tue Nov 16 03:38:46 1999
--- contrib/mew-gnus.el	Tue Nov 16 04:05:23 1999
***************
*** 103,114 ****
    "Post a news using mew."
    (interactive)
    (mew-gnus-init)
!   (let ((file (mew-folder-new-message mew-draft-folder)))
      (mew-summary-prepare-draft
       (mew-current-set 'window (current-window-configuration))
       (delete-other-windows)
!      (switch-to-buffer (find-file-noselect file))
!      (mew-draft-rename file)
       (mew-draft-header nil nil 'no nil "")
       (goto-char (point-min))
       (search-forward "Newsgroups: ")
--- 103,113 ----
    "Post a news using mew."
    (interactive)
    (mew-gnus-init)
!   (let ((draft (mew-folder-new-message mew-draft-folder)))
      (mew-summary-prepare-draft
       (mew-current-set 'window (current-window-configuration))
       (delete-other-windows)
!      (mew-draft-find-and-switch draft t)
       (mew-draft-header nil nil 'no nil "")
       (goto-char (point-min))
       (search-forward "Newsgroups: ")
***************
*** 120,126 ****
  Optional argument YANK means yank original article."
    (interactive)
    (mew-gnus-init)
!   (let ((file (mew-folder-new-message mew-draft-folder))
  	from cc subject to reply-to newsgroups in-reply-to references
  	distribution)
      (mew-summary-prepare-draft
--- 119,125 ----
  Optional argument YANK means yank original article."
    (interactive)
    (mew-gnus-init)
!   (let ((draft (mew-folder-new-message mew-draft-folder))
  	from cc subject to reply-to newsgroups in-reply-to references
  	distribution)
      (mew-summary-prepare-draft
***************
*** 177,184 ****
  	 (if (and (numberp skip) (> skip 0))
  	     (setq tmp-ref (nthcdr skip tmp-ref)))
  	 (setq references (mew-join "\n\t" tmp-ref))))
!      (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)
       (if (stringp distribution)
  	 (save-excursion
--- 176,182 ----
  	 (if (and (numberp skip) (> skip 0))
  	     (setq tmp-ref (nthcdr skip tmp-ref)))
  	 (setq references (mew-join "\n\t" tmp-ref))))
!      (mew-draft-find-and-switch draft t)
       (mew-draft-header subject nil to cc newsgroups in-reply-to references)
       (if (stringp distribution)
  	 (save-excursion
***************
*** 224,231 ****
  			       gnus-article-buffer))
       (let ((split-window-keep-point t))
         (split-window-vertically))
!      (switch-to-buffer-other-window (find-file-noselect draft))
!      (mew-draft-rename draft)
       (mew-draft-header subject 'nl)
       (mew-draft-mode)
       (run-hooks 'mew-draft-mode-newdraft-hook)
--- 222,228 ----
  			       gnus-article-buffer))
       (let ((split-window-keep-point t))
         (split-window-vertically))
!      (mew-draft-find-and-switch draft t)
       (mew-draft-header subject 'nl)
       (mew-draft-mode)
       (run-hooks 'mew-draft-mode-newdraft-hook)