[nongnu] elpa/webpaste 9d3c866 233/298: WP-25: Implement support for raw pastes

[ELPA Syncer]

branch: elpa/webpaste
commit 9d3c8663e0af2a718715138985a27c4c506b7d5d
Author: Elis Hirwing <elis@hirwing.se>
Commit: Elis Hirwing <elis@hirwing.se>

    WP-25: Implement support for raw pastes
    
    This fixes #25
---
 webpaste.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/webpaste.el b/webpaste.el
index 0ca01f0..4ab23a5 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -409,9 +409,10 @@ Optional params:
 This also depends on which provider it is since different providers might have
 different opinions of how the input for their fields should look like."
 
-  (let ((provider-lang-alist (cdr (assoc provider 
webpaste--provider-lang-alists))))
-    (let ((language-name (cdr (assoc major-mode provider-lang-alist))))
-      language-name)))
+  (unless webpaste-paste-raw-text
+    (let ((provider-lang-alist (cdr (assoc provider 
webpaste--provider-lang-alists))))
+      (let ((language-name (cdr (assoc major-mode provider-lang-alist))))
+        language-name))))
 
 
 (cl-defun webpaste--return-url (returned-url)