diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-09-30 23:17:24 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-09-30 23:17:24 -0400 |
| commit | 03d80eb6ede8d96229ec4e2f26d41a828cff6dc6 (patch) | |
| tree | b1a19da4853941ee7eb54b015a1b6f0cb7baca9d | |
| parent | 6ea3bf5d01131fed7c3526bebc0869052b7978a0 (diff) | |
| download | emacs.d-03d80eb6ede8d96229ec4e2f26d41a828cff6dc6.tar.gz | |
init-mail.el: Move function definition
| -rw-r--r-- | lisp/init-mail.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/init-mail.el b/lisp/init-mail.el index 3ae3c4b..85dae52 100644 --- a/lisp/init-mail.el +++ b/lisp/init-mail.el @@ -86,6 +86,12 @@ is off." (call-interactively #'avy-goto-subword-1)) (gnus-summary-scroll-up 0)) +(defun km/gnus-summary-set-current-article () + (unless gnus-summary-buffer + (user-error "No summary buffer")) + (with-current-buffer gnus-summary-buffer + (save-window-excursion (gnus-summary-select-article)))) + (defun km/gnus-follow-last-message-link (copy) "Follow shr link at bottom of message. With prefix argument COPY, just copy the link." @@ -119,12 +125,6 @@ A new buffer with the patch contents is opened in another window." (view-mode 1)) (pop-to-buffer bufname))) -(defun km/gnus-summary-set-current-article () - (unless gnus-summary-buffer - (user-error "No summary buffer")) - (with-current-buffer gnus-summary-buffer - (save-window-excursion (gnus-summary-select-article)))) - (defun km/gnus-summary-catchup (&optional no-next) "Mark all articles as read. Don't ask for confirmation. With prefix argument NO-NEXT, exit |