[Mew-dist 2964] Re: patch for mew-gnus.el

[TSUMURA Tomoaki ( 津邑公暁 )]

つむら＠京大 です。

In the message "[Mew-dist 2773] patch for mew-gnus.el"
	of Tue, 28 Oct 1997 20:16:59 +0900,
SAKAI Kiyotaka <ksakai at example.com> wrote:

> contrib/mew-guns.el へのパッチです。

mew-gnus.el は、とても重宝させていただいております。

> ・imstore と rcvstore の両方を使えるようにした。

私は、IM では PreserveDot=off にしているのですが、
例えば以下のようにして (これは全くの一例ですが...) save 先の
default folder の形式を、 mew-gnus でも選択できるように
していただけると嬉しいのですが、お考えいただけないでしょうか。

そもそも私の考えかたが間違っているという場合は、
ご指摘ください。
--
``The paths of glory lead but to the grave.''
                                    津邑 公暁＠情報工学専攻.京大
                                      tsumura at example.com
                    http://www.lab3.kuis.kyoto-u.ac.jp/~tsumura/

--- mew-gnus.el.org	Thu Nov 13 14:45:50 1997
+++ mew-gnus.el	Thu Nov 13 16:52:31 1997
@@ -36,6 +36,15 @@
 
 (defvar mew-gnus-save-fixed-folder nil)
 
+(defvar mew-gnus-save-preserve-dot t)
+(defun mew-gnus-newsgroup-name ()
+  (let ((pd mew-gnus-save-preserve-dot)
+	(ng gnus-newsgroup-name))
+    (cond (pd
+	   ng)
+	  ((not pd)
+	   (gnus-newsgroup-directory-form ng)))))
+
 (defun gnus-summary-save-in-mew (&optional folder)
   "Save this article to MH folder (using `rcvstore' in MH library).
 Optional argument FOLDER specifies folder name."
@@ -53,7 +62,7 @@
 		 (mew-input-folder
 		  (or mew-gnus-save-fixed-folder
 		      (car (mew-refile-guess-by-alist))
-		      (concat "+" gnus-newsgroup-name)))))
+		      (concat "+" (mew-gnus-newsgroup-name))))))
 	    (errbuf (get-buffer-create " *GNUS rcvstore*")))
 	(if (not (equal (aref folder 0) ?+))
 	    (message (format