(eww-submit): Support POST.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7583c8c..3765033 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2013-06-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * eww.el (eww-tag-input): Support password fields.
+       (eww-submit): Support POST.
 
 2013-06-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/eww.el b/lisp/eww.el
index f7dfa7d..ca7b8c0 100644 (file)
--- 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