[Emacs-diffs] trunk r112919: lisp/gnus/eww.el (eww-tag-input): Support password fields

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 112919
revision-id: address@hidden
parent: address@hidden
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2013-06-11 03:09:59 +0000
message:
  lisp/gnus/eww.el (eww-tag-input): Support password fields
  (eww-submit): Support POST
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/eww.el               eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-06-10 22:28:35 +0000
+++ b/lisp/gnus/ChangeLog       2013-06-11 03:09:59 +0000
@@ -1,3 +1,8 @@
+2013-06-11  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * eww.el (eww-tag-input): Support password fields.
+       (eww-submit): Support POST.
+
 2013-06-10  Lars Magne Ingebrigtsen  <address@hidden>
 
        * eww.el (eww-tag-form): Protect against degenerate forms.

=== modified file 'lisp/gnus/eww.el'
--- a/lisp/gnus/eww.el  2013-06-10 22:28:35 +0000
+++ b/lisp/gnus/eww.el  2013-06-11 03:09:59 +0000
@@ -32,6 +32,7 @@
 (defvar eww-current-url nil)
 (defvar eww-history nil)
 
+;;;###autoload
 (defun eww (url)
   "Fetch URL and render the page."
   (interactive "sUrl: ")
@@ -213,6 +214,7 @@
                    (or (cdr (assq :size cont))
                        "40"))
             :value (or (cdr (assq :value cont)) "")
+            :secret (and (equal type "password") ?*)
             :action 'eww-submit
             :name (cdr (assq :name cont))
             :eww-form eww-form)))))
@@ -279,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