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

* mu.1: updated scripts

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2010-01-21 18:29:44 +02:00
parent b9f21e2ff6
commit b0f6913ef3
1 changed files with 14 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
man/mu.1
View File

@ -358,11 +358,11 @@ For \fBmutt\fR you can use the following in your \fImuttrc\fR; pressing the F8
key will start a search, and F9 will take you to the results. key will start a search, and F9 will take you to the results.
.nf .nf
###### mutt macros for mu # mutt macros for mu
macro index <F8> "<shell-escape>mu find -c -l ~/Maildir/search " "mu find" macro index <F8> "<shell-escape>mu find -c -l ~/Maildir/search " \
macro index <F9> "<change-folder-readonly>~/Maildir/search" "display mu find "mu find"
results" macro index <F9> "<change-folder-readonly>~/Maildir/search" \
####### "display mu find results"
.fi .fi
@ -373,18 +373,19 @@ If you use Wanderlust for \fBemacs\fR, the following definitons can be used;
typing 'Q' will start a query. typing 'Q' will start a query.
.nf .nf
;;;;;;; mu integration for Wanderlust ;; mu integration for Wanderlust
(defvar mu-wl-mu-program "mu") (defvar mu-wl-mu-program "mu")
(defvar mu-wl-search-folder "search") (defvar mu-wl-search-folder "search")
(defun mu-wl-search () (defun mu-wl-search ()
"search a maildir using `mu', and jump to a folder with the "search for messages with `mu', and jump to the results"
results"
(interactive) (interactive)
(let* ((muexpr (read-string "Find messages matching: ")) (let* ((muexpr (read-string "Find messages matching: "))
(sfldr (concat elmo-maildir-folder-path "/" mu-wl-search-folder)) (sfldr (concat elmo-maildir-folder-path "/"
mu-wl-search-folder))
(cmdline (concat mu-wl-mu-program " find " (cmdline (concat mu-wl-mu-program " find "
"--clearlinks --linksdir='" sfldr "' " muexpr))) "--clearlinks --linksdir='" sfldr "' "
muexpr)))
(= 0 (shell-command cmdline)))) (= 0 (shell-command cmdline))))
(defun mu-wl-search-and-goto () (defun mu-wl-search-and-goto ()
@ -392,17 +393,13 @@ results"
(interactive) (interactive)
(if (mu-wl-search) (if (mu-wl-search)
(wl-summary-goto-folder-subr (concat "." mu-wl-search-folder) (wl-summary-goto-folder-subr
(concat "." mu-wl-search-folder)
'force-update nil nil t) 'force-update nil nil t)
(message "Query failed"))) (message "Query failed")))
(define-key wl-summary-mode-map (kbd "Q") ;; => query
'(lambda()(interactive)(mu-wl-search-and-goto)))
(define-key wl-folder-mode-map (kbd "Q") ;; => query
'(lambda()(interactive)(mu-wl-search-and-goto)))
;;;;;;;;;;;;;
.fi .fi
.SH THE MKDIR COMMAND .SH THE MKDIR COMMAND
With the With the