From 8d996544ee8e4cb68ce0cbcc0c8de23515aa3352 Mon Sep 17 00:00:00 2001 From: David Maus Date: Fri, 2 Jul 2010 16:23:13 +0200 Subject: [PATCH] Provide function for updating message flag of all messages in summary. * org-issue.el (org-issue-bulk-update-message-flag): New function. --- elisp/org-issue.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/elisp/org-issue.el b/elisp/org-issue.el index 7a3795f..ddfdbf3 100644 --- a/elisp/org-issue.el +++ b/elisp/org-issue.el @@ -20,6 +20,10 @@ ;; along with this program. If not, see . ;; ;;; History: +;; 2010-07-02 David Maus +;; +;; * org-issue.el (org-issue-bulk-update-message-flag): New function. +;; ;; 2010-06-27 David Maus ;; ;; * org-issue.el (org-issue-display): Fix typo. @@ -305,6 +309,15 @@ If optional argument REMOVE is non-nil, remove the flag." (unless visiting (kill-buffer))) (org-issue-flag-message org-issue-message-flag (not state)))) +(defun org-issue-bulk-update-message-flag () + "Update message flag of all messages in summary." + (interactive) + (when (eq major-mode 'wl-summary-mode) + (goto-char (point-min)) + (while (not (eobp)) + (ignore-errors (org-issue-update-message-flag)) + (beginning-of-line 2)))) + (provide 'org-issue) ;;; org-issue.el ends here -- 2.11.4.GIT