alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* cosmetic

Browse Source
This commit is contained in:
djcb
2012-07-09 10:54:52 +03:00
parent aaf9fc1413
commit b50ebeb505
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
emacs/mu4e-compose.el
View File

@ -439,7 +439,8 @@ needed, set the Fcc header, and register the handler function."
(defun mu4e~compose-find-completion-style (some-style) (defun mu4e~compose-find-completion-style (some-style)
"Find completion style SOME-STYLE in completion-styles-alist, or return nil." "Find completion style SOME-STYLE in completion-styles-alist, or return nil."
(find-if (lambda (style) (eq some-style (car style))) completion-styles-alist)) (find-if (lambda (style) (eq some-style (car style)))
completion-styles-alist))
(defconst mu4e~completion-cycle-treshold 5 (defconst mu4e~completion-cycle-treshold 5
"mu4e value for `completion-cycle-treshold'.") "mu4e value for `completion-cycle-treshold'.")
@ -718,8 +719,8 @@ message."
(save-excursion (save-excursion
(goto-char (point-min)) (goto-char (point-min))
(search-forward-regexp mail-header-separator nil t)))) (search-forward-regexp mail-header-separator nil t))))
;; try to complete only when we're in the headers area, ;; try to complete only when we're in the headers area,
;; looking at an address field. ;; looking at an address field.
(when (and eoh (> eoh (point)) (mail-abbrev-in-expansion-header-p)) (when (and eoh (> eoh (point)) (mail-abbrev-in-expansion-header-p))
(let* ((end (point)) (let* ((end (point))
(start (start