Since I recently switched to Emacs/Wanderlust for email, I've been looking for a solution to easily refile (move) a mail into an archive folder by year. For example, mails sent 2014 should be moved to
Archive/2014. By default, this is not possible. But gladly we can enhance Emacs and accordingly Wanderlust as well by elisp. So I wrote a small
defun to do exactly that:
(defun ck-refile-to-archive () "Refile current message to archive folder" (interactive) (let ((msg-num (wl-summary-message-number)) (entity) (msg-date) (folder)) (setq entity (elmo-message-entity wl-summary-buffer-elmo-folder msg-num)) (setq msg-date (elmo-message-entity-field entity 'date)) (setq msg-date (format-time-string "%Y" msg-date)) (if (string-match "Termitel" (wl-summary-buffer-folder-name)) (setq folder (concat ".Termitel/Archiv." msg-date)) (setq folder (concat ".Defunct/Archiv." msg-date))) (wl-summary-refile (wl-summary-message-number) folder) (wl-summary-next) (message "Refiled to %s" folder)))
This gets the message from the index, reads its date and refiles it to the
Defunct/Archiv.2014 folder, depending on what account I am currently using: Defunct (private) or Termitel (work). Keep in mind that subfolders in IMAP are represented by dots, not slashes.