[Mew-dist 2773] patch for mew-gnus.el

[SAKAI Kiyotaka]

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

・Mew の方で mew-folder-make-list が引数を取るようになったので、対応。

・Emacs-20.2 の付属の GNUS (with gnus-mule.el) で読んだ記事を folder 
  に save すると文字化けするので、その対応。

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

を行いました。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


--- /home/ksakai/src/mew-1.92.1/contrib/mew-gnus.el	Tue Oct 28 20:05:57 1997
+++ mew-gnus.el	Tue Oct 28 20:11:05 1997
@@ -29,6 +29,11 @@
 
 (require 'mew)
 
+(defvar mew-prog-imstore "imstore")
+(defvar mew-prog-imstore-arg "--dst=%s")
+;(defvar mew-prog-imstore "/usr/local/lib/mh/rcvstore")
+;(defvar mew-prog-imstore-arg "%s")
+
 (defvar mew-gnus-save-fixed-folder nil)
 
 (defun gnus-summary-save-in-mew (&optional folder)
@@ -41,7 +46,7 @@
     (save-restriction
       (widen)
       (or mew-folder-alist
-	  (setq mew-folder-list (mew-folder-make-list)
+	  (setq mew-folder-list (mew-folder-make-list nil)
 		mew-folder-alist (mew-folder-make-alist mew-folder-list)))
       (let ((folder
 	     (or folder
@@ -55,9 +60,11 @@
 		      "First letter of '%s' must be '+'."
 		      folder))
 	  (unwind-protect
-	      (call-process-region (point-min) (point-max)
-				   mew-prog-imstore
-				   nil errbuf nil (concat "--dst=" folder))
+	      (mew-piolet
+	       mew-cs-infile mew-cs-outfile
+	       (call-process-region (point-min) (point-max)
+				    mew-prog-imstore nil errbuf nil
+				    (format mew-prog-imstore-arg folder)))
 	    (set-buffer errbuf)
 	    (if (zerop (buffer-size))
 		(message "Article saved in folder: %s" folder)