Skip to content

Instantly share code, notes, and snippets.

@dmj

dmj/gist:722f217b060ad36acae5

Created April 13, 2015 13:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dmj/722f217b060ad36acae5 to your computer and use it in GitHub Desktop.
Save dmj/722f217b060ad36acae5 to your computer and use it in GitHub Desktop.
Download ZIP
Use ibuffer to access (hidden) WL messages
Raw
gistfile1.el
(defun wl-message-ibuffer-predicate ()
(and (boundp 'wl-message-buffer-cur-folder)
(boundp 'wl-message-buffer-cur-number)
wl-message-buffer-cur-folder
wl-message-buffer-cur-number))
(define-ibuffer-column wl-message-date (:name "Date")
(format-time-string "%Y-%m-%d"
(elmo-message-field (wl-folder-get-elmo-folder wl-message-buffer-cur-folder) wl-message-buffer-cur-number 'date)))
(define-ibuffer-column wl-message-subject (:name "Subject")
(elmo-message-field (wl-folder-get-elmo-folder wl-message-buffer-cur-folder) wl-message-buffer-cur-number 'subject))
(define-ibuffer-column wl-message-from (:name "From")
(elmo-message-field (wl-folder-get-elmo-folder wl-message-buffer-cur-folder) wl-message-buffer-cur-number 'from))
(defvar wl-message-ibuffer-formats
'(((wl-message-date 20 20) " " (wl-message-from 40 40) " " (wl-message-subject 0 -1 :left :elide))))
(defun wl-message-ibuffer ()
(interactive)
(let ((ibuffer-maybe-show-predicates nil))
(ibuffer t "*WL Messages*" '((predicate . (wl-message-ibuffer-predicate))) nil nil nil wl-message-ibuffer-formats)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment