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

* mua updates

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2011-08-11 20:20:40 +03:00
parent e55eb4ed25
commit 18f0ec7437
9 changed files with 150 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
toys/mua/mua-view.el
View File

@ -75,9 +75,15 @@ buffer."
\"cur/\" (if it's not yet there), and setting the \"S\" flag."
(let ((flags (mua/maildir-flags-from-path path)))
(unless (member 'seen flags) ;; do we need to do something?
(let ((newflags (delq 'new (cons 'seen flags)))
(newpath (mua/maildir-from-path path t)))
(unless (mua/msg-move path newpath newflags)
(let* ((newflags (delq 'new (cons 'seen flags)))
(target (mua/maildir-from-path path t))
(newpath (mua/msg-move path target flags)))
;; now, attempt to update our parent header list...
(if newpath
(mua/with-hdrs-buffer
(if (string= (mua/hdrs-get-path) path) ;; doublecheck we have the right one
(mua/hdrs-set-path newpath)
(mua/warn "Headers buffer not point at correct message")))
(mua/warn "Failed to mark message as read"))))))
(defun mua/view-message (msg)