Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 32191:56f0edca838c | 32192:cdd557fc0cb4 |
|---|---|
| 65 (funcall gnus-folder-save-name gnus-newsgroup-name | 65 (funcall gnus-folder-save-name gnus-newsgroup-name |
| 66 gnus-current-headers gnus-newsgroup-last-folder) | 66 gnus-current-headers gnus-newsgroup-last-folder) |
| 67 t)))) | 67 t)))) |
| 68 (errbuf (gnus-get-buffer-create " *Gnus rcvstore*")) | 68 (errbuf (gnus-get-buffer-create " *Gnus rcvstore*")) |
| 69 ;; Find the rcvstore program. | 69 ;; Find the rcvstore program. |
| 70 (exec-path (if mh-lib (cons mh-lib exec-path) exec-path))) | 70 (exec-path (cond |
| 71 ((and (boundp 'mh-lib-progs) mh-lib-progs) | |
| 72 (cons mh-lib-progs exec-path)) | |
| 73 (mh-lib (cons mh-lib exec-path)) | |
| 74 (t exec-path)))) | |
| 71 (with-current-buffer gnus-original-article-buffer | 75 (with-current-buffer gnus-original-article-buffer |
| 72 (save-restriction | 76 (save-restriction |
| 73 (widen) | 77 (widen) |
| 74 (unwind-protect | 78 (unwind-protect |
| 75 (call-process-region | 79 (call-process-region |