get subject and from on wl-biff-notify-hook function
[email protected] Wed, 24 Jul 2019 17:42:05 +0000
| Newsgroups | gmane.mail.wanderlust.general |
|---|---|
| Message-ID | <[email protected]> |
Hi.
I have a notification function that advertises me about new email. But I
have more than one email account. I would like to be notified with the
account, sender, and subject.
my notify function is this one
--8<---------------cut here---------------start------------->8---
(defun my-wk/wl-biff-notify()
(let ((user-home-dir (getenv "HOME")))
(ding);; be sure it works
(when (fboundp 'notifications-notify)
(setq my-wl-dbus-id (notifications-notify :title "wl-mail-kipu"
:bus (if (boundp 'my-dbus-address) my-dbus-address)
:body "new mail!"
:sound-file (concat user-home-dir "/downloads/KDE-Im-New-Mail.ogg")
:app-icon (concat user-home-dir "/downloads/mail-unread.png")
:replaces-id (if (boundp 'my-wl-dbus-id) my-wl-dbus-id)
:timeout 1))
(if (file-exists-p (concat user-home-dir "/downloads/KDE-Im-New-Mail.au"))
(play-sound-file (concat user-home-dir "/downloads/KDE-Im-New-Mail.au"))
(message (concat "file not present " (concat user-home-dir "/downloads/KDE-Im-New-Mail.au")))
)
)
))
--8<---------------cut here---------------end--------------->8---
But I also have this var:
--8<---------------cut here---------------start------------->8---
(setq
wl-biff-check-folder-list '(".INBOX" ".~/Maildir-fm/INBOX" ".~/Maildir-gm/INBOX" ".~/Maildir-kipu/INBOX") ;; chk
)
--8<---------------cut here---------------end--------------->8---
Could It be possible?. navigating this list 'wl-biff-check-folder-list'
and check on every folder for displaying individual notifications with
every mail message?
AR