From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 5 Oct 2000 23:23:27 +0000 (+0000)
Subject: (gnus-summary-save-in-folder): Obey mh-lib-progs.
X-Git-Tag: emacs-pretest-21.0.90~1119
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a30c4c8f351b2bc6b3c523996f46a936c341245;p=emacs.git

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

diff --git a/lisp/gnus/gnus-mh.el b/lisp/gnus/gnus-mh.el
index f7377120a4a..a73e90b6ab3 100644
--- 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)