mu4e: Fix indentation
This commit is contained in:
@ -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
|
||||||
|
|
||||||
|
|||||||
@ -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))
|
||||||
|
|||||||
@ -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)
|
||||||
|
|||||||
@ -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.")
|
||||||
|
|
||||||
|
|||||||
@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user