diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-09-25 09:19:19 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-09-25 09:19:19 +0200 |
commit | 5b9abcba845f2f955f1466972afe9730e1a27fa6 (patch) | |
tree | a65553ab9b6a73fb2c90b463b7bfa379ac3d2114 /helm-bookmark.el | |
parent | ae993cf463acf05b929b6e554596692d4cb87e27 (diff) |
Fix setting up mail buffer when ccing.
* helm-bookmark.el (helm-bookmark-addressbook-send-mail-1): Do it.
Diffstat (limited to 'helm-bookmark.el')
-rw-r--r-- | helm-bookmark.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/helm-bookmark.el b/helm-bookmark.el index b433ffc3..ebb3010b 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -558,13 +558,11 @@ than `w3m-browse-url' use it." (bookmark (helm-bookmark-get-bookmark-from-name (car contacts))) (append (message-buffers))) - (addressbook-set-mail-buffer-1 bookmark append) + (addressbook-set-mail-buffer-1 bookmark append cc) (helm-aif (cdr contacts) - (progn - (when cc (addressbook-set-mail-buffer-1 (car it) nil cc)) - (cl-loop for bmk in (cdr it) do - (addressbook-set-mail-buffer-1 - (helm-bookmark-get-bookmark-from-name bmk) 'append cc)))))) + (cl-loop for bmk in it do + (addressbook-set-mail-buffer-1 + (helm-bookmark-get-bookmark-from-name bmk) 'append cc))))) (defun helm-bookmark-addressbook-setup-alist () "Specialized filter function for addressbook bookmarks." |