Synch to No Gnus 200506270911.

[elisp/gnus.git-] / lisp / gnus-util.el

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 143f0e9..c5bd20a 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1596,13 +1596,11 @@ empty directories from OLD-PATH."
   (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)