mu4e: Fix indentation

This commit is contained in:
Jonas Bernoulli
2020-02-11 12:00:46 +01:00
parent be1ba1ce68
commit 6790c0d015
18 changed files with 3284 additions and 3285 deletions

View File

@ -1,4 +1,4 @@
; mu4e-context.el -- part of mu4e, the mu mail user agent -*- lexical-binding: t -*- ;;; mu4e-context.el -- part of mu4e, the mu mail user agent -*- lexical-binding: t -*-
;; ;;
;; Copyright (C) 2015-2020 Dirk-Jan C. Binnema ;; Copyright (C) 2015-2020 Dirk-Jan C. Binnema

View File

@ -132,7 +132,7 @@ For example for bogofile, use \"/usr/bin/bogofilter -Sn < %s\"")
(let* ((path (shell-quote-argument (mu4e-message-field msg :path))) (let* ((path (shell-quote-argument (mu4e-message-field msg :path)))
(command (format mu4e-register-as-spam-cmd path))) ;; re-register msg as spam (command (format mu4e-register-as-spam-cmd path))) ;; re-register msg as spam
(shell-command command)) (shell-command command))
(mu4e-mark-at-point 'delete nil)) (mu4e-mark-at-point 'delete nil))
(defun mu4e-register-msg-as-ham (msg) (defun mu4e-register-msg-as-ham (msg)
"Mark message as ham." "Mark message as ham."
@ -140,7 +140,7 @@ For example for bogofile, use \"/usr/bin/bogofilter -Sn < %s\"")
(let* ((path (shell-quote-argument(mu4e-message-field msg :path))) (let* ((path (shell-quote-argument(mu4e-message-field msg :path)))
(command (format mu4e-register-as-ham-cmd path))) ;; re-register msg as ham (command (format mu4e-register-as-ham-cmd path))) ;; re-register msg as ham
(shell-command command)) (shell-command command))
(mu4e-mark-at-point 'something nil)) (mu4e-mark-at-point 'something nil))
;; (add-to-list 'mu4e-view-actions ;; (add-to-list 'mu4e-view-actions
;; '("sMark as spam" . mu4e-view-register-msg-as-spam) t) ;; '("sMark as spam" . mu4e-view-register-msg-as-spam) t)
@ -205,7 +205,7 @@ buffers found, compose a new message and then attach the file."
;; if buffer was found, set buffer to destination buffer, and attach files ;; if buffer was found, set buffer to destination buffer, and attach files
(if (not (eq destination 'nil)) (if (not (eq destination 'nil))
(progn (set-buffer destination) (progn (set-buffer destination)
(goto-char (point-max)) ;attach at end of buffer (goto-char (point-max)) ; attach at end of buffer
(while files-to-attach (while files-to-attach
(mml-attach-file (car files-to-attach) (mml-attach-file (car files-to-attach)
(or (mm-default-file-encoding (car files-to-attach)) (or (mm-default-file-encoding (car files-to-attach))

View File

@ -71,9 +71,8 @@
"Major mode for the mu4e main screen. "Major mode for the mu4e main screen.
\\{mu4e-main-mode-map}." \\{mu4e-main-mode-map}."
(use-local-map mu4e-main-mode-map) (use-local-map mu4e-main-mode-map)
(setq (setq truncate-lines t)
truncate-lines t (setq overwrite-mode 'overwrite-mode-binary)
overwrite-mode 'overwrite-mode-binary)
;; show context in mode-string ;; show context in mode-string
(make-local-variable 'global-mode-string) (make-local-variable 'global-mode-string)

View File

@ -103,7 +103,7 @@ corresponding message file in the filesystem.
Having this option as t ensures that no non-existing messages are Having this option as t ensures that no non-existing messages are
shown but can also be quite slow with large message stores." shown but can also be quite slow with large message stores."
:type 'boolean :group 'mu4e :safe 'booleanp) :type 'boolean :group 'mu4e :safe 'booleanp)
(defcustom mu4e-index-lazy-check nil (defcustom mu4e-index-lazy-check nil
"Whether to only use a 'lazy check' during reindexing. "Whether to only use a 'lazy check' during reindexing.
@ -434,7 +434,7 @@ Useful when this is not equal to the From: address."
;; backward compatibility ;; backward compatibility
(make-obsolete-variable 'mu4e-reply-to-address (make-obsolete-variable 'mu4e-reply-to-address
'mu4e-compose-reply-to-address 'mu4e-compose-reply-to-address
"v0.9.9") "v0.9.9")
(defcustom mu4e-compose-keep-self-cc nil (defcustom mu4e-compose-keep-self-cc nil
@ -741,24 +741,24 @@ mu4e-compose-mode."
;; headers info ;; headers info
(defconst mu4e-header-info (defconst mu4e-header-info
'( (:attachments . '( (:attachments
( :name "Attachments" . ( :name "Attachments"
:shortname "Atts" :shortname "Atts"
:help "Message attachments" :help "Message attachments"
:require-full t :require-full t
:sortable nil)) :sortable nil))
(:bcc . (:bcc
( :name "Bcc" . ( :name "Bcc"
:shortname "Bcc" :shortname "Bcc"
:help "Blind Carbon-Copy recipients for the message" :help "Blind Carbon-Copy recipients for the message"
:sortable t)) :sortable t))
(:cc . (:cc
( :name "Cc" . ( :name "Cc"
:shortname "Cc" :shortname "Cc"
:help "Carbon-Copy recipients for the message" :help "Carbon-Copy recipients for the message"
:sortable t)) :sortable t))
(:date . (:date
( :name "Date" . ( :name "Date"
:shortname "Date" :shortname "Date"
:help "Date/time when the message was written" :help "Date/time when the message was written"
:sortable t)) :sortable t))
@ -881,7 +881,7 @@ Note, `:sortable' is not supported for custom header fields.")
(format "%d" (format "%d"
(+ (length (mu4e-message-field msg :to)) (+ (length (mu4e-message-field msg :to))
(length (mu4e-message-field msg :cc)))))))) (length (mu4e-message-field msg :cc))))))))
"A list of custom (user-defined) headers. "A list of custom (user-defined) headers.
The format is similar The format is similar
to `mu4e-header-info', but adds a :function property, which to `mu4e-header-info', but adds a :function property, which
should point to a function that takes a message p-list as should point to a function that takes a message p-list as
@ -897,7 +897,7 @@ argument, and returns a string. See the default value of
(defconst mu4e~headers-buffer-name "*mu4e-headers*" (defconst mu4e~headers-buffer-name "*mu4e-headers*"
"Name of the buffer for message headers.") "Name of the buffer for message headers.")
; view ;; view
(defconst mu4e~view-buffer-name "*mu4e-view*" (defconst mu4e~view-buffer-name "*mu4e-view*"
"Name for the message view buffer.") "Name for the message view buffer.")

View File

@ -1069,7 +1069,7 @@ return nil."
(mu4e-headers-view-message))) (mu4e-headers-view-message)))
(defun mu4e-view-headers-prev-unread () (defun mu4e-view-headers-prev-unread ()
"Move point to the previous unread message header in the headers "Move point to the previous unread message header in the headers
buffer connected with this message view. If this succeeds, return buffer connected with this message view. If this succeeds, return
the new docid. Otherwise, return nil." the new docid. Otherwise, return nil."
(interactive) (interactive)