mirror of https://github.com/djcb/mu.git
mu4e-compose: restore mu4e-compose-goto-(bottom|top)
Bring back from 1.10.
This commit is contained in:
parent
fdce40af92
commit
c45bdca83b
|
@ -207,6 +207,45 @@ Messages are captured with `mu4e-action-capture-message'."
|
||||||
"attachment")
|
"attachment")
|
||||||
(mu4e-warn "No valid message has been captured")))
|
(mu4e-warn "No valid message has been captured")))
|
||||||
|
|
||||||
|
;; Go to bottom / top
|
||||||
|
|
||||||
|
(defun mu4e-compose-goto-top (&optional arg)
|
||||||
|
"Go to the beginning of the message or buffer.
|
||||||
|
Go to the beginning of the message or, if already there, go to
|
||||||
|
the beginning of the buffer.
|
||||||
|
|
||||||
|
Push mark at previous position, unless either a
|
||||||
|
\\[universal-argument] prefix is supplied, or Transient Mark mode
|
||||||
|
is enabled and the mark is active."
|
||||||
|
(interactive "P")
|
||||||
|
(or arg
|
||||||
|
(region-active-p)
|
||||||
|
(push-mark))
|
||||||
|
(let ((old-position (point)))
|
||||||
|
(message-goto-body)
|
||||||
|
(when (equal (point) old-position)
|
||||||
|
(goto-char (point-min)))))
|
||||||
|
|
||||||
|
(defun mu4e-compose-goto-bottom (&optional arg)
|
||||||
|
"Go to the end of the message or buffer.
|
||||||
|
Go to the end of the message (before signature) or, if already
|
||||||
|
there, go to the end of the buffer.
|
||||||
|
|
||||||
|
Push mark at previous position, unless either a
|
||||||
|
\\[universal-argument] prefix is supplied, or Transient Mark mode
|
||||||
|
is enabled and the mark is active."
|
||||||
|
(interactive "P")
|
||||||
|
(or arg
|
||||||
|
(region-active-p)
|
||||||
|
(push-mark))
|
||||||
|
(let ((old-position (point))
|
||||||
|
(message-position (save-excursion (message-goto-body) (point))))
|
||||||
|
(goto-char (point-max))
|
||||||
|
(when (re-search-backward message-signature-separator message-position t)
|
||||||
|
(forward-line -1))
|
||||||
|
(when (equal (point) old-position)
|
||||||
|
(goto-char (point-max)))))
|
||||||
|
|
||||||
(defun mu4e-compose-context-switch (&optional force name)
|
(defun mu4e-compose-context-switch (&optional force name)
|
||||||
"Change the context for the current draft message.
|
"Change the context for the current draft message.
|
||||||
|
|
||||||
|
@ -569,7 +608,11 @@ buffers; lets remap its faces so it uses the ones for mu4e."
|
||||||
(define-key map (kbd "C-S-u") #'mu4e-update-mail-and-index)
|
(define-key map (kbd "C-S-u") #'mu4e-update-mail-and-index)
|
||||||
(define-key map (kbd "C-c C-u") #'mu4e-update-mail-and-index)
|
(define-key map (kbd "C-c C-u") #'mu4e-update-mail-and-index)
|
||||||
(define-key map (kbd "C-c ;") #'mu4e-compose-context-switch)
|
(define-key map (kbd "C-c ;") #'mu4e-compose-context-switch)
|
||||||
;; remove some unsupported commands... [remap ..] does not work here
|
|
||||||
|
(keymap-set map "<remap> <beginning-of-buffer>" #'mu4e-compose-goto-top)
|
||||||
|
(keymap-set map "<remap> <end-of-buffer>" #'mu4e-compose-goto-bottom)
|
||||||
|
|
||||||
|
;; remove some unsupported commands... [remap ..] does not work here
|
||||||
;; XXX remove from menu, too.
|
;; XXX remove from menu, too.
|
||||||
(define-key map (kbd "C-c C-f C-n") nil) ;; message-goto-newsgroups
|
(define-key map (kbd "C-c C-f C-n") nil) ;; message-goto-newsgroups
|
||||||
(define-key map (kbd "C-c C-n") nil) ;; message-insert-newsgroups
|
(define-key map (kbd "C-c C-n") nil) ;; message-insert-newsgroups
|
||||||
|
|
Loading…
Reference in New Issue