summaryrefslogtreecommitdiff
path: root/init
diff options
context:
space:
mode:
Diffstat (limited to 'init')
-rw-r--r--init/km-gnus.el18
1 files changed, 0 insertions, 18 deletions
diff --git a/init/km-gnus.el b/init/km-gnus.el
index d257d69..9199a0f 100644
--- a/init/km-gnus.el
+++ b/init/km-gnus.el
@@ -141,24 +141,6 @@
(setq footnote-section-tag "")
-(defun km/gnus-other-frame-always-fetch (arg)
- "Run `gnus-other-frame' and always fetch level ARG.
-The default behavior of `gnus-other-frame' is to fetch level ARG
-only if gnus is not yet started. Otherwise, it will just switch
-to a gnus frame. This function calls `gnus-other-frame', but
-fetches level ARG regardless of whether gnus was already running"
- (interactive "P")
- (let ((need-fetch (gnus-alive-p)))
- (gnus-other-frame arg)
- (when need-fetch
- (gnus-group-get-new-news arg))))
-
-;; only check level one (mail)
-(global-unset-key (kbd "C-x m"))
-(global-set-key (kbd "C-x m") '(lambda ()
- (interactive)
- (km/gnus-other-frame-always-fetch 1)))
-
;; modified from
;; http://emacs-fu.blogspot.com/2008/12/some-simple-tricks-boxquote-footnote.html
(defun km/snip-mail-quote (beg end &optional quote-char no-number)