# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 970788207 0
# Node ID cdd557fc0cb4c9429552ff48e245c806df64ff87
# Parent  56f0edca838c51ce75ced91f2a85b618708edb7c
(gnus-summary-save-in-folder): Obey mh-lib-progs.

diff -r 56f0edca838c -r cdd557fc0cb4 lisp/gnus/gnus-mh.el
--- a/lisp/gnus/gnus-mh.el	Thu Oct 05 23:23:06 2000 +0000
+++ b/lisp/gnus/gnus-mh.el	Thu Oct 05 23:23:27 2000 +0000
@@ -67,7 +67,11 @@
 		   t))))
 	(errbuf (gnus-get-buffer-create " *Gnus rcvstore*"))
 	;; Find the rcvstore program.
-	(exec-path (if mh-lib (cons mh-lib exec-path) exec-path)))
+	(exec-path (cond
+		    ((and (boundp 'mh-lib-progs) mh-lib-progs)
+		     (cons mh-lib-progs exec-path))
+		    (mh-lib (cons mh-lib exec-path))
+		    (t exec-path))))
     (with-current-buffer gnus-original-article-buffer
       (save-restriction
 	(widen)