diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-02-20 23:53:29 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-02-28 00:29:48 -0500 |
| commit | 89b1a7e0aaa7f9d1be4cadc2f366f13b07f29b65 (patch) | |
| tree | a7dccd70ebd8660308e27767c9ab344f8629e1cf /lisp/init-gnus.el | |
| parent | b4a890c2e219de2c4b247de2d6d6783b0a1bf73b (diff) | |
| download | emacs.d-89b1a7e0aaa7f9d1be4cadc2f366f13b07f29b65.tar.gz | |
sync-mail: Rename variable
Diffstat (limited to 'lisp/init-gnus.el')
| -rw-r--r-- | lisp/init-gnus.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index a5011ff..cce82b8 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -30,16 +30,16 @@ (defun km/sync-mail () (interactive) - (let ((bufname (get-buffer-create "*Mail sync*")) + (let ((buf (get-buffer-create "*Mail sync*")) (default-directory "~/") (process "mail-sync")) - (with-current-buffer bufname + (with-current-buffer buf (view-mode 1) (goto-char (point-max))) - (display-buffer bufname) + (display-buffer buf) (if (process-live-p process) (message "Mail sync process is already running") - (start-process process bufname "sync-mail")))) + (start-process process buf "sync-mail")))) ;; http://www.emacswiki.org/emacs/GnusSync (defun gnus-grace-exit-before-kill-emacs () |