(ignore-errors
(set-file-modes filename mode)))
-(defun gnus-set-process-query-on-exit-flag (process flag)
- "Run `set-process-query-on-exit-flag' if it is available.
-Otherwise, run `process-kill-without-query'."
- (let ((fn (if (fboundp 'set-process-query-on-exit-flag)
- 'set-process-query-on-exit-flag
- 'process-kill-without-query)))
- (funcall fn process flag)))
+(if (fboundp 'set-process-query-on-exit-flag)
+ (defalias 'gnus-set-process-query-on-exit-flag
+ 'set-process-query-on-exit-flag)
+ (defalias 'gnus-set-process-query-on-exit-flag
+ 'process-kill-without-query))
(provide 'gnus-util)