diff --git a/webpaste.el b/webpaste.el
index cbbfb55..61fb607 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -52,7 +52,7 @@
   (interactive)
 
   (let ((text (buffer-substring (mark) (point))))
-    (funcall (cdr (car webpaste-providers)) text)))
+    (webpaste-paste-text text)))
 
 
 ;;;###autoload
@@ -66,6 +66,13 @@
    (webpaste-paste-region)))            ; Paste region
 
 
+;; Function to do pasting
+(defun webpaste-paste-text (text)
+  "Paste TEXT to some paste service."
+
+  (funcall (cdr (car webpaste-providers)) text))
+
+
 ;;; Define providers
 (defcustom webpaste-providers
   '(("ix.io" .