(gnus-summary-save-in-folder): Obey mh-lib-progs.

diff --git a/lisp/gnus/gnus-mh.el b/lisp/gnus/gnus-mh.el
index f7377120a4acb2fd423013dbd27b8053830ed35d..a73e90b6ab3cb438bd93c2c180c6da19020d2904 100644 (file)
--- a/lisp/gnus/gnus-mh.el
+++ b/lisp/gnus/gnus-mh.el
@@ -67,7 +67,11 @@ Optional argument FOLDER specifies folder name."
                   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)