From 0a30c4c8f351b2bc6b3c523996f46a936c341245 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 5 Oct 2000 23:23:27 +0000 Subject: [PATCH] (gnus-summary-save-in-folder): Obey mh-lib-progs. --- lisp/gnus/gnus-mh.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 2.39.2