Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d583b36b
Commit
d583b36b
authored
Jun 11, 2013
by
Lars Magne Ingebrigtsen
Committed by
Katsumi Yamaoka
Jun 11, 2013
Browse files
lisp/gnus/eww.el (eww-tag-input): Support password fields
(eww-submit): Support POST
parent
c6bc7508
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
3 deletions
+12
-3
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+5
-0
lisp/gnus/eww.el
lisp/gnus/eww.el
+7
-3
No files found.
lisp/gnus/ChangeLog
View file @
d583b36b
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>
* eww.el (eww-tag-form): Protect against degenerate forms.
...
...
lisp/gnus/eww.el
View file @
d583b36b
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment