diff --git a/emacs/mu4e-utils.el b/emacs/mu4e-utils.el index 6ffe125e..2ba8dc0e 100644 --- a/emacs/mu4e-utils.el +++ b/emacs/mu4e-utils.el @@ -120,7 +120,7 @@ user can then choose by typing CHAR. Example: '((\"Monkey\" ?m) (\"Gnu\" ?g) (\"platipus\"))) User now will be presented with a list: \"Choose an animal: [m]Monkey, [g]Gnu, [p]latipus\"." - (let* ((options (mu4e~read-option-normalize-list options)) + (let* ((options (mu4e~read-option-normalize-list options)) (prompt (mu4e-format "%s" prompt)) (chosen) (optionsstr @@ -144,7 +144,7 @@ User now will be presented with a list: (map 'list (lambda(elm) (nth 1 elm)) options))) ;; the allowable chars (chosen (find-if (lambda (option) (eq response (nth 1 option))) options))) - (nth 2 chosen))) + (nth 2 chosen))) (defun mu4e~get-maildirs-1 (path &optional mdir) @@ -170,7 +170,7 @@ paths." (add-to-list 'maildirs (if mdir mdir "/") t))) (setq maildirs (append maildirs (mu4e~get-maildirs-1 path (concat mdir "/" dir))))) - maildirs)) + maildirs)) (defun mu4e-get-maildirs (path) @@ -211,7 +211,7 @@ maildirs under `mu4e-maildir." (ido-completing-read prompt (mu4e-get-maildirs mu4e-maildir)) (or (car-safe (find-if (lambda (item) (= kar (cdr item))) mu4e-maildir-shortcuts)) - (error "Invalid shortcut '%c'" kar))))))) + (error "Invalid shortcut '%c'" kar))))))) (defun mu4e-ask-maildir-check-exists (prompt) @@ -224,7 +224,7 @@ and offer to create it if it does not exist yet." (mu4e-format "%s does not exist. Create now?" fullpath)) (mu4e~proc-mkdir fullpath))) mdir)) - + (defun mu4e-mark-for-move-set (&optional target) "Mark message at point or, if region is active, all messages in @@ -273,7 +273,7 @@ KAR, or raise an error if none is found." (if chosen-bm (nth 0 chosen-bm) (error "Invalid shortcut '%c'" kar)))) - + ;;; converting flags->string and vice-versa ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun mu4e~flags-to-string-raw (flags) @@ -399,7 +399,7 @@ top level if there is none." ('mu4e-view-mode "(mu4e)Message view") (t "mu4e")))) - + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun mu4e-msg-field (msg field) @@ -483,7 +483,7 @@ that has a live window), and vice versa." (mu4e-message "No window to switch to")))) -(defconst mu4e-output-buffer-name "*mu4e-output" +(defconst mu4e-output-buffer-name "*mu4e-output*" "*internal* Name of the mu4e output buffer.") (defun mu4e-process-file-through-pipe (path pipecmd) @@ -505,7 +505,7 @@ that has a live window), and vice versa." process." (let ((type (plist-get info :info))) (cond - ((eq type 'add) t) ;; do nothing + ((eq type 'add) t) ;; do nothing ((eq type 'index) (if (eq (plist-get info :status) 'running) (mu4e-message "Indexing... processed %d, updated %d" @@ -579,7 +579,7 @@ split-window." (error "%S must start with a '/'" dir)) (unless (mu4e-create-maildir-maybe path) (error "%s (%S) does not exist" path var))))) - + (defun mu4e~start (&optional func) "If mu4e is already running, execute function FUNC (if non-nil). Otherwise, @@ -613,15 +613,12 @@ FUNC (if non-nil) afterwards." (mu4e~proc-ping))) (defun mu4e~stop () - "Quit the mu4e session." - (interactive) - (when (y-or-n-p (mu4e-format "Are you sure you want to quit?")) - (message nil) - (when mu4e-update-timer - (cancel-timer mu4e-update-timer) - (setq mu4e-update-timer nil)) - (mu4e~proc-kill) - (kill-buffer))) + "Stop the mu4e session." + (when mu4e-update-timer + (cancel-timer mu4e-update-timer) + (setq mu4e-update-timer nil)) + (mu4e~proc-kill) + (kill-buffer)) (defvar mu4e-update-timer nil "*internal* The mu4e update timer.") diff --git a/emacs/mu4e.el b/emacs/mu4e.el index a9833cc1..5be2adcd 100644 --- a/emacs/mu4e.el +++ b/emacs/mu4e.el @@ -73,7 +73,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun mu4e () +(defun mu4e () "Start mu4e." (interactive) ;; start mu4e, then show the main view @@ -82,7 +82,7 @@ (defun mu4e-quit() "Quit the mu4e session." (interactive) - (when (y-or-n-p "Are you sure you want to quit? ") + (when (y-or-n-p (mu4e-format "Are you sure you want to quit?")) (mu4e~stop))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;