diff options
| -rw-r--r-- | lisp/gnus/gnus-mh.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-mh.el b/lisp/gnus/gnus-mh.el index 84c90be3235..b33402f2ad7 100644 --- a/lisp/gnus/gnus-mh.el +++ b/lisp/gnus/gnus-mh.el | |||
| @@ -85,11 +85,9 @@ Optional argument FOLDER specifies folder name." | |||
| 85 | (widen) | 85 | (widen) |
| 86 | (unwind-protect | 86 | (unwind-protect |
| 87 | (apply | 87 | (apply |
| 88 | 'call-process-region | 88 | #'call-process-region |
| 89 | (append | 89 | (point-min) (point-max) "rcvstore" nil errbuf nil folder |
| 90 | (list (point-min) (point-max) "rcvstore" nil errbuf nil | 90 | gnus-rcvstore-options) |
| 91 | folder) | ||
| 92 | gnus-rcvstore-options)) | ||
| 93 | (set-buffer errbuf) | 91 | (set-buffer errbuf) |
| 94 | (if (zerop (buffer-size)) | 92 | (if (zerop (buffer-size)) |
| 95 | (message "Article saved in folder: %s" folder) | 93 | (message "Article saved in folder: %s" folder) |