From d37a90466c27af9df6353aa3ec10821d8986384d Mon Sep 17 00:00:00 2001 From: Nathan Aclander Date: Sat, 3 Jun 2017 00:40:24 -0700 Subject: [PATCH] Fix POST bug for several providers Due to the specifial handling for syntax, some providers would have an extra POST parameter, which then caused some providers to reject the paste upload completely. This change makes it so that if a provider doesn't specify special language rules, don't try to add a syntax POST parameter. --- 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.")