Skip to content

Commit

Permalink
No commit message
Browse files Browse the repository at this point in the history
  • Loading branch information
tv.raman.tv@bb5eec90-091a-0410-bc89-db79c2cf2c7b committed May 12, 2014
1 parent 1e6357a commit f13a826
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions lisp/emacspeak-eww.el
Original file line number Diff line number Diff line change
Expand Up @@ -357,7 +357,9 @@ If we came from a url-template, reload that template."
(defadvice url-http-user-agent-string (around emacspeak pre act comp)
"Respond to user asking us to masquerade."
(cond
(emacspeak-eww-masquerade (setq ad-return-value emacspeak-eww-masquerade-as))
((and emacspeak-eww-masquerade
(eq browse-url-browser-function 'eww-browse-url))
(setq ad-return-value emacspeak-eww-masquerade-as))
(t (setq ad-return-value "User-Agent: URL/Emacs \r\n"))))


Expand All @@ -371,7 +373,7 @@ If we came from a url-template, reload that template."
shr-inhibit-images
emacspeak-pronounce-common-xml-namespace-uri-pronunciations
emacspeak-eww-masquerade emacspeak-pronounce-load-pronunciations-on-startup))
(unless emacspeak-eww-masquerade (emacspeak-eww-masquerade))
;(unless emacspeak-eww-masquerade (emacspeak-eww-masquerade))
(when emacspeak-pronounce-load-pronunciations-on-startup
(emacspeak-pronounce-augment-pronunciations
'eww-mode emacspeak-pronounce-common-xml-namespace-uri-pronunciations)
Expand Down

0 comments on commit f13a826

Please sign in to comment.