summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-09-30 23:17:24 -0400
committerKyle Meyer <kyle@kyleam.com>2015-09-30 23:17:24 -0400
commit03d80eb6ede8d96229ec4e2f26d41a828cff6dc6 (patch)
treeb1a19da4853941ee7eb54b015a1b6f0cb7baca9d
parent6ea3bf5d01131fed7c3526bebc0869052b7978a0 (diff)
downloademacs.d-03d80eb6ede8d96229ec4e2f26d41a828cff6dc6.tar.gz
init-mail.el: Move function definition
-rw-r--r--lisp/init-mail.el12
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