[Mew-dist 06905] Re: mew-gnus.elの利用

[SAKAI Kiyotaka]

>> In article <19981029215359-36F.sumio at example.com>, TOYAMA Sumio <sumio at example.com> writes:

> ただ、どちらにせよ、"="を積極的に禁止することは無いと思うので、
> せめて、デフォルトを変えないという条件付きで、反映させて欲しいで
> す(あのパッチはデフォルトを変えてしまっていますが)。
> ＃いまのままだと、どんなに頑張ってもNews Folderに保存できません
> ＃よね？

こんな感じでしょうか。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
--- /home/ksakai/src/mew-1.94b1/contrib/mew-gnus.el	Fri Nov  6 16:14:39 1998
+++ mew-gnus.el	Fri Nov  6 17:27:31 1998
@@ -44,13 +44,16 @@
 (defvar mew-gnus-save-preserve-dot t
   "*If nil, use hierarchical directory to save article.")
 
+(defvar mew-gnus-save-news-folder nil
+  "*If non-nil, use news folder as a default candicate to save an article.")
+
 (defun mew-gnus-newsgroup-name ()
   (if mew-gnus-save-preserve-dot
       gnus-newsgroup-name
     (gnus-newsgroup-directory-form gnus-newsgroup-name)))
 
 (defun gnus-summary-save-in-mew (&optional folder)
-  "Save this article to MH folder (using `rcvstore' in MH library).
+  "Save this article to Mail or News folder (using `imstore').
 Optional argument FOLDER specifies folder name."
   (interactive)
   (let ((gnus-show-mime nil))
@@ -66,11 +69,12 @@
 		 (mew-input-folder
 		  (or mew-gnus-save-fixed-folder
 		      (car (mew-refile-guess-by-alist))
-		      (concat "+" (mew-gnus-newsgroup-name))))))
-	    (errbuf (get-buffer-create " *GNUS rcvstore*")))
-	(if (not (equal (aref folder 0) ?+))
-	    (message (format 
-		      "First letter of '%s' must be '+'."
+		      (concat (if mew-gnus-save-news-folder "=" "+")
+			      (mew-gnus-newsgroup-name))))))
+	    (errbuf (get-buffer-create " *GNUS imstore*")))
+	(if (not (memq (aref folder 0) '(?+ ?=)))
+	    (message (format
+		      "First letter of '%s' must be '+' or '='."
 		      folder))
 	  (if (mew-folder-check folder)
 	      (unwind-protect