emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e: special-case empty hostnames 

Fixes #1108
This commit is contained in:
djcb 2017-08-27 15:44:23 +03:00
parent ceb7f0a8b4
commit e09419f85b
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mu4e/mu4e-draft.el
View File

@ -304,8 +304,9 @@ separator is never written to the message file. Also see
(if (search-forward-regexp "^$" nil t)
(progn
(replace-match sepa)
;; `message-narrow-to-headers` searches for a `mail-header-separator` followed by a new
;; line. Therefore, we must insert a newline if on the last line of the buffer.
;; `message-narrow-to-headers` searches for a
;; `mail-header-separator` followed by a new line. Therefore, we
;; must insert a newline if on the last line of the buffer.
(when (= (point) (point-max))
(insert "\n")))
(progn ;; no empty line? then prepend one
@ -347,6 +348,7 @@ You can append flags."
(let* ((sysname (if (fboundp 'system-name)
(system-name)
(with-no-warnings system-name)))
(sysname (if (string= sysname "") "localhost" sysname))
(hostname (downcase
(save-match-data
(substring sysname