[Mew-dist 06651] Re: mew-gnus with Mew-1.93

[SAKAI Kiyotaka]

>> In article <199810052357.IAA20146 at example.com>, harrier at example.com (NAKAMURA Takahiro) writes:

> ---------------------------------------------------------------
> 早速実験してみましたが、記事を投稿orフォローしようとすると、
> Mewの起動時の画面(Mew Hello)が立ち上がってしまいます。
> その後ニュースを読むモードにはバッファを選択することで、復帰で
> きますので実害はないのですが...

> 前のバージョンではこういうことはなかったと、記憶しています。
> ---------------------------------------------------------------

では、初期化が終ったら " *mew hello*" buffer を消去するように変更しま
した。

先に送ったパッチの後に当てて下さい。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew-gnus.el,v
retrieving revision 1.23
diff -u -r1.23 mew-gnus.el
--- mew-gnus.el	1998/10/05 08:14:03	1.23
+++ mew-gnus.el	1998/10/06 01:34:25
@@ -85,10 +85,18 @@
 		  (message "%s" (buffer-string)))
 		(kill-buffer errbuf))))))))
 
+(defun mew-gnus-init ()
+  "Initialize mew if mew does not invoked yet."
+  (if mew-mail-path
+      nil
+    (mew-init)
+    (if (get-buffer mew-buffer-hello)
+	(kill-buffer mew-buffer-hello))))
+
 (defun mew-gnus-post-news ()
   "Post a news using mew."
   (interactive)
-  (if (null mew-mail-path) (mew-init))
+  (mew-gnus-init)
   (let ((file (mew-folder-new-message mew-draft-folder)))
     (mew-current-set 'window (current-window-configuration))
     (delete-other-windows)
@@ -103,7 +111,7 @@
   "Reply or followup to GNUS article using mew.
 Optional argument YANK means yank original article."
   (interactive)
-  (if (null mew-mail-path) (mew-init))
+  (mew-gnus-init)
   (let ((file (mew-folder-new-message mew-draft-folder))
 	from cc subject date to reply-to newsgroups in-reply-to references
 	distribution)
@@ -157,7 +165,7 @@
 (defun mew-gnus-mail-forward (&optional buffer)
   "Forward the current message to another user using mew."
   (interactive)
-  (if (null mew-mail-path) (mew-init))
+  (mew-gnus-init)
   (mew-current-set 'window (current-window-configuration))
   (pop-to-buffer (or (and (boundp 'gnus-original-article-buffer)
 			  gnus-original-article-buffer)