diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-09-01 00:06:06 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-09-01 00:06:06 -0400 |
| commit | 4ff6da203669a3d47658d40fefb13c7ec45cf763 (patch) | |
| tree | 9e5e02784639f35fe5f1721306fd2102882c4b11 /lisp | |
| parent | ffa5bb1b560f5a71e80b4f597dde0f206fd41a25 (diff) | |
| download | emacs.d-4ff6da203669a3d47658d40fefb13c7ec45cf763.tar.gz | |
Remove sync-mail function
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/init-mail.el | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/lisp/init-mail.el b/lisp/init-mail.el index 1fd9fe8..3aa14ba 100644 --- a/lisp/init-mail.el +++ b/lisp/init-mail.el @@ -24,19 +24,6 @@ (add-hook 'kill-emacs-hook 'gnus-grace-exit-before-kill-emacs) -(defun km/sync-mail () - (interactive) - (let ((buf (get-buffer-create "*Mail sync*")) - (default-directory "~/") - (process "mail-sync")) - (with-current-buffer buf - (view-mode 1) - (goto-char (point-max))) - (display-buffer buf) - (if (process-live-p process) - (message "Mail sync process is already running") - (start-process process buf "sync-mail")))) - ;; http://www.emacswiki.org/emacs/GnusSync (defun gnus-grace-exit-before-kill-emacs () (if (and (fboundp 'gnus-alive-p) @@ -50,7 +37,6 @@ (define-key km/mail-map "g" 'gnus) (define-key km/mail-map "p" 'gnus-plugged) (define-key km/mail-map "u" 'gnus-unplugged) -(define-key km/mail-map "s" 'km/sync-mail) ;;; Gnus group buffer |