summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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