[gnus git] branch master updated: m0-7-60-g2853e5f =1= (eww-submit): Support POST.

       via  2853e5f27f4f275f9618f9d3f1af206f554be63c (commit)
      from  2e0d1f2c9525f8b3d8a2bbbcc8db5395791ec177 (commit)


- Log -----------------------------------------------------------------
commit 2853e5f27f4f275f9618f9d3f1af206f554be63c
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Tue Jun 11 04:20:24 2013 +0200

    (eww-submit): Support POST.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7583c8c..3765033 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2013-06-11  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* eww.el (eww-tag-input): Support password fields.
+	(eww-submit): Support POST.
 
 2013-06-10  Lars Magne Ingebrigtsen  <[email protected]>
 
diff --git a/lisp/eww.el b/lisp/eww.el
index f7dfa7d..ca7b8c0 100644
--- a/lisp/eww.el
+++ b/lisp/eww.el
@@ -281,11 +281,13 @@
 		    (plist-get (cdr elem) :value))
 	      values)))
     (let ((shr-base eww-current-url))
-      (if (and (stringp (plist-get form :method))
-	       (equal (downcase (plist-get form :method)) "post"))
+      (if (and (stringp (cdr (assq :method form)))
+	       (equal (downcase (cdr (assq :method form))) "post"))
 	  (let ((url-request-method "POST")
+		(url-request-extra-headers
+		 '(("Content-Type" . "application/x-www-form-urlencoded")))
 		(url-request-data (mm-url-encode-www-form-urlencoded values)))
-	    (eww-browse-url (shr-expand-url (plist-get form :action))))
+	    (eww-browse-url (shr-expand-url (cdr (assq :action form)))))
 	(eww-browse-url
 	 (shr-expand-url
 	  (concat

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    1 +
 lisp/eww.el    |    8 +++++---
 2 files changed, 6 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project