diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2013-11-12 00:11:30 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2013-11-12 00:17:43 -0500 |
| commit | 6684ff2b09de77cfbb310532a99b3199ce77b5a6 (patch) | |
| tree | 9e31b11f7cbf147486facb06ce821533686e8fdf | |
| parent | aff5f50846ecc692fef07078d93e1d37c51fa435 (diff) | |
| download | emacs.d-6684ff2b09de77cfbb310532a99b3199ce77b5a6.tar.gz | |
Remove unused fetch function
| -rw-r--r-- | init/km-gnus.el | 18 |
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) |