diff --git a/mu4e/mu4e-draft.el b/mu4e/mu4e-draft.el index 839b0461..9cdd9ede 100644 --- a/mu4e/mu4e-draft.el +++ b/mu4e/mu4e-draft.el @@ -347,16 +347,17 @@ one. Code borrowed from `message-shorten-1'." (defun mu4e~fontify-signature () - "Give the message signatures a distinctive color. This is used in -the view and compose modes and will color each signature in digest messages adhering to RFC 1153." + "Give the message signatures a distinctive color. This is used +in the view and compose modes and will color each signature in +digest messages adhering to RFC 1153." (let ((inhibit-read-only t)) (save-excursion ;; give the footer a different color... (goto-char (point-min)) (while (re-search-forward "^-- *$" nil t) (let ((p (point)) - (end (or - (re-search-forward "\\(^-\\{30\\}.*$\\)" nil t) ;; 30 by RFC1153 + (end (or ;; 30 by RFC1153 + (re-search-forward "\\(^-\\{30\\}.*$\\)" nil t) (point-max)))) (add-text-properties p end '(face mu4e-footer-face))))))) diff --git a/mu4e/mu4e-message.el b/mu4e/mu4e-message.el index c82e64cb..b8d01db6 100644 --- a/mu4e/mu4e-message.el +++ b/mu4e/mu4e-message.el @@ -1,4 +1,4 @@ -;;; mu4e-message.el -- part of mu4e, the mu mail user agent -*- lexical-binding: t -*- +;;; mu4e-message.el -- part of mu4e -*- lexical-binding: t -*- ;; Copyright (C) 2012-2020 Dirk-Jan C. Binnema @@ -97,7 +97,8 @@ Like `mu4e-message-field-nil', but will sanitize nil values: - all string field except body-txt/body-html: nil -> \"\" - numeric fields + dates : nil -> 0 - all others : return the value -Thus, function will return nil for empty lists, non-existing body-txt or body-html." +Thus, function will return nil for empty lists, non-existing body-txt +or body-html." (let ((val (mu4e-message-field-raw msg field))) (cond (val