From ac2b6e4585a2b9a32d0908d0092af3b005f40e65 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 8 Jun 2015 20:54:38 -0400
Subject: Switch shr-save-contents key

---
 lisp/init-mail.el | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lisp')

diff --git a/lisp/init-mail.el b/lisp/init-mail.el
index 40d46dd..725a5bd 100644
--- a/lisp/init-mail.el
+++ b/lisp/init-mail.el
@@ -175,6 +175,11 @@ to group buffer instead of moving to next group."
 (define-key gnus-summary-mode-map "j" 'km/gnus-avy-goto-subword-and-select)
 (define-key gnus-summary-mode-map "o" 'km/ace-link-widget)
 
+;; Allow `km/ace-link-widget' binding to work even when on shr widget.
+(after 'shr
+  (define-key shr-map "o" nil)
+  (define-key shr-map "O" 'shr-save-contents))
+
 (define-key gnus-article-mode-map
   (kbd "C-c l") 'km/gnus-follow-last-message-link)
 (define-key gnus-article-mode-map "e" 'km/shr-browse-url-and-goto-next)
-- 
cgit v1.2.3