diff lisp/gnus/gnus-mh.el @ 32192:cdd557fc0cb4

(gnus-summary-save-in-folder): Obey mh-lib-progs.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 05 Oct 2000 23:23:27 +0000
parents 9968f55ad26e
children 6c93e7d6a930
line wrap: on
line diff
--- 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)