@ -560,12 +560,13 @@ appropriate flag at the message forwarded or replied-to."
|
|||||||
;; appropriate flag at the message forwarded or replied-to.
|
;; appropriate flag at the message forwarded or replied-to.
|
||||||
(add-hook 'message-sent-hook
|
(add-hook 'message-sent-hook
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(mu4e--set-parent-flags fcc-path)
|
(when fcc-path ;; hmmm... #2688
|
||||||
;; we end up with a ((buried) buffer here, visiting
|
(mu4e--set-parent-flags fcc-path)
|
||||||
;; the fcc-path; not quite sure why. But let's
|
;; we end up with a ((buried) buffer here, visiting
|
||||||
;; get rid of it (#2681)
|
;; the fcc-path; not quite sure why. But let's
|
||||||
(when-let ((buf (find-buffer-visiting fcc-path)))
|
;; get rid of it (#2681)
|
||||||
(kill-buffer buf)))
|
(when-let ((buf (find-buffer-visiting fcc-path)))
|
||||||
|
(kill-buffer buf))))
|
||||||
nil t))))
|
nil t))))
|
||||||
|
|
||||||
;;; Crypto
|
;;; Crypto
|
||||||
|
|||||||
Reference in New Issue
Block a user