master b8062be 3/5: Remove some compat code from eudc-bob.el

[Lars Ingebrigtsen]

branch: master
commit b8062be48873189eeca707363ede84d0e7c45198
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Remove some compat code from eudc-bob.el
    
    * lisp/net/eudc-bob.el (eudc-bob-save-object)
    (eudc-bob-pipe-object-to-external-program): Remove checks for
    functions that are always defined in Emacs.
---
 lisp/net/eudc-bob.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index b248c88..56ea033 100644
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -214,8 +214,7 @@ display a button."
   (let ((data (eudc-bob-get-overlay-prop 'object-data))
        (buffer (generate-new-buffer "*eudc-tmp*")))
     (save-excursion
-      (if (fboundp 'set-buffer-file-coding-system)
-         (set-buffer-file-coding-system 'binary))
+      (set-buffer-file-coding-system 'binary)
       (set-buffer buffer)
       (set-buffer-multibyte nil)
       (insert data)
@@ -231,8 +230,7 @@ display a button."
        viewer)
     (condition-case nil
        (save-excursion
-         (if (fboundp 'set-buffer-file-coding-system)
-             (set-buffer-file-coding-system 'binary))
+         (set-buffer-file-coding-system 'binary)
          (set-buffer buffer)
          (insert data)
          (setq program (completing-read "Viewer: " eudc-external-viewers))