diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-10-05 23:23:27 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-10-05 23:23:27 +0000 |
| commit | 0a30c4c8f351b2bc6b3c523996f46a936c341245 (patch) | |
| tree | da42c582d6195bac8cb842455f7833e0ec9f143b /lisp/gnus/gnus-mh.el | |
| parent | b262af48f21839fba4e66b0f9dd7258eea6d79f6 (diff) | |
| download | emacs-0a30c4c8f351b2bc6b3c523996f46a936c341245.tar.gz | |
(gnus-summary-save-in-folder): Obey mh-lib-progs.
Diffstat (limited to 'lisp/gnus/gnus-mh.el')
| -rw-r--r-- | lisp/gnus/gnus-mh.el | 6 |
1 files changed, 5 insertions, 1 deletions
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) |