emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* mu4e: fix header shrinking/growing

This commit is contained in:
djcb 2013-05-05 16:18:59 +03:00
parent 5b8cc54c69
commit 2f60f33dc8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mu4e/mu4e-headers.el
View File

@ -1360,7 +1360,7 @@ maildir)."
(mu4e-mark-handle-when-leaving)
(mu4e-headers-search (concat "\"maildir:" maildir "\""))))
(defun mu4e-headers-split-view-grow (n)
(defun mu4e-headers-split-view-grow (&optional n)
"In split-view, grow the headers window.
In horizontal split-view, increase the number of lines shown by N.
In vertical split-view, increase the number of columns shown by N.
@ -1380,14 +1380,14 @@ do nothing."
(window-resize hwin n t)
(incf mu4e-headers-visible-columns n)))))))
(defun mu4e-headers-split-view-shrink (n)
(defun mu4e-headers-split-view-shrink (&optional n)
"In split-view, shrink the headers window.
In horizontal split-view, decrease the number of lines shown by N.
In vertical split-view, decrease the number of columns shown by N.
If N is negative grow the headers window.
When not in split-view do nothing."
If N is negative grow the headers window. When not in split-view
do nothing."
(interactive "P")
(mu4e-headers-split-view-grow (- n)))
(mu4e-headers-split-view-grow (- (or n 1))))
(defun mu4e-headers-action ()
"Ask user what to do with message-at-point, then do it.