[nongnu] elpa/webpaste 59fd22f 161/298: Merge branch 'naclander-POST-bug'

[ELPA Syncer]

branch: elpa/webpaste
commit 59fd22fcbdcd1df89631d3b80b16c615dfa36803
Merge: 865ff10 d37a904
Author: Elis Axelsson <elis.axelsson@gmail.com>
Commit: Elis Axelsson <elis.axelsson@gmail.com>

    Merge branch 'naclander-POST-bug'
---
 webpaste.el | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/webpaste.el b/webpaste.el
index 73c14e8..c1216e1 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -152,13 +152,9 @@ precalculated, and also available both for pre and post 
request access.")
                  (let ((provider-lang-alist (cdr (assoc provider-uri 
webpaste/provider-lang-alists))))
                    ;; Fetch language name for this major mode for this provider
                    (let ((language-name (cdr (assoc major-mode 
provider-lang-alist))))
-                     ;; If not set correctly, get the fundamental-mode one 
which should be plaintext
-                     (unless language-name
-                       (setq language-name (cdr (assoc 'fundamental-mode 
provider-lang-alist))))
-
-                     ;; Append language to the post-data
-                     (cl-pushnew (cons post-lang-field-name language-name) 
post-data)))
-
+                     (if (and post-lang-field-name language-name)
+                       ;; Append language to the post-data
+                       (cl-pushnew (cons post-lang-field-name language-name) 
post-data))))
                  post-data))
   "Predefined lambda for building post fields.")