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

* mua: updates

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2011-08-16 07:30:47 +03:00
parent 05532894a6
commit ec996e67e4
2 changed files with 17 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
toys/mua/mua-hdrs.el
View File

@ -45,14 +45,20 @@
;; internal stuff ;; internal stuff
(defvar mua/buf "" "buffer for results data") (defvar mua/buf ""
(defvar mua/last-expression "the last search expression") "*internal* Buffer for results data.")
(defvar mua/hdrs-process "the mu-find process") (defvar mua/last-expression nil
(defvar mua/hdrs-hash nil "the bol->path hash") "*internal* The most recent search expression.")
(defvar mua/hdrs-marks-hash nil "the hash for marked messages") (defvar mua/hdrs-process nil
"*internal* The mu-find process.")
(defvar mua/hdrs-hash nil
"*internal* The bol->uid hash.")
(defvar mua/hdrs-marks-hash nil
"*internal* The hash for marked messages.")
(defconst mua/eom "\n;;eom\n" "*internal* Marker for the end of message in (defconst mua/eom "\n;;eom\n"
the mu find output.") "*internal* Marker for the end of message in the mu find
output.")
(defconst mua/hdrs-buffer-name "*mua-headers*" (defconst mua/hdrs-buffer-name "*mua-headers*"
"*internal* Name of the mua headers buffer.") "*internal* Name of the mua headers buffer.")

8
toys/mua/mua-view.el
View File

@ -167,10 +167,10 @@ For the reasoning to use UID here instead of just the path, see
(define-key map "p" 'mua/view-prev) (define-key map "p" 'mua/view-prev)
;; marking/unmarking ;; marking/unmarking
(define-key map "d" '(lambda() (mua/view-mark 'trash))) (define-key map "d" '(lambda()(interactive)(mua/view-mark 'trash)))
(define-key map "D" '(lambda() (mua/view-mark 'delete))) (define-key map "D" '(lambda()(interactive)(mua/view-mark 'delete)))
(define-key map "m" '(lambda() (mua/view-mark 'move))) (define-key map "m" '(lambda()(interactive)(mua/view-mark 'move)))
(define-key map "u" '(lambda() (mua/view-mark 'unmark))) (define-key map "u" '(lambda()(interactive)(mua/view-mark 'unmark)))
(define-key map "x" 'mua/view-marked-execute) (define-key map "x" 'mua/view-marked-execute)
map) map)
"Keymap for \"*mua-view*\" buffers.") "Keymap for \"*mua-view*\" buffers.")