* toys/mm: updates

This commit is contained in:
Dirk-Jan C. Binnema
2011-09-18 23:57:46 +03:00
parent 553b88620e
commit 88d81512c4
4 changed files with 51 additions and 36 deletions

View File

@ -30,7 +30,7 @@
;; mm
;;; Code:
;; Code:
(eval-when-compile (require 'cl))
@ -451,7 +451,6 @@ point."
(interactive)
)
;; TODO warn if marks exist
(defun mm/rerun-search ()
"Rerun the search for the last search expression; if none exists,
do a new search."
@ -513,7 +512,8 @@ return the new docid. Otherwise, return nil."
"Mark message at point for moving to the trash
folder (`mm/trash-folder')."
(interactive)
(unless mm/trash-folder (error "`mm/trash-folder' is not set"))
(unless mm/trash-folder
(error "`mm/trash-folder' is not set"))
(mm/hdrs-mark 'trash)
(mm/next-header))