From 7feb46a375e072b361f08e9d799f20ac4b50f279 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 10 Mar 2015 00:14:33 -0400 Subject: Switch from ido to helm --- lisp/init-gnus.el | 21 --------------------- 1 file changed, 21 deletions(-) (limited to 'lisp/init-gnus.el') diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index 8782534..e556b53 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -75,27 +75,6 @@ is off." (string< (gnus-group-topic (gnus-info-group info1)) (gnus-group-topic (gnus-info-group info2)))) -(defun km/gnus-group-jump-to-group () - "`gnus-group-jump-to-group', but with ido completion." - (interactive) - (gnus-group-jump-to-group - (ido-completing-read "Group: " - (mapcar #'car (cdr gnus-newsrc-alist)) - nil t))) - -(defun km/gnus-topic-jump-to-topic () - "`gnus-group-jump-to-group', but with ido completion." - (interactive) - (gnus-topic-jump-to-topic - (ido-completing-read "Topic: " - (mapcar #'car gnus-topic-alist) - nil t))) - -(define-key gnus-group-mode-map [remap gnus-group-jump-to-group] - 'km/gnus-group-jump-to-group) -(define-key gnus-group-mode-map [remap gnus-topic-jump-to-topic] - 'km/gnus-topic-jump-to-topic) - (define-key gnus-group-mode-map "e" 'gnus-group-select-group) -- cgit v1.2.3