alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* minor

Browse Source
This commit is contained in:
djcb
2012-10-01 21:18:42 +03:00
parent 3e522598d2
commit 1a785abdca
3 changed files with 21 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
mu4e/mu4e-message.el
View File

@ -87,7 +87,9 @@ Some notes on the format:
:attachments. :body-txt or :body-html fields. Message in the :attachments. :body-txt or :body-html fields. Message in the
Message view use the actual message file, and do include these fields." Message view use the actual message file, and do include these fields."
;; after all this documentation, the spectacular implementation ;; after all this documentation, the spectacular implementation
(plist-get msg field)) (if msg
(plist-get msg field)
(mu4e-error "message must be non-nil")))
(defsubst mu4e-message-at-point (&optional noerror) (defsubst mu4e-message-at-point (&optional noerror)
"Get the message s-expression for the message at point in either "Get the message s-expression for the message at point in either

36
mu4e/mu4e-vars.el
View File

@ -213,13 +213,9 @@ regexp."
"Your folder for draft messages, relative to `mu4e-maildir', "Your folder for draft messages, relative to `mu4e-maildir',
e.g. \"/drafts\". Instead of a string, may also be a function that e.g. \"/drafts\". Instead of a string, may also be a function that
takes a message (a msg plist, see `mu4e-message-get-field'), and takes a message (a msg plist, see `mu4e-message-get-field'), and
returns a folder. returns a folder. Note, the message parameter refers to the
Note, the message parameter refers to the original message being replied to / being forwarded / re-edited and
original message being replied to / being forwarded / re-edited and is nil is nil otherwise. `mu4e-drafts-folder' is only evaluated once."
otherwise.
`mu4e-drafts-folder' is evaluated once when composing the message,
and the value is used throughout the message composition. When re-editing messages,
the value of `mu4e-drafts-folder' is ignored."
:type 'string :type 'string
:safe 'stringp :safe 'stringp
:group 'mu4e-folders) :group 'mu4e-folders)
@ -228,8 +224,8 @@ the value of `mu4e-drafts-folder' is ignored."
"Your folder for refiling messages, relative to `mu4e-maildir', "Your folder for refiling messages, relative to `mu4e-maildir',
e.g. \"/Archive\". Instead of a string, may also be a function that e.g. \"/Archive\". Instead of a string, may also be a function that
takes a message (a msg plist, see `mu4e-message-get-field'), and takes a message (a msg plist, see `mu4e-message-get-field'), and
returns a folder. returns a folder. Note that the message parameter refers to the
Note, the message parameter refers to the message-at-point." message-at-point."
:type 'string :type 'string
:safe 'stringp :safe 'stringp
:group 'mu4e-folders) :group 'mu4e-folders)
@ -238,12 +234,9 @@ Note, the message parameter refers to the message-at-point."
"Your folder for sent messages, relative to `mu4e-maildir', "Your folder for sent messages, relative to `mu4e-maildir',
e.g. \"/Sent Items\". Instead of a string, may also be a function e.g. \"/Sent Items\". Instead of a string, may also be a function
that takes a message (a msg plist, see `mu4e-message-get-field'), that takes a message (a msg plist, see `mu4e-message-get-field'),
and returns a folder. and returns a folder. Note that the message parameter refers to
Note, the message parameter refers to the the original message being replied to / being forwarded /
original message being replied to / being forwarded / re-edited, and is nil re-edited, and is nil otherwise."
otherwise.
`mu4e-sent-folder' is evaluated once when composing the message,
and the value is used throughout the message composition."
:type 'string :type 'string
:safe 'stringp :safe 'stringp
:group 'mu4e-folders) :group 'mu4e-folders)
@ -253,14 +246,11 @@ and the value is used throughout the message composition."
e.g. \"/trash\". Instead of a string, may also be a function that e.g. \"/trash\". Instead of a string, may also be a function that
takes a message (a msg plist, see `mu4e-message-get-field'), and takes a message (a msg plist, see `mu4e-message-get-field'), and
returns a folder. When using `mu4e-trash-folder' in the headers returns a folder. When using `mu4e-trash-folder' in the headers
view (when marking messages for trash). view (when marking messages for trash). Note that the message
Note, the message parameter parameter refers to the message-at-point. When using it when
refers to the message-at-point. When using it when composing a composing a message (see `mu4e-sent-messages-behavior'), this
message (see `mu4e-sent-messages-behavior'), this refers to the refers to the original message being replied to / being forwarded /
original message being replied to / being forwarded / re-edited, and is nil re-edited, and is nil otherwise."
otherwise.
`mu4e-trash-folder' is evaluated once when composing the message,
and the value is used throughout the message composition."
:type 'string :type 'string
:safe 'stringp :safe 'stringp
:group 'mu4e-folders) :group 'mu4e-folders)

16
mu4e/mu4e-view.el
View File

@ -501,12 +501,12 @@ at POINT, or if nil, at (point)."
(define-key map "a" 'mu4e-view-action) (define-key map "a" 'mu4e-view-action)
;; change the number of headers ;; change the number of headers
(define-key map (kbd "C-+") 'mu4e~view-split-view-resize) (define-key map (kbd "C-+") 'mu4e-headers-split-view-resize)
(define-key map (kbd "C--") (define-key map (kbd "C--")
(lambda () (interactive) (mu4e~view-split-view-resize -1))) (lambda () (interactive) (mu4e-headers-split-view-resize -1)))
(define-key map (kbd "<C-kp-add>") 'mu4e~view-split-view-resize) (define-key map (kbd "<C-kp-add>") 'mu4e-headers-split-view-resize)
(define-key map (kbd "<C-kp-subtract>") (define-key map (kbd "<C-kp-subtract>")
(lambda () (interactive) (mu4e~view-split-view-resize -1))) (lambda () (interactive) (mu4e-headers-split-view-resize -1)))
;; intra-message navigation ;; intra-message navigation
(define-key map (kbd "SPC") 'scroll-up) (define-key map (kbd "SPC") 'scroll-up)
@ -1054,14 +1054,6 @@ attachments) in response to a (mu4e~proc-extract 'temp ... )."
"Return t if we're in split-view, nil otherwise." "Return t if we're in split-view, nil otherwise."
(member mu4e-split-view '(horizontal vertical))) (member mu4e-split-view '(horizontal vertical)))
(defun mu4e~view-split-view-resize (n)
"In horizontal split-view, increase the number of lines shown by
N; in vertical split-view, increase the number of columns shown by
N. Otherwise, don't do anything."
(interactive "P")
(mu4e~view-in-headers-context
(mu4e-headers-split-view-resize n)))
(defun mu4e-view-unmark-all () (defun mu4e-view-unmark-all ()
"If we're in split-view, unmark all messages. Otherwise, warn "If we're in split-view, unmark all messages. Otherwise, warn
user that unmarking only works in the header list." user that unmarking only works in the header list."