diff --git a/mu4e/mu4e-helpers.el b/mu4e/mu4e-helpers.el index e2718bbb..9b555e16 100644 --- a/mu4e/mu4e-helpers.el +++ b/mu4e/mu4e-helpers.el @@ -34,7 +34,7 @@ (require 'mu4e-window) (require 'mu4e-config) - + ;;; Customization (defcustom mu4e-debug nil @@ -46,7 +46,7 @@ "Function to be used to receive user-input during completion. Suggested possible values are: - * `completing-read': emacs built-in completion method + * `completing-read': Emacs' built-in completion method * `ido-completing-read': dynamic completion within the minibuffer. The function is used in two contexts - @@ -109,8 +109,6 @@ marked as read-only, or non-nil otherwise." function) :group 'mu4e-view) - - (defun mu4e-select-other-view () "Switch between headers view and message view." (interactive) @@ -121,14 +119,12 @@ marked as read-only, or non-nil otherwise." ((mu4e-current-buffer-type-p 'headers) (mu4e-get-view-buffer)) (t (mu4e-error - "This window is neither the headers nor the view window.")))) + "This window is neither the headers nor the view window")))) (other-win (and other-buf (get-buffer-window other-buf)))) (if (window-live-p other-win) (select-window other-win) (mu4e-message "No window to switch to")))) - - ;;; Messages, warnings and errors (defun mu4e-format (frm &rest args) "Create [mu4e]-prefixed string based on format FRM and ARGS." @@ -216,7 +212,7 @@ after trying an exact match. Return the matching choice value (cdr of the cell)." (let* ((metadata `(metadata (display-sort-function . ,#'identity) - (cycle-sort-function . ,#'identity))) + (cycle-sort-function . ,#'identity))) (quick-result) (result (minibuffer-with-setup-hook @@ -248,7 +244,7 @@ Return the matching choice value (cdr of the cell)." "Read and return one of CHOICES, prompting for PROMPT. PROMPT describes a multiple-choice question to the user. CHOICES -is an alist of the fiorm +is an alist of the form ( ( ( . )) ... ) Any input that is not one of CHOICES is ignored. This is mu4e's @@ -324,7 +320,6 @@ Function returns the value (cdr) of the matching cell." (characterp (plist-get item :key))) lst)) - ;;; Logging / debugging (defconst mu4e--log-max-size 1000000 @@ -400,8 +395,6 @@ log-buffer. See `mu4e-show-log'." (mu4e-warn "No debug log available")) (display-buffer buf))) - - ;;; Flags ;; Converting flags->string and vice-versa @@ -450,7 +443,6 @@ http://cr.yp.to/proto/maildir.html." (_ nil)))) str)))) - ;;; Misc (defun mu4e-copy-thing-at-point () "Copy e-mail address or URL at point to the kill ring. @@ -528,7 +520,7 @@ Or go to the top level if there is none." ('mu4e-view-mode "(mu4e)Message view") (_ "mu4e")))) - + ;;; bookmarks (defun mu4e--make-bookmark-record () "Create a bookmark for the message at point." @@ -553,14 +545,12 @@ Or go to the top level if there is none." (when-let ((msgid (bookmark-prop-get bookmark 'message-id))) (mu4e-view-message-with-message-id msgid))) - ;;; Macros +;;; Macros (defmacro mu4e-setq-if-nil (var val) "Set VAR to VAL if VAR is nil." `(unless ,var (setq ,var ,val))) - - ;;; Misc (defun mu4e-join-paths (directory &rest components) "Append COMPONENTS to DIRECTORY and return the resulting string.